PTT數位生活區 / Office

[問題] VBA 取代問題

看板Office作者 (sisi)時間1年前 (2022/12/27 19:07), 編輯推噓0(0推 0噓 11→)
留言11則, 3人參與, 1年前最新討論串1/1
我想把 A欄和E欄的儲存格之法條內容 原內容： 第00XX條 或 第0X條 需求： 把X條前的 0 都刪掉 修改後： 第XX條 或 第X條 程式碼 （這是成功一次可以執行的） Sub Sample3() Dim find1 As Workshee Set find1 = Worksheets("工作表4") With find1 .Range("a:a,e:e").Replace _ What:="第0", replacement:="第", _ LookAt:=xlPart If Not find1 Is Nothing Then find1.Range("a:a,e:e").Replace _ What:="第0", replacement:="第", _ LookAt:=xlPart End If End With End Sub ------------------------------------------ 另一個之前寫的 （只能執行去掉“第0” 不能執行去掉“第00” Sub test() Range("a:a,e:e").Replace _ What:="第0", replacement:="第", LookAt:=xlPart Range("a:a,e:e").Replace _ What:="第00", replacement:="第", LookAt:=xlPart End Sub ------------------------------------------ 想問 為什麼 第一個程式可以一次執行 第二個卻只能執行去掉“第0” 不能執行去掉“第00” 還有 有沒有同個function可以一次執行兩次 都只能像我前面兩個程式 重複寫嗎 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.136.253.41 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1672139263.A.095.html
→
12/27 19:31, 1年前 , 1F
因為第00在執行完第一行之後變成第0了？把兩行前後互調試
12/27 19:31, 1F
→
12/27 19:31, 1年前 , 2F
試看
12/27 19:31, 2F
→
12/27 19:34, 1年前 , 3F
另重複執行就用For loop或Do While吧，但我覺得這個case
12/27 19:34, 3F
→
12/27 19:34, 1年前 , 4F
沒有必要這樣用
12/27 19:34, 4F
→
12/27 21:14, 1年前 , 5F
n大 我有查過do loop while語法
12/27 21:14, 5F
→
12/27 21:14, 1年前 , 6F
但如果是迴圈要怎麼寫同一個function執行兩次
12/27 21:14, 6F
→
12/27 21:14, 1年前 , 7F
因為不是只能例如 i=1...2...3....4
12/27 21:14, 7F
→
12/27 21:14, 1年前 , 8F
有辦法寫例如 i 執行兩次 或是 i=1...2...3....4>
12/27 21:14, 8F
→
12/27 21:14, 1年前 , 9F
...1...2..3..4 這樣嗎
12/27 21:14, 9F
→
12/27 22:37, 1年前 , 10F
為什麼不用instr取第到條間的數字，直接*1，再把數字放
12/27 22:37, 10F
→
12/27 22:37, 1年前 , 11F
在第後條前就好？
12/27 22:37, 11F
‣ 更多 cellnucleus 的文章
文章代碼(AID): #1Zgj7_2L (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 cellnucleus 的文章
文章代碼(AID): #1Zgj7_2L (Office)