- ©«¤l
- 72
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 88
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2012-6-28
- ³Ì«áµn¿ý
- 2018-11-14
|
¦^´_ 16# GBKEE
ÁÂÁª©¤jªºÀ°¦£~~~~
¦A½Ð±Ð¤@¤U~¥Ø«e°»¿ù°±¦b
With Workbooks("A.xlsx").Sheets(1) '
¦]¬°§Ú¤w¸g±N¸ê®Æ®w©ñ¦bABC.xlsm¸Ì±¤F
¨º¤U±³o¬q»yªk¬O§_´N¤£¥Î°w¹ïA.xlsx°µ³B²z©O?
i = 1
With Workbooks("A.xlsx").Sheets(1) '
Do While .Cells(i, "e") <> ""
d(.Cells(i, "e").Value) = .Cells(i, "A").Value
i = i + 1
Loop |
|