用于合并同一行中多列中的行的宏[重复]

Question

我在这个 Excel 工作表中有几千行数据。我正在尝试提出一个宏来合并所有列中第二列中相同数量的行。但是其他列中有些值不一样，所以只会合并值相同的行。

编辑：这个问题不是重复的。它与之前的question 不同，第四列不能合并具有相同值的所有行，因为如果第二列中的连续行具有相同的值，它只能合并第四列中的行。这是因为第四列中的所有值都有 95% 相同。

原单：

希望合并：

Answer 1

感谢TylerH 提供代码建议。以下是调整后的代码以供将来参考：

Private Sub MergeTheseCellsToMakeSomethingLikeADatabase()

'Crucial Line Below

Application.DisplayAlerts = False
Dim i%
Dim j%
With ThisWorkbook.Sheets("SUMMARY")
   For j = 6 To 2 Step -1
        For i = .UsedRange.Rows.Count To 2 Step -1
            If .Cells(i, 2).Value = .Cells(i - 1, 2).Value And .Cells(i, j).Value = .Cells(i - 1, j).Value Then
            .Range(.Cells(i, j), .Cells(i - 1, j)).Merge


            'Do this for all rows that are relevant or just have another for loop to cycle
            'Through the rows that you want merged

            End If
        Next
   Next
End With
End Sub