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

---

作者: ji12345678    時間: 2012-11-19 19:58     標題: 請教一個"取得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]

---

作者: ji12345678    時間: 2012-11-19 20:00

提供附件  謝謝！
[attach]13198[/attach]

---

作者: stillfish00    時間: 2012-11-19 20:13

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

---

作者: ji12345678    時間: 2012-11-19 21:07

謝謝~~~。感恩解惑

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)