|
本当にありがとうございます。
今、解析しているのですが、
Sub test2()
Dim i As Long, j As Long
Dim RS As Long, RE As Long
j = 1
RS = 2 'データが2行目から始まる前提です。でなければフラグが必要
RE = Cells(65536, 1).End(xlUp).Row 'データの最終行(データ範囲の最後)
For i = 3 To RE
If Cells(i, TC).Value = 1 Then
Range(Cells(RS, 1), Cells(i - 1, 2)).Select
MsgBox "範囲 " & j & " です"
RS = i
j = j + 1
ElseIf i = RE Then
Range(Cells(RS, 1), Cells(i, 2)).Select
MsgBox "範囲 " & j & " です"
End If
Next i
End Sub
最後の
Range(Cells(RS, 1), Cells(i, 2)).Select
の構文は、最終行を範囲選択していますが、この場合のRS は、どこの範囲を選んでいるのでしょうか?
RS = 2としていますが、そこは無効になっているのは、分かります。
|
|