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

お世話になっています。

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

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

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

Selection.Insert Shift:=xlToRight

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

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

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

No.2 ベストアンサー 回答者： akinori_s 回答日時： 2002/02/21 17:45

列を追加するなら

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

この回答へのお礼

ありがとうございます。

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

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

お礼日時：2002/02/21 18:14

No.1 回答者： TAGOSAKU7 回答日時： 2002/02/21 16:26

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

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

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

この回答へのお礼

ありがとうございます。

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

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

お礼日時：2002/02/21 18:13