作者cellnucleus (sisi)
看板Office
標題[問題] VBA 取代問題
時間Tue Dec 27 19:07:41 2022
我想把 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
→ newacc: 因為第00在執行完第一行之後變成第0了?把兩行前後互調試 12/27 19:31
→ newacc: 試看 12/27 19:31
→ newacc: 另重複執行就用For loop或Do While吧,但我覺得這個case 12/27 19:34
→ newacc: 沒有必要這樣用 12/27 19:34
→ cellnucleus: n大 我有查過do loop while語法 12/27 21:14
→ cellnucleus: 但如果是迴圈要怎麼寫同一個function執行兩次 12/27 21:14
→ cellnucleus: 因為不是只能例如 i=1...2...3....4 12/27 21:14
→ cellnucleus: 有辦法寫例如 i 執行兩次 或是 i=1...2...3....4> 12/27 21:14
→ cellnucleus: ...1...2..3..4 這樣嗎 12/27 21:14
→ rafaiero: 為什麼不用instr取第到條間的數字,直接*1,再把數字放 12/27 22:37
→ rafaiero: 在第後條前就好? 12/27 22:37