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

[µo°Ý] ½Ð±Ð¤@­Ó"¨ú±oAÄ檺³Ì«á¤@¦C ¦ì¸m"ªº°ÝÃD End(xlUp).Row

[µo°Ý] ½Ð±Ð¤@­Ó"¨ú±oAÄ檺³Ì«á¤@¦C ¦ì¸m"ªº°ÝÃD End(xlUp).Row

Sub TEST()
For I = 2 To 65530
           AAA = Range("A:A").End(xlUp).Row + 1       'ªí¥Ü¦bAÄ檺³Ì«á¤@¦C  ¦ì¸m
          Cells(AAA, 1) = "¶ñ¤J¸ê®Æ"
Next I   
End Sub

¬°¤°»ò  I   ¶]°j°é¡A¥i¬O   Range("A:A").End(xlUp).Row + 1    «çªk¦A§ä¤£¨ì~¤U¤@¦C©O¡H
¤@ª½AAA°±¦b2¡C
ÁÂÁ¸Ѵb    ~~~~~

[attach]13198[/attach]

´£¨Ñªþ¥ó  ÁÂÁ¡I
°Ý°ÝÃD.rar (6.25 KB)

TOP

¦^´_ 2# ji12345678
AAA = Range("A65536").End(xlUp).Row + 1

TOP

ÁÂÁÂ~~~¡C·P®¦¸Ñ´b

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD