|
エクセルのマクロを使ってデータを整理しているんですが、下のマクロを列番号を一つずつ入れ替えて繰り返したいのですが・・・
Sub Macro1()
Range("A362:A373").Select ←ここです。
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-20
ActiveWindow.SmallScroll Down:=0
ActiveWindow.Panes(1).Activate
Range("B12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=4
ActiveWindow.LargeScroll ToRight:=22
ActiveWindow.SmallScroll ToRight:=-28
ActiveWindow.Panes(3).Activate
End Sub
↑のマクロ中の Range("A362:A373").Select を
次々に Range("B362:B373").Select
Range("C362:C373").Select
というふうにして列をずらすループを作りたいので、誰か教えてくださーい。
|
|