エクセル

質問

教えてください。お願いします。

フィルタをかけてデータを抽出したあと
常に上から10～15行目というように
同じ位置の行を選択するというマクロを組むには
どうしたらよいでしょうか？
すみませんが教えてくださ～い。

回答No.1

ja7awu · ベストアンサー

こんな感じで如何でしょうか。

Sub test()
Dim Rw As Long
Dim TopRow As Long
Dim EndRow As Long
Dim Cnt As Long
Dim Sw As Boolean
For Rw = 1 To 2 ^ 16
　　If Rows(Rw).Hidden = False Then
　　　　Cnt = Cnt + 1
　　　　If Cnt = 10 And Sw = False Then
　　　　　　TopRow = Rw
　　　　　　Sw = True
　　　　End If
　　　　If Cnt = 15 Then
　　　　　　EndRow = Rw
　　　　　　Exit For
　　　　End If
　　End If
Next Rw
Rows(TopRow & ":" & EndRow).Select
End Sub

お礼

本当に感激です！！ありがとうございます。
困っているときに助けていただき
本当に感謝してます！試してみたらばっちりでした！！