我想把 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

因为第00在执行完第一行之后变成第0了？把两行前后互调试试看另重复执行就用For loop或Do While吧，但我觉得这个case没有必要这样用

n大 我有查过do loop while语法但如果是循环要怎么写同一个function执行两次因为不是只能例如 i=1...2...3....4有办法写例如 i 执行两次 或是 i=1...2...3....4>...1...2..3..4 这样吗

为什么不用instr取第到条间的数字，直接*1，再把数字放在第后条前就好？