2­Ó¼Æ­È¤ñ¸û,¨ú¸û¤j­È

fangsc

½Ð±ÐVBA¼gªk.

CÄæ»PDÄæ¼Æ­È°µ¤ñ¹ï,
C¤p©óD,«h±ND­È¨ú¥NC,
C¤j©óD,«h«O¯dC­È
¦p¹J¨ìAÄ欰ªÅ¥Õ®É,«h²¤¹L,¤£»Ý¤ñ¸û.

·PÁÂ!!

register313

¦^´_ 1# fangsc

1. Sub xx()
   
2. LR = [A2].CurrentRegion.Rows.Count
   
3. For R = 3 To LR
   
4.   If Cells(R, "A") <> "" And Cells(R, "AN") < Cells(R, "BB") Then Cells(R, "AN") = Cells(R, "BB")
   
5. Next R
   
6. End Sub

½Æ»s¥N½X

fangsc

¦^´_ 2# register313

·PÁ«ü¾É.

½Ð°ÝLR¤£»Ý­n¥ý°µÅܼƫŧi¶Ü?

register313

¦^´_ 3# fangsc

ÅܼƤ£¥ý©w¸qªº¸Ü¡AVBA¦Û°Ê·|©w¸q
®Ú¾Ú¸ê®Æªº¤£¦P¡A¦³¥i¯à¬Ointeger, long, double, variant ªº¥ô·N¤@­ÓÃþ«¬
©Ò¥H强¨î¦Û¤v©w¸qÅܼƤ~¬O¦n²ßºD

Option Explicit ±j¨îÁn©ú
¦pªG¤£¥Î¦¹»yªk¡A«hÅܼƥi¤£¥Î©w¸qª½±µ¨Ï¥Î
¦pªG¨Ï¥Î¦¹»yªk¡A«hÅܼƥ²¶·©w¸q«á¤~¯à¨Ï¥Î

GBKEE

¦^´_ 3# fangsc
¼gµ{¦¡­n¤@©w¾i¦¨ ¥ÎOption Explicit ±j¨î«Å§iÅÜ¼Æ ªº²ßºD
°õ¦æµ{¦¡¥i¥H§ì¥X,¥¼«Å§iªºÅܼÆ,¥iÁקK§A¿é¤J¬Û¦üªºÅܼƦWºÙ,¦]¦Ó§ä¤£¥X¿ù»~­þ¸Ì.

¦^´_ 4# register313
ÅܼƤ£¥ý©w¸qªº¸Ü¡AVBA¦Û°Ê·|©w¸q
ÅܼƤ£«Å§i«¬ºA   VBA·|µø¬° Variant ¸ê®Æ«¬ºA
Variant ¸ê®Æ«¬ºA¬O©Ò¦³¨S³Q©ú½T«Å§i¬°¨ä¥L«¬ºA

fangsc

·PÁÂ2¦ìªº«ü¾É.
®Ñ¤W¬O¦³¼g»¡Variant«¬ºAªºÅܼƥi¥H¬Ù¥h­nª`·N¸ê®Æ«¬ºA¤@­Pªº³Â·Ð,¤£¹L³o¼Ëªº¥Îªk·|®ö¶O¦h¾lªº°O¾ÐªÅ¶¡.
¾i¦¨¦n²ßºDÁÙ¬O¥i¥HÁקK³\¦h³Â·Ð.
¨ü±Ð¤F.