Question

用vba修改单元格内容

A1单元格内有“11，，”，想要把逗号去掉，只保留数字，请教高手，如何用vba实现

Answer 1

Sub test()
Range("A1") = Trim(Replace(Replace(Range("A1"), "，", ""), ",", ""))
End Sub
这样不管你的逗号是半角还是全角，全搞定了，空格也去了。

Answer 2

这个不一定需要VBA，Excel里也有函数Replace

Answer 3

去掉所有非数字字符
Sub AAA()
Dim i As Long, Str As String
For i = 1 To Len(Range("A1"))
If IsNumeric(Mid(Range("A1").Text, i, 1)) Then
Str = Str & Mid(Range("A1").Text, i, 1)
End If
Next
Range("A1").Value = Str
End Sub