|
本帖最后由 sjh701120 于 2023-3-30 14:49 编辑
老师,如果有多列数据需要添加到另一工作表,需要修改哪几段代码?比如数据区域为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
|
|