返回列表 上一主題 發帖

[發問] 請教一個"取得A欄的最後一列 位置"的問題 End(xlUp).Row

[發問] 請教一個"取得A欄的最後一列 位置"的問題 End(xlUp).Row

Sub TEST()
For I = 2 To 65530
           AAA = Range("A:A").End(xlUp).Row + 1       '表示在A欄的最後一列  位置
          Cells(AAA, 1) = "填入資料"
Next I   
End Sub

為什麼  I   跑迴圈,可是   Range("A:A").End(xlUp).Row + 1    怎法再找不到~下一列呢?
一直AAA停在2。
謝謝解惑    ~~~~~

[attach]13198[/attach]

提供附件  謝謝!
問問題.rar (6.25 KB)

TOP

回復 2# ji12345678
AAA = Range("A65536").End(xlUp).Row + 1

TOP

謝謝~~~。感恩解惑

TOP

        靜思自在 : 難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表 上一主題