[[20120517174730]]　『セルを２つずつ結合したい』（まーたろー）　ページの最後に飛ぶ

『セルを２つずつ結合したい』（まーたろー）

３行目のセルを２つずつ結合したいです。
A3：B3、C3:D3,E3:F3,G3:H3,I3:J3,K3…
永遠に結合させたいです。

よろしくおねがいします。

（まーたろー）

 永遠に？　１行全体かな。もし2007以上なら結構時間はかかるけど。

 Sub Sample()
    Dim x As Long
    Dim j As Long

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    Rows(3).MergeCells = False  'すでに結合されているセルがあれば、いったん解除

    x = Columns.Count \ 2

    For j = 1 To x Step 2
        Cells(3, j).Resize(, 2).Merge
    Next

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    MsgBox "セルを結合しました。"

 End Sub

 (ぶらっと)

ぶらっとさん

おお！
思い通りにできました！
ありがとうございました！

コメント返信：