用vba修改单元格内容
答案:3 悬赏:70
解决时间 2021-01-20 18:34
- 提问者网友：沉默的哀伤
- 2021-01-19 20:10
用vba修改单元格内容
最佳答案
- 二级知识专家网友：醉吻情书
- 2021-01-19 21:01
Sub test()
Range("A1") = Trim(Replace(Replace(Range("A1"), "，", ""), ",", ""))
End Sub
这样不管你的逗号是半角还是全角，全搞定了，空格也去了。
Range("A1") = Trim(Replace(Replace(Range("A1"), "，", ""), ",", ""))
End Sub
这样不管你的逗号是半角还是全角，全搞定了，空格也去了。
全部回答
- 1楼网友：夜风逐马
- 2021-01-19 22:47
这个不一定需要VBA，Excel里也有函数Replace
- 2楼网友：佘樂
- 2021-01-19 21:33
去掉所有非数字字符
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
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
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯