【vba】区别一列中重复值

Sub 导入crm表区别订单号()

Dim lastRow As Long
Dim i As Long, j As Long

lastRow = Cells(Rows.Count, "B").End(xlUp).Row '获取最后一行

For i = 1 To lastRow '循环遍历每一行
    For j = i + 1 To lastRow '循环遍历下一行到最后一行
        If Cells(i, "B").value = Cells(j, "B").value Then '如果两个单元格的值相同
            Cells(j, "B").value = Cells(i, "B").value & "-1" '在第二列中标记为第一列值&-1
        End If
    Next j
Next i
End Sub

主要是C出来的记录下