我要把一个工作表中的数据无重复添加到另一个工作表中

bo824111

TomingTang 发表于 2015-1-26 14:29
某个写错了。现在改好了。我的程序运行速度比2楼，当量大时。

添加表中的重复项还是增加到明细中去了，没有解决这个问题

jjmysjg

谢谢.，下来看看

marioyim2011

TomingTang 发表于 2015-1-26 13:42
字典轻松解决。

老师，如果这两个工作表不在同一工作簿，在同一文件夹下，能实现吗？

TomingTang

marioyim2011 发表于 2017-4-21 15:57
老师，如果这两个工作表不在同一工作簿，在同一文件夹下，能实现吗？

这个是针对同一个工作簿的，不同工作簿的需要修改代码。。
你论坛上找"批量汇总工作簿“的，吧全部工作簿汇总好，后面就行了。

sjh701120

TomingTang 发表于 2015-1-26 14:29
某个写错了。现在改好了。我的程序运行速度比2楼，当量大时。

老师，如果有多列数据需要添加到另一工作表，需要修改哪几段代码？比如数据区域为B2：H，需要检查重复的列为F列，代码需要改哪几个地方？谢谢！

Sub 添加()
    Dim Arr, Brr, drow%, i%, j%, d, Crr(), k%
    k = 1
    Set d = CreateObject("scripting.dictionary")
    Arr = Worksheets("添加").Range("A2:B" & Worksheets("添加").Range("A65536").End(3).Row)
    With Worksheets("明细")
        drow = .Range("A65536").End(3).Row
        Brr = .Range("A2:B" & drow)
        For i = 1 To UBound(Brr)
            d(Brr(i, 1)) = Brr(i, 2)
        Next
        ReDim Crr(1 To UBound(Arr), 1 To 2)
        For i = 1 To UBound(Arr)
            If Not d.exists(Arr(i, 1)) Then
                Crr(k, 1) = Arr(i, 1): Crr(k, 2) = Arr(i, 2)
                k = k + 1
            End If
        Next
        .Range("a" & drow + 1).Resize(k, 2) = Crr
        .Columns("a:b").Sort Key1:=.Range("a1"), Order1:=xlAscending, Header:=xlYes
    End With
End Sub

sjh701120

TomingTang 发表于 2015-1-26 14:29
某个写错了。现在改好了。我的程序运行速度比2楼，当量大时。

老师，如果添加数据有多列，如何修改代码？比如：数据区域为B2：P，要怎样修改代码？麻烦老师提示，谢谢！