VBA宏无法清除单元格非数字内容问题求助

你的宏能循环遍历行但无法清理数据，核心问题是没有将函数处理后的结果写回单元格，同时还有几处语法/逻辑细节问题，具体修正点如下：

• 调用函数时，既没有传递当前单元格的实际内容，也未把函数返回的清理结果赋值回单元格。原代码里的RemoveAllNonNums (A1)没有指向当前选中单元格，且未将处理结果写入单元格。
• 函数参数设为String类型，若单元格是数值型数据会触发类型不匹配错误，应改为Variant兼容多种数据类型。
• 多余的Range("A1")嵌套选择，ActiveCell.Offset(1, 0).Select即可完成行跳转，无需额外嵌套。

修正后的完整代码 #

Sub Phonetest1()
    ' 从当前选中单元格开始处理
    Do
        ' 将函数处理后的结果写回当前单元格
        ActiveCell.Value = RemoveAllNonNums(ActiveCell.Value)
        ' 移动到下一行
        ActiveCell.Offset(1, 0).Select
    ' 循环直到当前行完全为空
    Loop Until Application.CountA(ActiveCell.EntireRow) = 0
End Sub

Function RemoveAllNonNums(myCell As Variant) As String
    Dim myChar As String
    Dim x As Integer
    Dim result As String
    
    result = ""
    ' 先将输入转为字符串，避免数值类型报错
    Dim cellText As String
    cellText = CStr(myCell)
    
    For x = 1 To Len(cellText)
        myChar = Mid(cellText, x, 1)
        ' 判断是否为数字字符
        If Asc(myChar) >= 48 And Asc(myChar) <= 57 Then
            result = result & myChar
        End If
    Next
    ' 返回纯数字字符串，避免长号码丢失精度
    RemoveAllNonNums = result
End Function

额外优化说明 #

• 把函数返回值从Val(i)改为直接返回字符串result，防止长电话号码（超过15位）被自动转为科学计数法或丢失精度。
• 增加CStr(myCell)将输入转为字符串，确保数值型单元格也能正常处理。

内容的提问来源于stack exchange，提问作者MRDoubleyou