用VBA去除表格中的数字

最新推荐文章于 2025-05-13 12:00:00 发布

空空橙

最新推荐文章于 2025-05-13 12:00:00 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏：办公软件技巧

本文链接：https://blog.youkuaiyun.com/weixin_41158001/article/details/80468400

办公软件技巧专栏收录该内容

5 篇文章

订阅专栏

Sub RemoveNum()
'Updateby20131129
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[0-9.]" Then
            xStr = ""
        Else
            xStr = xTemp
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub