擅长:python、mysql、java
<p>如果你需要用Python来做,使用pandas</p>
<p>但此VBA将在当前工作簿的所有工作表中执行替换:</p>
<hr/>
<pre class="lang-vb prettyprint-override"><code>Option Explicit
Public Sub GlobalReplaceThousandToHundred()
Dim ws As Worksheet, ur As Variant, r As Long, c As Long, sz As Long
Const STR1 = "thousand"
Const STR2 = "hundred"
sz = Len(STR1)
For Each ws In ThisWorkbook.Worksheets
ur = ws.UsedRange
For r = LBound(ur) To UBound(ur)
For c = LBound(ur, 2) To UBound(ur, 2)
If Not IsError(ur(r, c)) Then
If LCase(Right(ur(r, c), sz)) = STR1 Then
ur(r, c) = Left(ur(r, c), Len(ur(r, c)) - sz) & STR2
End If
End If
Next
Next
ws.UsedRange = ur
Next
End Sub
</code></pre>
<hr/>