|
VBAのFor文について、教えてください。
Sheet1のE列から3列飛ばしでBW列まである数字をコピーして、sheet2に貼り付ける処理を行うことを3から100行までFor文で実行したいのですが、
数字を取得するところでエラーしていまいます。
どうかアドバイスなどをいただきたくよろしくお願いします。
Sub データ取得貼付()
'
' Macro1 Macro
'
'
For i = 3 To 100
Cells(1, 1) = i
If Cells(i, 1) <> "" Then
Worksheets("sheet1").Activate
Range("E3,I3,M3(省略)・・・・・,BW3").Select
' Range("Ei,Ii,Mi(省略)・・・・・,BWi").Select
Selection.Copy
Sheets("sheet3").Select
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteAll,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End If
Next
End Sub
|
|