麻辣家族討論版版 » Excel程式區 » 請教一個"取得A欄的最後一列位置"的問題 End(xlUp).Row

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 28
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: SP2
閱讀權限: 20
性別: 女
註冊時間: 2012-5-4
最後登錄: 2016-9-29

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 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]

樓主熱帖

收藏

中學生 Rank: 2

帖子: 28
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: SP2
閱讀權限: 20
性別: 女
註冊時間: 2012-5-4
最後登錄: 2016-9-29

4^#

發表於 2012-11-19 21:07 | 只看該作者

謝謝~~~。感恩解惑

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2012-11-19 20:13 | 只看該作者

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

中學生 Rank: 2

帖子: 28
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: SP2
閱讀權限: 20
性別: 女
註冊時間: 2012-5-4
最後登錄: 2016-9-29

2^#

發表於 2012-11-19 20:00 | 只看該作者

提供附件謝謝！

問問題.rar (6.25 KB)

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題