下面這段代碼大概是這個意思,
Sub FW()
Dim arr, rng As Range, r%
For Each rng In ActiveSheet.UsedRange
If Len(rng.Value) > 0 Then
ReDim arr(1 To Len(rng.Value))
For r = 1 To Len(rng.Value)
arr(r) = Mid(rng.Value, r, 1)
Next r
For r = 1 To UBound(arr)
If Asc(arr(r)) < 48 Or Asc(arr(r)) > 57 Then
arr(r) = ""
End If
Next r
rng.Value = IIf(Val(Join(arr, "")), Val(Join(arr, "")), "")
End If
Next rng
End Sub