Excel VBA 質問スレ Part41©5ch.io
レス数が900を超えています。1000を超えると表示できなくなるよ。
0901デフォルトの名無しさん
2016/06/22(水) 16:30:58.68ID:k28/2S7E検索範囲を変える必要がある
For x1 = 2 To 21
Set cell = Cells(Int((x1 - 2) / 4) * 4 + 2, 2)
z1 = Range(cell, cell.Offset(3, 0)).Find(What:="1", LookIn:=xlValues).Row
z2 = Range(cell, cell.Offset(3, 0)).Find(What:="4", LookIn:=xlValues).Row
Cells(x1, 3) = z1
Cells(x1, 4) = z2
Next
レス数が900を超えています。1000を超えると表示できなくなるよ。