如何根据相似值合并单元格 - Excel 2010

Posted 2023-02-23

【中文标题】如何根据相似值合并单元格 - Excel 2010

【英文标题】：How to merge cells based on similar values - Excel 2010

【发布时间】：2013-07-12 08:11:08

【问题描述】：

我在根据一列的相似值合并 Excel 中的单元格时遇到问题 - 我想保留其他列的数据 - 让我们查看一些屏幕截图，它会更清楚：

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

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

先谢谢大家了。

【参考方案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 列中的最后一行），让用户每次都输入它，或者以编程方式查找范围中的最后一行。不管怎样，这应该让你开始。

顺便说一句，您可以在 A 列的最后一行找到以下内容：

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

【讨论】：

扩展此宏以在所有列上运行的最佳方法是什么？