|
C列に列を挿入して計算した後B列を削除するコードがあります。
定数"上"と変数"下"は列が移動しても値は不変です。
コードを書き加えてAD列まで同じ処理をさせたいのです。
(列挿入→計算→1列前の列削除)
for loopを使うのかと考えたり過去ログを調べたり
してみたのですが、変数をどう設定したらいいかわかりませんでした。
よろしくご教授ください
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("C2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""?"","""",RC[-1]*1*RC[-2])"
Selection.Copy
上= 2
左= 3 (C列の3)
下= Range("a65536").End(xlUp).Row
右 =3 (C列の3)
Range(Cells(上, 左), Cells(下, 右)).Select
Selection.PasteSpecial Paste:=xlAll
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B1").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("C1")
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
|
|