作者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://webptt.com/cn.aspx?n=bbs/Office/M.1672139263.A.095.html
1F：→ newacc: 因为第00在执行完第一行之後变成第0了？把两行前後互调试 12/27 19:31
2F：→ newacc: 试看 12/27 19:31
3F：→ newacc: 另重复执行就用For loop或Do While吧，但我觉得这个case 12/27 19:34
4F：→ newacc: 没有必要这样用 12/27 19:34
5F：→ cellnucleus: n大 我有查过do loop while语法 12/27 21:14
6F：→ cellnucleus: 但如果是回圈要怎麽写同一个function执行两次 12/27 21:14
7F：→ cellnucleus: 因为不是只能例如 i=1...2...3....4 12/27 21:14
8F：→ cellnucleus: 有办法写例如 i 执行两次 或是 i=1...2...3....4> 12/27 21:14
9F：→ cellnucleus: ...1...2..3..4 这样吗 12/27 21:14
10F：→ rafaiero: 为什麽不用instr取第到条间的数字，直接*1，再把数字放 12/27 22:37
11F：→ rafaiero: 在第後条前就好？ 12/27 22:37