ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦óÂ^¨ú¼Æ­È¨Ã¨Ì¦¸¶ñ¤J¥t¤@­Ó¤u§@ªí

¦p¦óÂ^¨ú¼Æ­È¨Ã¨Ì¦¸¶ñ¤J¥t¤@­Ó¤u§@ªí

§Úªº¸ê¾ú¦bSheet1ªºAÄ榳¤@³s¦êªº¸ê®Æ¡A¨ä¤¤¦³¼Æ¦r©Î¤å¦r
§Ú·Q§âÄÝ©ó¼Æ­Èªº³¡¥÷Â^¨ú¥X¨Ó¡A¨Ì§Ç¶ñ¤JSheet2ªºAÄæ
¥H¤U¬O§Ú¼g¹D¤@¥bªºµ{¦¡½X¡A¥i¬O­n¨Ì§Ç¶ñ¤JShee2ªº¦a¤è¼g¤£¥X¨Ó
¥i§_½Ð¤j¤j«üÂI
  1. Sub aa()
  2. Dim A As Range  
  3. With Worksheets(1)
  4.    For Each A In .Range(.[A2], .[A5000].End(xlUp))
  5. If IsNumeric(A) Then
  6. 'Sheets("Sheet2").Range("A65536").End(xlUp)=Sheets("Sheet1").A.Value ³o­Ó³¡¤À¦³ÂI°ÝÃD¡A¤£ª¾¹D«ç»ò¼g
  7.     Else
  8.     End If
  9.    Next
  10. End Sub
½Æ»s¥N½X
ÁÂÁ¤j®a
hi

·PÁªO¥D¡A¤@»yÂI¿ô¹Ú¤¤¤H
¦A¦¸·PÁÂ
hi

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD