如何去除EXCEL表格中的文字、字母，保留数字、括号、数*算符？

发布网友 发布时间：2022-04-23 08:57

我来回答

共2个回答

热心网友 时间：2023-10-08 23:30

Function text2(t As String)
Dim i As Integer
Dim x As String
t = WorksheetFunction.Asc(t)
For i = 1 To Len(t)
    x = Mid(t, i, 1)
    If Asc(x) > 39 And Asc(x) < 58 And Asc(x) <> 44 Or Asc(x) = 37 Then text2 = text2 & x 
Next
End Function

Sub 批量处理()'选中要处理的单元格，转换成数值
Dim i As Integer, r As Long, c As Long
Dim x As String, t As String, t2 As String
Dim rng As Range
Dim rng1 As Variant
On Error Resume Next
Set rng1 = Application.InputBox("请选择结果输出的单元格", "选择", Type:=8)
If rng1 Is Nothing Then Exit Sub
On Error GoTo 0 
r = Selection.Range("a1").Row
c = Selection.Range("a1").Column
For Each rng In Selection
    If rng <> "" Then
    t2 = Chr(61)
    t = WorksheetFunction.Asc(rng)
        For i = 1 To Len(rng)
            x = Mid(t, i, 1)
            If Asc(x) > 39 And Asc(x) < 58 And Asc(x) <> 44 Or Asc(x) = 37 Then t2 = t2 & x
        Next
    rng1.Range("a1").Offset(rng.Row - r, rng.Column - c).Formula = t2
    End If
Next
End Sub

热心网友 时间：2023-10-08 23:30

这公式中就是长、宽、m，直接用查找替换，将以上汉字、m替换为空就可以了，很简单。