VBAマクロで結合セルを含む列に列挿入する方法？

質問

お世話になっています。

下記のエクセルＶＢＡマクロで、
列挿入処理をしているのですが、

列に結合セル（行方向）がある場合にだけ、
列選択がうまくできず、
目的と異なる処理をしてしまいます。

ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.Select

Selection.Insert Shift:=xlToRight

新しいマクロの記録で
やってみたのですが、
上記マクロが生成されただけでした。

手作業では
列の上のアルファベットを選択して、
列挿入できるので、
何かいい方法があるのは？
と思います。

どなたかよろしくお願いします。

回答No.2

akinori_s · ベストアンサー

列を追加するなら
Worksheets(シート名).Columns(列INDEX).Insert Shift:=xlRight
行を追加するなら
Worksheets(シート名).Rows(行INDEX).Insert Shift:=xlDown
でできると思います。

お礼

ありがとうございます。

一発でうまく行きました。

今後ともよろしくお願いします。

回答No.1

TAGOSAKU7

セル結合をしなくてはいけないのですか？

解決策ではなく、あくまで回避策ですが・・・

セルを結合しないで、
メニューバーで「書式」→「セル」→「配置」
「横位置」＝選択範囲内で中央
「セルを結合する」＝チェックOFF
にしておくと、擬似的にセルを連結しているように見せることができます。

お礼

ありがとうございます。

はい、セル結合解除してから
マクロを行うことはやってみました。

ただ、繰り返し作業が非常に多くて、
効率的でなくなってしまうのです。。。。