[已解决]求助为什么在Sheet2表中用命令提取Sheet1的重复姓名会出错，在Sheet1表中用命令提...

qinhuan66

求助为什么在Sheet2表中用命令提取Sheet1的重复姓名会出错，在Sheet1表中用命令提取却正常。谢谢

提取重复姓名.rar (13.5 KB, 下载次数: 6)

2013-7-30 17:38 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2013-7-30 17:44

Private Sub CommandButton1_Click()
    Dim arr, brr, name
    Dim i, j
    Dim d
        arr = Sheets("Sheet1").Range("A1:A" & Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row)
        Set d = CreateObject("scripting.dictionary")
        ReDim brr(1 To UBound(arr), 1 To 2)
            For i = 1 To UBound(arr)
                d(arr(i, 1)) = d(arr(i, 1)) + 1
            Next
            name = d.keys
                For i = 0 To UBound(name)
                    If d(name(i)) > 1 Then
                        j = j + 1
                        brr(j, 1) = name(i)
                        brr(j, 2) = d(name(i))
                    End If
                Next
            
        Sheets("Sheet2").Range("C:D").ClearContents
        Sheets("Sheet2").Range("C1").Resize(j, 2) = brr
End Sub

关键问题用红色标出来了。

跳转到最佳答案楼层

xdragon

Private Sub CommandButton1_Click()
    Dim arr, brr, name
    Dim i, j
    Dim d
        arr = Sheets("Sheet1").Range("A1:A" & Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row)
        Set d = CreateObject("scripting.dictionary")
        ReDim brr(1 To UBound(arr), 1 To 2)
            For i = 1 To UBound(arr)
                d(arr(i, 1)) = d(arr(i, 1)) + 1
            Next
            name = d.keys
                For i = 0 To UBound(name)
                    If d(name(i)) > 1 Then
                        j = j + 1
                        brr(j, 1) = name(i)
                        brr(j, 2) = d(name(i))
                    End If
                Next
            
        Sheets("Sheet2").Range("C:D").ClearContents
        Sheets("Sheet2").Range("C1").Resize(j, 2) = brr
End Sub

关键问题用红色标出来了。

我心飞翔410

呵呵

qinhuan66

xdragon 发表于 2013-7-30 17:44
Private Sub CommandButton1_Click()
    Dim arr, brr, name
    Dim i, j

你好！谢谢