如何基于相似的值合并单元格 – Excel 2010

我有一个问题合并单元格基于相似的值为一列 – 我想保留其他列数据 – 让我们看一些截图，它会更清晰：

以上是Data的初始状态，我想实现的是：

我相信有一种方法可以用VB或公式来实现 – 我需要最简单的方法，因为这是针对客户的，而且需要简单。

谢谢大家的进步。

Answer 1

Option Explicit Private Sub MergeCells() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim rngMerge As Range, cell As Range Set rngMerge = Range("A1:A100") 'Set the range limits here MergeAgain: For Each cell In rngMerge If cell.Value = cell.Offset(1, 0).Value And IsEmpty(cell) = False Then Range(cell, cell.Offset(1, 0)).Merge GoTo MergeAgain End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub 

您可以对范围限制进行硬编码（即列A中的最后一行进行检查），让用户每次都input一次，或者以编程方式查找范围中的最后一行。 无论哪种方式，这应该让你开始。

顺便说一句，你可以find列A中的最后一行，如下所示：

 Dim i As Integer i = Range("A1").End(xlDown).Row Set rngMerge = Range("A1:A" & i)