- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 278
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-24
|
¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-5-10 19:50 ½s¿è
¦^´_ 16# sax868 - Sub InputData()
-
- Dim Sh As Worksheet, Ar()
-
- Set d = CreateObject("Scripting.Dictionary")
-
- Set d1 = CreateObject("Scripting.Dictionary")
-
- With Sheets("Updated Data")
-
- For Each a In .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
-
- If a.Offset(, 49) <> "" Then d(a & a.Offset(, 3) & a.Offset(, 12)) = a.Offset(, 49).Value 'AX¦³È¤~°õ¦æ
-
- If a.Offset(, 37) <> "" Then d1(a & a.Offset(, 3) & a.Offset(, 12)) = a.Offset(, 37).Value 'AL¦³È¤~°õ¦æ
-
- Next
-
- End With
-
- For Each Sh In Sheets
-
- With Sh
-
- r = 12
-
- Do Until .Cells(r, 1) = ""
-
- .Cells(r, "AU") = d(.[C1] & .Cells(r, "A") & .Cells(r, "J"))
-
- .Cells(r, "AI") = d1(.[C1] & .Cells(r, "A") & .Cells(r, "J"))
-
- r = r + 1
-
- Loop
-
- End With
-
- Next
-
- End Sub
½Æ»s¥N½X |
|