VBA初心者です。 エクセルで同じデータが入っている箇所を縦結合と横結合をしたいのですが方法がわかり

VBA初心者です。

エクセルで同じデータが入っている箇所を縦結合と横結合をしたいのですが方法がわかりません

イメージとしては以下の通りです。

1 2 3
1 2 3
1 3 4
2 2 4
4 4 5
2 3 6
3 4 7

質問者からの補足コメント

• すみませんスクショではありませんがイメージはこんな感じです。

  
    補足日時：2020/10/22 11:31

No.1 回答者： zongai 回答日時： 2020/10/22 10:45

イメージが全くわからないです。

実際のイメージのスクリーンショットを補足頂けますか？

No.2 回答者： fujillin 回答日時： 2020/10/22 11:05

こんにちは

セル範囲のMargeメソッドで可能です。
https://docs.microsoft.com/ja-jp/office/vba/api/ …

セルの結合は基本的に矩形のセル範囲でしかできませんので、Ｌ型やＴ型のようなセル範囲が同じ値となっている場合に、どのように扱うのかは質問者様次第となります。

No.3 回答者： tatsumaru77 回答日時： 2020/10/22 11:33

添付図の同じ色のセルを結合セルにしたいと理解しました。

それであってますか。
但し、その場合、No2のかたも指摘されていますが、
添付図の右側の黄色のセルを結合セルにはできません。
その場合は、どのようにするかを提示してください。
そうすれば、更に具体的な回答が得られるかと。

この回答へのお礼

ご回答ありがとうございます。
その認識で間違いありません。

また、左側になった場合はメッセージボックスでエラー分を出したいと考えています。

お礼日時：2020/10/22 12:01

No.4 ベストアンサー 回答者： ママチャリ 回答日時： 2020/10/22 20:35

とりあえず、こんなもんでどうでしょう？

Ｌ型やＴ型の場合の対応は、Excelにまかせているので、ご希望通りにならないかもしれません。当然、エラーメッセージなんて出ないので、どうしても必要であれば、ご自分で修正してみて下さい。

Sub sample()
Dim d As Object
Dim r As Variant
Set d = CreateObject("Scripting.Dictionary")
For Each r In Cells.SpecialCells(xlCellTypeConstants, 23)
If d.Exists(r.Value) Then
Set d(r.Value) = Union(d(r.Value), r)
Else
Set d(r.Value) = r
End If
Next r
Application.DisplayAlerts = False
For Each r In d.items
r.MergeCells = True
Next r
End Sub

この回答へのお礼

遅くなりましたが解決できました！
ありがとうございました。

お礼日時：2020/10/26 13:00