Excel 检查一个单元格中的副本
我有这个代码来检查重复项,如果它在单元格L中发现重复项(或更多),是否可以将K列中的单元格中的值复制到一个单元格中Excel 检查一个单元格中的副本,excel,vba,Excel,Vba,我有这个代码来检查重复项,如果它在单元格L中发现重复项(或更多),是否可以将K列中的单元格中的值复制到一个单元格中 Sub check_duplicates() Dim x As Long Dim LastRow As Long Dim rng As String LastRow = Range("L65536").End(xlUp).Row For x = LastRow To 1 Step -1 If Application.Wor
Sub check_duplicates()
Dim x As Long
Dim LastRow As Long
Dim rng As String
LastRow = Range("L65536").End(xlUp).Row
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("L2:L" & x), Range("L" & x).Value) > 1 Then
Range("L" & x).Copy
End If
Next x
End Sub
我希望是你想做的,让我知道
我希望是你想做的,让我知道
我没有在K列中获得您希望通过的内容。是否要粘贴所有副本?我没有在K列中获得您希望通过的内容。是否要粘贴所有副本?
Sub Test()
Dim lastrow As Long
lastrow = Range("L" & Rows.Count).End(xlUp).Row
For i = 2 To lastrow
lastrow = Range("L" & Rows.Count).End(xlUp).Row
For j = i + 1 To lastrow
If Range("L" & j).Value = Range("L" & i).Value Then
If Not IsEmpty(Range("K" & i)) Then
Range("K" & i) = Range("K" & i) & "," & " " & Range("L" & j)
Rows(j).EntireRow.Delete
Else
Range("K" & i) = Range("L" & j)
End If
j = j - 1
End If
Next j
Next i
End Sub