[µo°Ý] ¦p¦ó±N¤ñ¹ïªº¸ê®Æ¶K¨ìÀx¦s®æ¤¤

gctsai

¦U¦ì¤j¤j:
ÀɮפºªºfÄæ¬O§Ú¥Î¤ñ¹ï«á°µ¥X¨ÓªºÀÉ®×,
§Ú­n¦p¦ó¨ÏfÄ椺¦³¼Æ¦rªºÀx¦s®æ¶K¨ì¬Û¨ìªºcÄæ©O?(¦pf2¶K¨ìc2,f3¶K¨ìc3....)
¦Ó¦pªG¬O"#N/A"´N«O«ù­ì¨Óªº¼Æ¦r.

2.rar (7.75 KB)

¤U¸ü¦¸¼Æ: 28

2011-8-15 23:45

hugh0620

¦^´_ 1# gctsai

1. Sub tt()
   
2. A = Range("C65536").End(xlUp).Row
   
3. For i = 2 To A
   
4.     If IsError(Range("F" & i)) Then
   
5.     Else
   
6.        Range("C" & i) = Range("F" & i)
   
7.     End If
   
8. Next
   
9. End Sub

½Æ»s¥N½X

oobird

1. Sub yy()
   
2.    For Each c In [f:f].SpecialCells(2, 3)
   
3.    c(1, -2) = c.Value
   
4.    Next
   
5. End Sub

½Æ»s¥N½X

gctsai

¦^´_ 3# oobird


    ¤j¤j,¦pªG§Úªº¸ê®Æ¬O¦bsheet3¨º­n¦p¦ó¼g©O??

oobird

§â¥N½X©ñ¦bsheet3ªº¼Ò²Õ¤º°õ¦æ

gctsai

¤j¤j,¥i¬O§Ú¦³¤@¨Çµ{¦¡¬O©ñ¦bsheet1

oobird

¤j¤j,¥i¬O§Ú¦³¤@¨Çµ{¦¡¬O©ñ¦bsheet1
gctsai µoªí©ó 2011-8-16 15:23

    ¤£¦æ¶Ü¡HÁ`¦³­ì¦]§a¡H»P§A¦³¤@¨Çµ{¦¡©ñ¦bsheet1¦³¤°»òÃö³s¡H

gctsai

¦^´_ 7# oobird


    ¤j¤j,¤£¦n·N«ä,§Ú¨S¦³»¡²M·¡
  µ{¦¡¬Ookªº,¦ý¦]¬°§Ú¦³¤@­Óµ{¦¡©ñ¦bsheet1ªº¼Ò²Õ¤¤,
  ©Ò¥H´NÅܦ¨¤F¦³¨â­Óµ{¦¡¤F.
  ©Ò¥H´N»Ý­n±N¤G­Óµ{¦¡³sµ²©Î¬O¦X¦¨¤@­Óµ{¦¡

hugh0620

¦^´_ 8# gctsai

­nµ²¦X¦b¤@°_©Î¤À¶}À³¸Ó¬O¨Ìuserªº»Ý¨D¨Ó¨M©w~

­Y­nµ²¦X¦b¤@°_:§Aªºµ{¦¡¥ý°õ¦æ´N©ñ¦b«e­±~ «á°õ¦æ´N©ñ¦b«á­±~

   

Sub tt()
'====µ{¦¡¤@======


'====µ{¦¡¤@======
A = Sheet3.Range("C65536").End(xlUp).Row
For i = 2 To A
    If IsError( Sheet3.Range("F" & i)) Then
    Else
        Sheet3.Range("C" & i) =  Sheet3.Range("F" & i)
    End If
Next
'====µ{¦¡¤@======


'====µ{¦¡¤@======

End Sub

gctsai

¦^´_ 3# oobird


    ¤j¤j½Ð°Ý¤@¤U,¦pªG§Ú­n¨Ï¦³§ïÅܪº¼Æ¦rªºÃC¦âÅã¥Ü¬°¬õ¦âªº©O?