は、だからここに「マスターキー」欄

Question

をオフに基づいて範囲または行に重複したセルを結合しようとすると、私は始めていますものです：

そして、ここでは、私はそれがどのように見えるしたいものですそれが行われたとき：

私は何それが行う必要があると思う：

1）ルートのカラム012を通過します ）重複値

3））最初の重複ルート値と最後

4との間のすべての行を選択し、その範囲内のすべての重複するセルをマージを探す

5.）データの最後の行に移動するまで繰り返します。

私の問題は、私が本当にやりたいことをするためにvbaについて十分に知りませんし、すでにこれを行うコードを見つけることに幸運を祈ることができませんでした。私は努力し続けるつもりですが、このサイトのすばらしい人々が提供できる援助/洞察を歓迎します。

Answer 1

は、だから私は、カラム1へのルートを移動し、このコードで動作するように私のマクロを得た：

Sheets("Master").Select 
With ActiveSheet 
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
End With 
Dim KRng As Range, Kxcell As Range 
Dim KxRows As Integer 
Dim KeyRng As Range 

Set KeyRng = Range("A4:A" & LastRow) 
KeyRng.Select 
'Application.ScreenUpdating = False 
'Application.DisplayAlerts = False 
KxRows = KeyRng.Rows.Count 
     For Each KRng In KeyRng.Columns 
      For c = 1 To KxRows - 1 
       For d = c + 1 To KxRows 
        If KRng.Cells(c, 1).Value <> KRng.Cells(d, 1).Value Then 
       Exit For 
      End If 
     Next 
    KeyRng.Parent.Range(KRng.Cells(c, 1), KRng.Cells(d - 1, 1)).Select 
    With Selection 
    ActiveCell.Resize(d - c, 60).Select 
    End With 
    Call MergeSameCell 
    KeyRng.Parent.Range(KRng.Cells(c, 1), KRng.Cells(d - 1, 1)).Select 


    c = d - 1 
Next 

次 Application.DisplayAlerts = Trueの
Application.ScreenUpdating = Trueの

End Subの

を

ここで私の質問は、右側の60列を選択しても、8列から12行をスキップするにはどうすればいいですか？私は研究を続け、私が思いつくものを見ていきますが、シンプルでエレガントな答えを歓迎します。