嘿，我来帮你搞定这个Excel宏的问题！针对你提到的「检查A列重复值，将重复行的相邻单元格内容用分号追加到原值对应行」的需求，我整理了一套完整的解决方案，应该能解决你目前遇到的部分功能失效问题。

核心思路 #

• 先遍历A列，用字典高效统计每个值的出现次数及对应的所有相邻单元格内容
• 从下往上反向遍历工作表，将合并后的内容更新到第一次出现重复值的行
• 标记并删除后续的重复行（可选，若你不需要删除重复行可以去掉这部分逻辑）

完整VBA代码 #

Sub MergeDuplicateAdjacentCells()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cellValue As String
    Dim duplicateDict As Object
    Dim i As Long
    
    ' 指定操作的工作表，可改为你的目标表名如Sheet1
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 创建字典存储A列值与对应相邻单元格内容的集合
    Set duplicateDict = CreateObject("Scripting.Dictionary")
    
    ' 第一次遍历：收集所有值的相邻单元格内容
    For i = 1 To lastRow
        cellValue = Trim(ws.Cells(i, "A").Value)
        
        If cellValue <> "" Then
            If duplicateDict.Exists(cellValue) Then
                ' 追加相邻单元格内容（这里默认是B列，可改为你需要的列）
                duplicateDict(cellValue) = duplicateDict(cellValue) & "; " & Trim(ws.Cells(i, "B").Value)
            Else
                ' 首次出现时记录初始内容
                duplicateDict(cellValue) = Trim(ws.Cells(i, "B").Value)
            End If
        End If
    Next i
    
    ' 插入临时列标记待删除的重复行
    ws.Columns("C").Insert
    ' 反向遍历：更新首行内容并标记重复行
    For i = lastRow To 1 Step -1
        cellValue = Trim(ws.Cells(i, "A").Value)
        
        If cellValue <> "" Then
            If duplicateDict.Exists(cellValue) Then
                ' 将合并后的内容写入当前行的相邻单元格
                ws.Cells(i, "B").Value = duplicateDict(cellValue)
                ' 移除字典中的键，确保只更新第一次出现的行
                duplicateDict.Remove cellValue
            Else
                ' 标记重复行
                ws.Cells(i, "C").Value = "Delete"
            End If
        Else
            ' 标记空行（可根据需求删除此判断）
            ws.Cells(i, "C").Value = "Delete"
        End If
    Next i
    
    ' 删除标记的重复行
    ws.Range("C1:C" & lastRow).AutoFilter Field:=1, Criteria1:="Delete"
    On Error Resume Next ' 避免无删除行时出错
    ws.Rows("2:" & lastRow).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
    On Error GoTo 0
    ws.AutoFilterMode = False
    ws.Columns("C").Delete ' 移除临时列
    
    MsgBox "重复值合并操作完成！", vbInformation
End Sub

关键细节说明 #

• 字典的优势：用Scripting.Dictionary替代嵌套循环，不仅效率更高，还能精准记录每个值对应的所有内容，避免重复统计。
• 反向遍历的必要性：从最后一行往前遍历，不会因为删除行导致后续行的索引错位，保证操作的准确性。
• 自定义调整点：如果你的相邻单元格不是B列，只需把代码中所有的"B"改成目标列的列名（如"C"）或列号（如3）即可；若不需要删除重复行，直接去掉临时列相关的代码块就行。

针对“部分功能实现有问题”的排查建议 #

• 如果内容未正确追加：检查是否遗漏了空单元格判断，或者相邻单元格的引用是否正确（比如用cell.Offset(0,1).Value可以更灵活地指向当前单元格右侧的相邻单元格）。
• 如果重复行未被处理：确认字典的Remove操作是否执行，确保第一次出现的行处理后，后续行能被正确标记。
• 如果运行报错：检查工作表是否被保护，或者是否启用了宏（需要在Excel中开启宏功能）。

内容的提问来源于stack exchange，提问作者NiceRice