¦p¦óÂ^¨ú¼ÆȨè̦¸¶ñ¤J¥t¤@Ó¤u§@ªí
- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX10.8
- ³nÅ骩¥»
- excel2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-14
- ³Ì«áµn¿ý
- 2018-3-16
|
¦p¦óÂ^¨ú¼ÆȨè̦¸¶ñ¤J¥t¤@Ó¤u§@ªí
§Úªº¸ê¾ú¦bSheet1ªºAÄ榳¤@³s¦êªº¸ê®Æ¡A¨ä¤¤¦³¼Æ¦r©Î¤å¦r
§Ú·Q§âÄÝ©ó¼ÆȪº³¡¥÷Â^¨ú¥X¨Ó¡A¨Ì§Ç¶ñ¤JSheet2ªºAÄæ
¥H¤U¬O§Ú¼g¹D¤@¥bªºµ{¦¡½X¡A¥i¬On¨Ì§Ç¶ñ¤JShee2ªº¦a¤è¼g¤£¥X¨Ó
¥i§_½Ð¤j¤j«üÂI- Sub aa()
- Dim A As Range
- With Worksheets(1)
- For Each A In .Range(.[A2], .[A5000].End(xlUp))
- If IsNumeric(A) Then
- 'Sheets("Sheet2").Range("A65536").End(xlUp)=Sheets("Sheet1").A.Value ³oÓ³¡¤À¦³ÂI°ÝÃD¡A¤£ª¾¹D«ç»ò¼g
- Else
- End If
- Next
- End Sub
½Æ»s¥N½X ÁÂÁ¤j®a |
|
hi
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 18
- ÂI¦W
- 0
- §@·~¨t²Î
- OSX10.8
- ³nÅ骩¥»
- excel2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-14
- ³Ì«áµn¿ý
- 2018-3-16
|
·PÁªO¥D¡A¤@»yÂI¿ô¹Ú¤¤¤H
¦A¦¸·PÁ |
|
hi
|
|
|
|
|