ARROWS A 101F Worksheetsの解決方法

質問者が納得せっかくCOUNTIFで該当数を計算しているのだからそれを利用して また不要なオブジェクト定義をしているみたいです こんなかんじでいいかと Sub test() CNT = Application.CountIf([B:B], [D6]) If CNT = 0 Then Exit Sub ST = [B:B].Find([D6]).Row ED = ST + CNT - 1 MsgBox ST & "～" & ED End Sub