エクセル、セル結合について

質問

どなたかご存じでしたら教えてください。

例）Ａ１とＡ２のセルに同じ文字列があるような場合、Ａ１とＡ２をブック起動時に自動的に結合するようなマクロってどうやれば組込めるのでしょうか？

回答No.1

Kazamin

補足質問です。
　1. ブックのシート数は1つですか？複数の場合はどのシートのセルを参照すればいいですか？
　2. 「Ａ１とＡ２のセルに同じ文字列があるような場合」とありますが、文字列でない
　　 値が入力されている場合(数値、計算式等)は、たとえ値が同じでも結合はしない
　　 のですか？また、A1セル、A2セル共に何も入力されていない場合は結合しても
　　いいのですか？

上記２つの質問を無視して、マクロを書くと以下のようになります。
'------------------------------------------------
Dim wst As Worksheet

Set wst = ThisWorkbook.Worksheets("Sheet1")

With wst
If .Cells(1, 1).Value = .Cells(2, 1).Value Then
.Range("A1:A2").Merge
End If
End With

Set wst = Nothing
'------------------------------------------------
これを該当ブックのThisWorkBookオブジェクトのWorkbook_Openイベントに
貼り付けてみてください。ブックを開いた時に、自動実行します。

補足

ご回答ありがとうございます。

補足についてコメントいたします。
１．シートは複数ですが、一番右端のシートを参照するとルールつけます。
２．セルには文字列のみが入力されているものとし、空白またはNULLはなしとします。

説明不足で申し訳ありません。
よろしくおねがいします。