[[20210331153722]]　『文字入りセルの右隣セルが空白の場合結合のマクロ』（まぐろ）　ページの最後に飛ぶ

『文字入りセルの右隣セルが空白の場合結合のマクロ』（まぐろ）

マクロ初心者です。
以下の表で、B列の、右隣のセルが空白だった場合、Bのセルと、隣のC、Dのセルを結合させたいです。
例として、B2セルをC2、D2と結合させる。
やりたい理由として、セルの書式設定で、折り返し表示にしても、行の高さが変わらずに済ませるためです。

データが下に多く続くので、検索で該当するセルを探して、結合させるマクロを作りたいと思っているのですが、調べても同じようなマクロが見つからないため、質問させていただきます。
ご教授お願い致します。

  |　A   |　　B    |　C　　|　D　　|
１|あいう|かきく 　|なにぬ |はひふ |
２|さしす|かきくけ |	　 |	   |
　|　　　|こさしす |       |　     |
３|らりる|かきく　 |なにぬ |はひふ |
４|たちつ|なにぬね |       |　     |
　　　　　のはひふへ

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

マクロ初心者っても自分では何も書けないんですよね。
初心者ではなく、都合良く他人に作ってもらうだけでしょ。
（民度って） 2021/03/31(水) 16:47

作業の効率化のために、マクロというものを知ったばかりで、マクロの何もわからないんですよね。
最近、やりたいことの似たようなことを検索して、マクロを作成するということを始めたばかりで。。。
excelがわからない高齢者が多い会社なので、ボタンひとつで書類が出来上がるようにしてあげたいのです。
優しい方がいらっしゃったら、お願い致します。
（まぐろ） 2021/03/31(水) 16:56

 ｢VBAセル結合｣で検索すれば出来そうだけど
 For i = 1 To B列の最終行番号
     If Cells(i,3).Value="" Then Range(Cells(i, 2), Cells(i,4)).Merge
 Next
 B列の最終行番号はEndプロパティで調べてね
（どん） 2021/03/31(水) 17:21

excelがわからない高齢者が多い会社なので、

↑
それならば、なおさら貴方は無知のままではいられません。
わからない人がわからないまま無闇な使い方をして問題が発生したとき
それをサポートするのはあなたの仕事になるはずです。
あなたの手に負えないものを他人に使わせるのは危険ではないでしょうか。
（横文字） 2021/03/31(水) 19:50

どんさんありがとうございます！出来ました！
民度のいい方が居て助かります！

私の場合、行数が変動するデータでしたので、
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
にしました。ほかの方の参考になるように記しておきます。

横文字さん、どんさんが簡単で分かりやすいマクロを組んでくれたので、私でも理解できます。
ご心配ありがとうございます。

（まぐろ） 2021/04/01(木) 09:21

コメント返信：

[ 一覧(最新更新順) ]

[[20210331153722]] 『文字入りセルの右隣セルが空白の場合結合のマクロ』（まぐろ） ページの最後に飛ぶ

[[20210331153722]]　『文字入りセルの右隣セルが空白の場合結合のマクロ』（まぐろ）　ページの最後に飛ぶ