热心网友
回答时间:2024-04-19 00:46
Sub 数字转换()
Dim i, j As Integer
On Error Resume Next
Dim rng As Range
Dim str As String
For Each rng In ActiveSheet.UsedRange
For i = 1 To Len(rng)
str = VBA.Mid(rng, i, 1)
If IsNumeric(str) Then
str = Application.WorksheetFunction.Text(str, "[DBNum1]")
rng.Characters(i, 1).Insert (str)
End If
Next
Next
End Sub
收起