當前位置:成語大全網 - 新華字典 - VBA val(AA120)返回是0,怎麽才能返回120?

VBA val(AA120)返回是0,怎麽才能返回120?

這個就比較煩了,我能想到的只有把該字符串分割成壹個壹個的字符,組成數組,然後判斷替換,只剩下數字再組合成字符串,用VAL()提取

下面這段代碼大概是這個意思,

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