選択範囲のセルを1行ずつ結合するマクロ

Question

こんにちは、いつも参考にさせていただいております。

セルを範囲選択し、
1行ごとに結合させる方法はないでしょうか。
手作業ではなくマクロでの方法を探しています。

イメージとしては
(1)範囲選択する
(2)マクロ実行する
　→列の範囲を1行ずつ、選択している範囲だけ各行を結合

図も添付いたしますので、どうかアドバイス・ヒント頂けないでしょうか。
よろしくお願いいたします。

Wendy02 · Accepted Answer

こんにちは。

以下は、私がツールバーで使っているものです。
そのままですと、書式がCenter になってしまいますので、左寄せにします。また、これは、トグルになっていますから、同じ範囲を選択すれば、元に戻すことが可能です。

なお、これは、良く使われるものですから、個人用マクロブック側に入れて呼び出しています。

'-------------------------------------------------

Sub MergeCells()
Dim r As Range
　　If StrComp(TypeName(Selection), "Range", 1) = 0 Then
　　For Each r In Selection.Rows
　　　 If r(1).MergeCells = False Then
　　　　r.Merge
　　　 With r.Rows
　　　　.HorizontalAlignment = xlLeft
　　　　.VerticalAlignment = xlBottom
　　　　.WrapText = False
　　　　.Orientation = 0
　　　　.AddIndent = False
　　　　.IndentLevel = 0
　　　　.ShrinkToFit = False
　　　　.ReadingOrder = xlContext
　　　End With
　　Else
　　　With r
　　　.UnMerge
　　　.HorizontalAlignment = xlGeneral
　　　End With
　　End If
　Next r
　End If
End Sub

Wendy02 · Answer

#9の補足
なお、私のマクロは、既存の横結合ですと、文字の場合は左寄せされますが、数字を入れると、右寄せされてしまいます。それを結合と同時に左寄せします。また、トグルで横結合を戻しますと、書式も標準に戻すようになっています。

Wendy02 · Answer

こんにちは。

>毎回「最左端のデータのみ保持されますが、結合しますか？」
>というようなダイアログが出るのですがこれは飛ばせるかどうかです。

これは、既存の機能ですから、私個人は、一般的には手を付けませんてした。これは、なるべく既存のものに近づけるためです。今の段階では、Ctrl + z で戻す機能は付けておりません。ややこしくなるからです。DisplayAlerts でも、可能だと思います。

　If r(1).MergeCells = False Then
　　　　r.Offset(, 1).Resize(, r.Columns.Count - 1).ClearContents　'*この行を加えます。
　　　　r.Merge

なお、コマンドボタンに既存の横結合はあるのは知っていますが、私のマクロは、ふつうの結合ボタンと同じようにトグルになっています。横結合している範囲を選択して、もう一度、マクロを行えばわかります。ツールボタンは、結合と同じボタンを使っています。それでなければ、新たに作る意味がありません。もともと、私のコードは私のために作ったものです。

mars180sxさん、どうもありがとうございます。

mars180sx · Answer

度々失礼します。
お望みの形に出来たようなので、私もうれしく思います。
で、結合時にメッセージが表示される件ですが、以下の命令を
追記するとメッセージは表示されなくなります。
（強制的に注意ダイアログを表示しないようにする設定です）

=====================================================
Sub Macro1()
　Application.DisplayAlerts = False　←この行を追記
　　　   |
  （以下、前述と同じ）
=====================================================

制御系のプログラムを開発する仕事に従事しているので、処理の
速さには重点を置いているのですが、私から見てもWendy02さんの
コーディングの方が結合前の状態にも戻せるという点で優秀だと
思います。メッセージを非表示にする方法は上記と同じでＯＫな
はずです。

お役に立ちましたら、Wendy02さんにポイントを付与していただけると
幸いです。(_ _)m

myRange · Answer

>「最左端のデータのみ保持されますが、結合しますか？」
>というようなダイアログが出るのですが

このメッセージを表示しないようにするには
DisplayAlertsプロパティで前後を挟んでやります。

'---------------------------------------　
Sub Test()
　Dim Rng As Range

　Application.DisplayAlerts = False

　For Each Rng In Selection.Rows
　　　Rng.Merge
　Next Rng

　Application.DisplayAlerts = True
End Sub
'----------------------------------------
　
以上ここまで。

nattocurry · Answer

> あとはこれを選択範囲ぶん繰り返すマクロを組めばできそうな気がしてきました。

ん？？？
範囲を選択して、このボタン(コマンド)一発で、やりたいことが出来るはずなので、もうマクロを組む必要は無いと思うのですが・・・

横方向に結合したい範囲が、離れたところにいくつもあるということでしょうか？

mars180sx · Answer

すみませんでした。当を得ていない回答だったようなのでリベンジ
させていただきます。
以下のマクロは、選択した範囲を「各行毎」に自動でセル結合するものです。

Sub Macro1()
　Dim lng_Row As Long
　Dim lng_Column As Long
　Dim lng_Rows As Long
　Dim lng_Columns As Long
　Dim cnt_1 As Integer
    
　lng_Row = Selection.Row
　lng_Column = Selection.Column
　lng_Rows = Selection.Rows.Count
　lng_Columns = Selection.Columns.Count
　cnt_1 = 0
    
　Do Until lng_Rows = cnt_1
　　Range(Cells(lng_Row + cnt_1, lng_Column), _
　　Cells(lng_Row + cnt_1, (lng_Column + lng_Columns) - 1)).Merge
　　cnt_1 = cnt_1 + 1
　Loop
End Sub

nattocurry · Answer

マクロを作ることも出来ますが、Excelにそのような機能がありますよ。

表示　－　ツールバー　－　ユーザー設定

「コマンド」タブ

分類：書式
コマンド：横方向に結合

この「横方向に結合」を、ツールバーのどこかに配置しておけば、
範囲を選択して、このボタンを押すだけで、やりたいことが出来ます。

mars180sx · Answer

画像に記載されている文字が読み取れないので正解ではないかも
しれませんが－

Sub Macro1()
　　Selection.Merge
End Sub

これだけで選択した範囲が結合されるはずです。

Sinogi · Answer

>イメージとしては
>(1)範囲選択する
>(2)マクロ実行する


マクロ記録をとればできることだと思います。
記録されたマクロからその時の範囲をRem化するだけじゃないかな

選択範囲のセルを1行ずつ結合するマクロ

#9の補足

こんにちは。

度々失礼します。

>「最左端のデータのみ保持されますが、結合しますか？」

> あとはこれを選択範囲ぶん繰り返すマクロを組めばできそうな気がしてきました。

こんにちは。

すみませんでした。

マクロを作ることも出来ますが、Excelにそのような機能がありますよ。

画像に記載されている文字が読み取れないので正解ではないかも

>イメージとしては

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング