Excel VBA 質問スレ Part41©5ch.io
レス数が900を超えています。1000を超えると表示できなくなるよ。
0900デフォルトの名無しさん
2016/06/22(水) 16:10:26.61ID:RYmYe0U+こうしたいのですが
Sub test()
For x1 = 1 To 21
z1 = Columns("B").Find(What:="1", LookIn:=xlValues).Row
z2 = Columns("B").Find(What:="4", LookIn:=xlValues).Row
Cells(x1, 3) = z1
Cells(x1, 4) = z2
??????? <- この部分がわかりません
Next
End Sub
簡単そうなのに書けない
どなたか教えてくれませんか
よろしくお願いします
レス数が900を超えています。1000を超えると表示できなくなるよ。