- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2024-10-30
|
¦^´_ samwang
samwang ¤j¤j §A¦n
¦P¼Ë°ÝÃD½Ð±Ð
¤u§@ªí1¤¤"A2:A300"¸ê®Æ.½Æ»s¦Ü¤u§@ªí2¤¤"A2"¶}©l¶K¤W. ...
BV7BW µoªí©ó 2021-7-14 08:04
½Ð¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, T, i&, n%
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([¤u§@ªí2!N1], [¤u§@ªí2!a65536].End(3))
For i = 2 To UBound(Arr)
T = Arr(i, 1) & Arr(i, 3): xD(T & "") = i
Next
Arr = Range([¤u§@ªí1!N1], [¤u§@ªí1!A65536].End(3))
For i = 2 To UBound(Arr)
T = Arr(i, 1) & Arr(i, 3)
If xD.Exists(T & "") = False Then
n = [¤u§@ªí2!a65536].End(3).Row + 1
Sheets(1).Range(Cells(i, 1), Cells(i, 14)).Copy Sheets(2).Range("a" & n)
End If
Next
End Sub |
|