当Excel函数计算中,单元格内有文字应该如何处理数据,急~~~

来源:百度知道 编辑:UC知道 时间:2024/05/02 09:47:30
在执行函数命令时要如何处理才能得出数值

你的数值是间隔插在文这中,还是一段文字,一段数字?
******************
按下ALT+F11,插入-模块,将下列代码复制入代码框.退出
然后选中你这列数据.然后运行宏.数字会在边上一列出现的.

Sub AAAA()
Dim A As String
Dim B As String
Dim C As Integer
For Each Y In Selection
C = Len(Y)
For X = 1 To C
If Asc(Mid(Y, X, 1)) >= 48 And Asc(Mid(Y, X, 1)) <= 57 Then
B = Mid(Y, X, 1)
A = A & B
End If
Next
ActiveCell.Offset(0, 1).Value = A
ActiveCell.Offset(1, 0).Select
A = ""
Next
End Sub