==========================================================================
假如你的数据在A列,在B1中输入 =IF(COUNT(FIND({1,2,3,4,5,6,7,8,9},A1))=0,A1,"")
然后下拉填充B列便可得到A列所有不含数字的单元格。
把 If Mid(S, i, 1) Like "#" Then 改为:
If ISNUMBER(Mid(S, i, 1)) then
不是,应改为:
If IsNumeric(Mid(S, i, 1)) Then
排序一下不就行了吗。