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

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