- ©«¤l
- 967
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1001
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- OFFICE 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-11-29
- ³Ì«áµn¿ý
- 2022-5-17
|
¦^´_ 1# waterfox - Sub XX()
- Set d = CreateObject("scripting.dictionary")
- For Each A In Sheet1.Range("A1:A" & [A1].End(xlDown).Row)
- d(A & "," & A.Offset(0, 1)) = A.Offset(0, 2)
- Next
- For Each A In Sheet2.Range("A1:A" & [A1].End(xlDown).Row)
- If d.Exists(A & "," & A.Offset(0, 1)) Then
- A.Offset(0, 3) = d(A & "," & A.Offset(0, 1))
- d.Remove (A & "," & A.Offset(0, 1))
- End If
- Next
- Ar = d.keys
- For I = 0 To UBound(Ar)
- Sheet2.[A1].End(xlDown).Offset(1, 0).Resize(1, 2) = Split(Ar(I), ",")
- Next I
- Sheet2.[C1].End(xlDown).Offset(1, 0).Resize(d.Count, 1) = Application.Transpose(d.items)
- End Sub
½Æ»s¥N½X |
|