excel - VB/マクロを使用して複数の列の 2 つのセルをマージする

Question

2 つのセルを 1 つに結合したいのですが、結合する場合は 2000 行以上 (1000 行以上) に対してそれを行う必要があります。これに役立つマクロを探しています。以下は、私がやりたいことの例です..

私は基本的なマクロ レコーダーを使用しており、その多くのセルをハード コードしています。以下も実行する必要がある 2003 行があります。

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A28:A29,C28:C29,E28:E29,F28:F29").Select
    Range("F28").Activate
    With Selection
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Range("A1").Select
End Sub

以下は、マージしたいデータの例です... http://i.stack.imgur.com/US0MG.jpg

Number  Def Name1   Name2   Group1  Group2
12345   1   abcd             1       2
12345   2   abcd             1       2
123456  1   abcde            5       8
123456  2   abcde            5       8
123789  1   qwert            2       5
123789  2   qwert            2       5

マージ後、以下を確認したいと思います: http://i.stack.imgur.com/Pz0tb.jpg

Number  Def Name1   Name2   Group1  Group2
12345    1  abcd                 1       2
         2              
123456   1  abcde                5       8
         2              
123789   1  qwert                2       5
         2              

この件についてご協力いただきありがとうございます。

よろしく、サミット