質問: 1結合セル内の第2,3...列目は、空文字のままにしたいです。 コピーしすぎない。行の増える方向だけへコピーする方法です。 2別法として、解除直後に第2,3...列目をクリアする。 3別法として、別マクロで、左隣のセルの値と同じなら、空文字にするでもいいと思います。 探し方が悪いのか、見つかりませんでした。 よろしくお願いします。 (参考)結合セル内の値を、結合解除後に結合されていた全てのセルへコピーする方法 (参考)【エクセルVBA】一瞬で結合セルを解除して値を埋めるマクロ (参考)セル結合を解除して同じ値を入力するマクロ (参考)セルの結合を解除して同じ値を入力
回答: できました。ありがとうございました。 ``` Sub a結合解除_1列目代入() Dim 範囲 As Range Dim 結合範囲 As Range Dim 結合範囲1 As Range Dim 値 As Variant For Each 範囲 In ActiveSheet.UsedRange If 範囲.MergeCells Then 値 = 範囲 Set 結合範囲 = 範囲.MergeArea Set 結合範囲1 = 範囲.MergeArea.Columns(1) 範囲.UnMerge 結合範囲1 = 値 '結合範囲を塗りつぶし 結合範囲.Interior.Color = rgbWhiteSmoke End If Next End Sub ```