註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 請教一個"取得A欄的最後一列 位置"的問題 End(xlUp).Row
返回列表
下一主題
上一主題
發帖
[發問]
請教一個"取得A欄的最後一列 位置"的問題 End(xlUp).Row
ji12345678
發短消息
加為好友
ji12345678
當前離線
UID
9211
帖子
28
主題
17
精華
0
積分
79
金錢
79
點名
0
作業系統
XP
軟體版本
SP2
閱讀權限
20
性別
女
在線時間
37 小時
註冊時間
2012-5-4
最後登錄
2016-9-29
中學生
帖子
28
主題
17
精華
0
積分
79
點名
0
作業系統
XP
軟體版本
SP2
閱讀權限
20
性別
女
註冊時間
2012-5-4
最後登錄
2016-9-29
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 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]
樓主熱帖
請教VBA 兩行儲存格的字串合併問題~~~~~~~
請教 if 判斷式太長 ,怎麼換行?
請教如何 使用range 和 Replace 取代特定字
請教如何用VBA找出最大值、第二大值…… 萬
求助~~用VBA製作一個資料尋找~資料搬移的方
如何用vba的函數搜尋excel欄內的資料?
教移動工作表出現 Class worksheet的Move方
如何輸入數字,顯示對應欄位的英文字母?
開啟excel檔案後 ,倒數一段時間(或到了設定
如何在EXCEL工作表取得網路上的資料?
收藏
分享
ji12345678
發短消息
加為好友
ji12345678
當前離線
UID
9211
帖子
28
主題
17
精華
0
積分
79
金錢
79
點名
0
作業系統
XP
軟體版本
SP2
閱讀權限
20
性別
女
在線時間
37 小時
註冊時間
2012-5-4
最後登錄
2016-9-29
中學生
帖子
28
主題
17
精華
0
積分
79
點名
0
作業系統
XP
軟體版本
SP2
閱讀權限
20
性別
女
註冊時間
2012-5-4
最後登錄
2016-9-29
2
#
發表於 2012-11-19 20:00
|
只看該作者
提供附件 謝謝!
問問題.rar
(6.25 KB)
下載次數: 11
2012-11-19 19:56
TOP
stillfish00
發短消息
加為好友
stillfish00
當前離線
UID
9276
帖子
1018
主題
15
精華
0
積分
1058
金錢
1058
點名
0
作業系統
win7 32bit
軟體版本
Office 2016 64-bit
閱讀權限
50
性別
男
來自
桃園
在線時間
1141 小時
註冊時間
2012-5-9
最後登錄
2022-9-28
大學生
帖子
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
TOP
ji12345678
發短消息
加為好友
ji12345678
當前離線
UID
9211
帖子
28
主題
17
精華
0
積分
79
金錢
79
點名
0
作業系統
XP
軟體版本
SP2
閱讀權限
20
性別
女
在線時間
37 小時
註冊時間
2012-5-4
最後登錄
2016-9-29
中學生
帖子
28
主題
17
精華
0
積分
79
點名
0
作業系統
XP
軟體版本
SP2
閱讀權限
20
性別
女
註冊時間
2012-5-4
最後登錄
2016-9-29
4
#
發表於 2012-11-19 21:07
|
只看該作者
謝謝~~~。感恩解惑
TOP
靜思自在 :
難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲