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

½Ð±ÐVBA¤º¡ARight¨ç¼Æ

½Ð±ÐVBA¤º¡ARight¨ç¼Æ

¦U¦ì¥ý¶i¡A

§Ú·Q¦bEXCEL VBA¤U Right¨ç¼Æ¡A¨Ï¥Î¤U¦Cªº»yªk
¦ý¬O¬O¿ù»~ªº¡A¬O§_­þ¬q¶·°µ­×§ï?
Thanks!



Sub Right()
For i = 1 To 100000
Cells(i, 2) = Right(Cells(i, 2), 4)
Next
End Sub
Just do it.

Sub Right( ) ©M  Right ¨ç¼Æµo¥Í¦P¦W
½Ð§â Sub Right( ) ¥Î¨ä¥L¦W¦r´À´«

TOP

¦^´_ 2# bobomi

Test ok , ·PÁ«ü¾É
§Ú§â»yªk§ï¦¨¤U¦C»yªk
·Q¦A°Ý¤@­Ó°ÝÃD¡A§Ú­n±qA2¶}©l§ì(¦ý¤U­±»yªk¬°A1¶}©l§ì)¡A§Ú­n§ï­þ¤@­Ó»yªk©O?



Sub R4()
For i = [a65536].End(xlUp).Row To 1 Step -1
Cells(i, 2) = Right(Cells(i, 1), 4)
Next
End Sub
Just do it.

TOP

¦^´_ 2# bobomi

§Ú¬ã¨s¥X¨Ó¤F
For i = 2 To [a65536].End(3).Row
Just do it.

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD