[已解决]求更改快速代码

yiniuniu

求更改快速代码

最佳答案

月排行榜 / 总排行榜

爱疯

2016-5-7 14:25

    A = Range("e1").CurrentRegion
改成下句即可
    A = Range("e1:e" & Cells(Rows.Count, "e").End(3).Row)



求快速查找3.rar (16.45 KB, 下载次数: 9)

2016-5-7 14:25 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, d, i, j
    Sheets(1).Activate
    A = Range("a1:e" & Cells(Rows.Count, 1).End(3).Row)
    Set d = CreateObject("scripting.dictionary")

    For j = 1 To UBound(A, 2) Step 2
        For i = 2 To UBound(A)
            d(A(i, j)) = ""
        Next i
    Next j
    j = 0
   
    Sheets(2).Activate
    A = Range("e1").CurrentRegion
    For i = 2 To UBound(A)
        If d.exists(A(i, 1)) = False Then d(A(i, 1)) = "": j = j + 1: A(j, 1) = A(i, 1)
    Next i
    [g:g] = ""
    [g1].Resize(j) = A
End Sub

yiniuniu

爱疯 发表于 2016-5-7 00:09
Sub test()
    Dim A, d, i, j
    Sheets(1).Activate

E列里内容为空时,运行报错

爱疯

Sub test2()
    Dim A, d, i, j
    Sheets(2).Activate
    i = Cells(Rows.Count, "e").End(3).Row
    If i < 2 Then End

    Sheets(1).Activate
    A = Range("a1:e" & Cells(Rows.Count, 1).End(3).Row)
    Set d = CreateObject("scripting.dictionary")
    For j = 1 To UBound(A, 2) Step 2
        For i = 2 To UBound(A)
            d(A(i, j)) = ""
        Next i
    Next j
    j = 0

    Sheets(2).Activate
    A = Range("e1").CurrentRegion
    For i = 2 To UBound(A)
        If d.exists(A(i, 1)) = False Then d(A(i, 1)) = "": j = j + 1: A(j, 1) = A(i, 1)
    Next i
    [g:g] = ""
    [g1].Resize(j) = A
End Sub

求快速查找2.rar (18.76 KB, 下载次数: 3)

2016-5-7 11:35 上传

点击文件名下载附件



改了下，但不知指哪个表里的E列。
如果仍有问题，请上传出错的附件。

yiniuniu

之前的问题解决了，麻烦老师再帮忙修改数据列带有空格的问题

爱疯

    A = Range("e1").CurrentRegion
改成下句即可
    A = Range("e1:e" & Cells(Rows.Count, "e").End(3).Row)



求快速查找3.rar (16.45 KB, 下载次数: 9)

2016-5-7 14:25 上传

点击文件名下载附件

yiniuniu

感谢老师的多次解答