返回列表 上一主題 發帖

請教VBA內，Right函數

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
117  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-6-27 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-3-2 22:17 | 顯示全部帖子

請教VBA內，Right函數

各位先進，

我想在EXCEL VBA下 Right函數，使用下列的語法
但是是錯誤的，是否哪段須做修改?
Thanks!



Sub Right()
For i = 1 To 100000
Cells(i, 2) = Right(Cells(i, 2), 4)
Next
End Sub
收藏 分享
Just do it.

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
117  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-6-27 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
2#
發表於 2017-3-3 08:26 | 顯示全部帖子
回復 2# bobomi

Test ok , 感謝指導
我把語法改成下列語法
想再問一個問題，我要從A2開始抓(但下面語法為A1開始抓)，我要改哪一個語法呢?



Sub R4()
For i = [a65536].End(xlUp).Row To 1 Step -1
Cells(i, 2) = Right(Cells(i, 1), 4)
Next
End Sub
Just do it.

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
117  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2025-6-27 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
3#
發表於 2017-3-3 08:42 | 顯示全部帖子
回復 2# bobomi

我研究出來了
For i = 2 To [a65536].End(3).Row
Just do it.

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題