Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12548 / 13644 ツリー ←次へ | 前へ→

【9962】結合されているセルの解除をしないで削除するには? EMU 03/12/25(木) 18:26 質問
【9963】Re:結合されているセルの解除をしないで削除... INA 03/12/25(木) 18:40 回答
【9966】Re:結合されているセルの解除をしないで削除... BOTTA 03/12/25(木) 18:52 回答
【9969】Re:結合されているセルの解除をしないで削除... INA 03/12/26(金) 0:24 回答
【9970】Re:結合されているセルの解除をしないで削除... EMU 03/12/26(金) 9:20 お礼

【9962】結合されているセルの解除をしないで削除...
質問  EMU  - 03/12/25(木) 18:26 -

引用なし
パスワード
   先日は、至らない質問に丁寧に答えていただきありがとうございます。
今回、また、大変恐縮なのですが、質問させてください。

A1〜C3までのセルが結合されている状態で3行目のみを削除しようと思い
マクロの記録をしてみました。

Rows("3:3").Select
Selection.Delete Shift:=xlUp

上記のように記録されたのですが、同じ状況で再度このマクロを実行すると
1〜3行目が全て削除されてしまいます。

3行目だけを削除するにはどのように
コードを書けばいいのか教えていただけませんか?

【9963】Re:結合されているセルの解除をしないで削...
回答  INA  - 03/12/25(木) 18:40 -

引用なし
パスワード
   結合解除 → 行削除 → セル結合

とするしかないと思います。

基本的にセルの結合はデメリットが大きいので、
VBAでいじるシートには使わないことをお薦めいたします。

印刷や入力のためのシートで、体裁を整えるために
使うのはやむを得ませんが、私はほとんど使わないです。

【9966】Re:結合されているセルの解除をしないで削...
回答  BOTTA  - 03/12/25(木) 18:52 -

引用なし
パスワード
   EMUさん、INAさん、こんばんは。

Selectを使わずに、
Rows("3:3").Delete
でどうですか?
私の環境ではOKでした。

>基本的にセルの結合はデメリットが大きいので、
>私はほとんど使わないです。

私もあまり使いません。

【9969】Re:結合されているセルの解除をしないで削...
回答  INA  - 03/12/26(金) 0:24 -

引用なし
パスワード
   削除後の結合セルをどのようにしたいかによって、
方法が変わってきますね。

【9970】Re:結合されているセルの解除をしないで削...
お礼  EMU  - 03/12/26(金) 9:20 -

引用なし
パスワード
   ▼INAさん BOTTAさん早速のご解答ありがとうございます。
 また、忙しい時期にもかかわらず、このような質問につきあっていただき
 重ねて御礼をもうしあげます。

>基本的にセルの結合はデメリットが大きいので、
>VBAでいじるシートには使わないことをお薦めいたします。
>印刷や入力のためのシートで、体裁を整えるために
>使うのはやむを得ませんが、私はほとんど使わないです。

この話は私も上司から伺ってはいたのですが
なにぶん、お客様の既存ファイルでしたのでいかんともしがたかったわけです。
個人的なファイルには使用しない方がいいかなと今回の件で考えさせられました。

>Rows("3:3").Delete
>でどうですか?

はい、私の環境でも完璧に動作しました。ありがとうございます。
Selectを使わなければうまくいくというのはどういうことなのかはわかりませんが、
Selectした時点で結合セルの情報を組み込んでしまうということなのですかね。

>削除後の結合セルをどのようにしたいかによって、
>方法が変わってきますね。

表の行見出し部分で結合セルが多様されているのですが、
月ごとのデータが1行に収まっているのです。
それでいらない月をマクロで一括して消したいということなので
このような質問になりました。(まだ一括のぶぶんは作っている最中ですが)
本当にありがとうございました。

12548 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free