Question

我正在尝试找到一个可以执行以下操作的宏：

1）通过C列找到相同的值。

2）如果C列中的值相同且A列中的值不同，请将这两个值放入A列。

下面的编码似乎接近我想要的。例如，删除重复行并组合单元格。但是，它没有组合正确的细胞。

例如，在第65行和第65行66我希望在单元格A中只有“CLAIM_NO”525533564和“2325/2337”只有一行

Sub test()
Dim i As Long
For i = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
  If Cells(i, "C") = Cells(i - 1, "C") Then
    Cells(i - 1, "A") = Cells(i - 1, "A") & " / " & Cells(i - 1, "A")
    Rows(i).Delete
  End If

Answer 1

原始代码中的一个小问题：

Sub test()
    Dim i As Long
    For i = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
        If Cells(i, "C") = Cells(i - 1, "C") Then
            Cells(i - 1, "A") = Cells(i - 1, "A") & " / " & Cells(i, "A")
            Rows(i).Delete
        End If
    Next i
End Sub

Excel宏组合单元格并删除重复项

1 个答案: