ªð¦^¦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

¦^´_ 1# 01300607
  1. Option Explicit
  2. Sub aa()
  3. Dim A As Range
  4. With Worksheets(1)
  5.    For Each A In .Range(.[A2], .[A5000].End(xlUp))
  6.     If IsNumeric(A) Then
  7.         Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1) = A '³o­Ó³¡¤À¦³ÂI°ÝÃD¡A¤£ª¾¹D«ç»ò¼g
  8.     Else
  9.    
  10.     End If
  11.    Next
  12. End With
  13. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD