准备弃游了,忽然觉得这游戏没意思~
明天再更一天,4月开始就不更了,你们自己去算哈
这个Excel宏,把中文万和亿统一拉成数字的,自取
Sub test()
Dim mark, rng, i
mark = Split("万 10000 亿 100000000")
Application.ScreenUpdating = False
On Error GoTo errmsg
For Each rng In ActiveSheet.UsedRange
If Len(rng) > 0 And Not IsNumeric(rng) Then
For i = 0 To UBound(mark) Step 2
If InStr(rng, mark(i)) > 0 Then
Cells(rng.Row, rng.Column) = Val(Replace(rng, mark(i), vbNullString)) * Val(mark(i + 1))
End If
Next
End If
Next
Application.ScreenUpdating = True
Exit Sub
errmsg:
Application.ScreenUpdating = True
End Sub