列を削除していく

たけうちとおる (2011年5月18日) | コメント(0) | トラックバック(0)

ActiveWindow.FreezePanes = False 'ウィンドウ枠固定の解除
Columns("BR:BR").Select
Selection.Delete Shift:=xlToLeft
Columns("BI:BK").Select
Selection.Delete Shift:=xlToLeft
Columns("BG:BG").Select
Selection.Delete Shift:=xlToLeft
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft