- ©«¤l
- 5
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 14
- ÂI¦W
- 0
- §@·~¨t²Î
- Window XP
- ³nÅ骩¥»
- SP3
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¤õ¬P
- µù¥U®É¶¡
- 2010-6-22
- ³Ì«áµn¿ý
- 2010-7-16
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-22 10:29 ½s¿è
½Ð°Ý¦U¦ì¤j¤j
¥H¤U³o¬qµ{¦¡½X¬O¤°»ò·N«ä§r?
·PÁ±z
For Each a In Range([A2], [A65536].End(xlUp))
Sheets("°O¿ý").[A65536].End(xlUp).Offset(1, 0).Resize(, 12) = a.Resize(, 12).Value
a.Resize(, 1) = ""
a.Offset(, 2) = "" ¡u³o¬O¦V¥k²MªÅ2®æ?¡v
Next
End Sub |
|