エクセルのマクロで一列コピーし、直後の列に行挿入したいと思っています。
Sheet1.Columns("A:A").Select
Selection.Copy
Sheet1.Columns("B:B").Select
Selection.Insert Shift:=xlToRight
上記のようなマクロを作成したところ、デバッグモードで実行するとうまくいきますが、普通に実行するとA列を選択している状態でとまってしまいます。なにか良い方法があれば教えていただけないでしょうか。よろしくお願いします。
答え:
こんにちは
Sheet1 を Sheets("Sheet1") に変えてみてください。
だめだったら以下のように
with Sheets("Sheet1")
.Columns("B:B").Insert Shift:=xlToRight
.Columns("A:A").Copy Columns("B:B")
end with
他は答える:
この質問・回答は役に立ちましたか？
答え:
sheet1がアクティブになっている場合
省略してもいいですね
ウェブサイトのユーザーによる情報ポスト、JPQA.comのない保証の正しさ.