CSV合并单元格去重VBA代码问题：首行数据丢失及跨文件运行报错

问题1：首行'Text1'未被保留 #

问题根源是合并逻辑未保留首个唯一行的原始第二列值，直接用重复项内容覆盖了初始值。修改时需先留存首个行的原始内容，再追加后续重复项：

假设原合并逻辑类似：

' 错误示例：直接替换首个行的第二列
Cells(i, 2).Value = Cells(i, 2).Value & ", " & Cells(j, 2).Value

修改为：

' 先保存首个行的原始第二列值
Dim originalText As String
originalText = Cells(i, 2).Value
' 遍历重复行时追加内容
originalText = originalText & ", " & Cells(j, 2).Value
' 写回合并后的值
Cells(i, 2).Value = originalText

核心是确保首个唯一行的初始值作为合并内容的开头，而非直接从重复项开始拼接。

问题2：PERSONAL.xlsb中运行出现类型不匹配错误 #

该错误通常由以下原因导致，对应修复方案：

• 工作表引用不明确：PERSONAL.xlsb中的代码若未指定目标工作表，会错误引用自身工作表。需明确指向当前CSV的活动工作表：

  Dim ws As Worksheet
  Set ws = ActiveSheet ' 或指定具体表名：ThisWorkbook.Worksheets("Sheet1")
  ' 后续所有单元格操作统一用ws引用，如ws.Cells(i,1)
  

• CSV单元格数据类型差异：CSV打开后单元格可能是文本/数值混合类型，比较时因类型冲突报错。统一转换为文本类型再比较：

  ' 原错误比较：If Cells(i,1).Value = Cells(j,1).Value Then
  ' 修改为：
  If CStr(ws.Cells(i, 1).Value) = CStr(ws.Cells(j, 1).Value) Then
  

• 变量未声明类型：未声明的变量默认是Variant类型，易引发类型冲突。在代码开头强制声明变量：

  Option Explicit
  

  并为所有变量指定明确类型，如：

  Dim i As Long, j As Long
  Dim originalText As String
  

修复后完整示例代码 #

Option Explicit

Sub MergeDuplicates()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 明确指向当前活动工作表
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Dim i As Long, j As Long
    Dim originalText As String
    
    ' 从第二行开始遍历（假设首行是表头）
    For i = 2 To lastRow
        If ws.Cells(i, 1).Value <> "" Then
            originalText = ws.Cells(i, 2).Value ' 保存首个行的原始第二列值
            For j = i + 1 To lastRow
                ' 统一文本类型比较，避免类型不匹配
                If CStr(ws.Cells(i, 1).Value) = CStr(ws.Cells(j, 1).Value) Then
                    originalText = originalText & ", " & ws.Cells(j, 2).Value
                    ws.Cells(j, 1).Value = "" ' 标记重复行待删除
                End If
            Next j
            ws.Cells(i, 2).Value = originalText ' 写回合并后的值
        End If
    Next i
    
    ' 删除标记为空的重复行
    ws.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

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