Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 检查一个单元格中的副本_Excel_Vba - Fatal编程技术网

Excel 检查一个单元格中的副本

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

我有这个代码来检查重复项,如果它在单元格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.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