Question

VB如何将excel 表格 中 A列 里的所有文字清空，只保留数字

好像我还没有说明白问题
我想用vb来做一个软件来提取excel表格 A列里最大值的数字
代码一下：
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub Command1_Click()
Dim IntT As Long, IntZj As Integer, IntH As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(App.Path & "\2.xls")
xlApp.Visible = False

IntT = 0
For IntZj = 4 To 33
If xlApp.Worksheets("1-1-3").Range("A1").Cells(IntZj, 1) > IntT Then
IntT = xlApp.Worksheets("1-1-3").Range("A1").Cells(IntZj, 1)
End If
Next IntZj
Text1 = IntT
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

可惜excel 表格A列中出现文字，导致无法读取最大值！我只想用VB去掉A列文字只保留数字。让VB读取到数字最大值

Answer 1

1 把以下函数复制到代码框，就得到 =数字（） 这个自定义函数
Function 数字(var1 As Range)
K = Len(var1)
For I = 1 To K
If IsNumeric(Mid(var1, I, 1)) = True Then
数字 = 数字 & Mid(var1, I, 1)
End If: Next
End Function
2 例如在B1 输入 =数字（A1) 就得到A1单元格的纯数字，往下填充即可

Answer 2

自定义一个函数，作用就是将单元格里的数据从第一位到最后一位进行匹配，不为数字就舍掉，为数字就保留，isnumeric是判断是否为数值的函数，配合它使用。

Answer 3

你可以在excel里，菜单，格式，选择条件格式，根据你在单元格中可能更改的数字数值，定义一些条件，不同的条件对应不同的格式，格式里可以选择颜色。 ...