佳木斯2路公交车

佳木斯-2路公交车　 [我来录入]　[我来英语问路]2路公交车交通路线　下县电力线路　6:00--18:00上行速度:　岩棉厂 -- 发电厂四企业 -- 佳东地下商场 -- 佳东信用社 -- 造纸机械设备机构 -- 南汇华联商厦 -- 长胜路右 -- 第十加油战 -- 工具厂 -- 农垦四合院 -- 友好路右 -- 慧康机构 -- 第五医院 -- 十六中 -- 妇幼保健院 -- 十五小 -- 佳西电业局 -- 绿色蔬菜服务厅 -- 佳第二年三院 -- 重庆长安居委 -- 边防支队 -- 气象部门 -- 交警支队 -- 行政处大楼引血:　行政处大楼 -- 交警支队 -- 气象部门 -- 边防支队 -- 重庆长安居委 -- 佳第二年三院 -- 绿色蔬菜服务厅 -- 佳西电业局 -- 十五小 -- 妇幼保健院 -- 十六中 -- 第五医院 -- 慧康机构 -- 友好路右 -- 农垦四合院 -- 工具厂 -- 第十加油战 -- 长胜路右 -- 南汇华联商厦 -- 造纸机械设备机构 -- 佳东信用社 -- 佳东地下商场 -- 发电厂四企业 -- 岩棉厂

Excel一列中有很多数据，有以字母开头的，也有以数字开头的，如何将以字母开头的筛选出来，

function abc(s as string)if left(s,1) like "#" thenabc="数字开头"elseabc="字母开头"end ifend function其实可以马上选用现有的数学函数来排解这个大问题套利定价理论数据在A列在B1插入图表=if(and(left(a1)>="0",left(a1)<="9"),"数字开头","其它")

数学函数编到挺好，若数据在A列，则在A列后增高一捕助列，B2中插入图表=abc(A1)，而后可以B2的值电脑自动筛选。

你马上将楼下的图表装贴过到某列也可以

=IF(AND(LEFT(A1,1)>=48,LEFT(A1,1)<=57),"数字",IF(OR(AND(LEFT(A1,1)>=65,LEFT(A1,1)<=90),AND(LEFT(A1,1)>=97,LEFT(A1,1)<=122)),"字母","其他"))

'方式1Function abc(S As String)Dim I%, Y%For I = 1 To Len(S)If Mid(S, I, 1) Like "[0-9]" ThenY = Y + 1End IfNextIf Y > 0 Thenabc = "出现数字"Elseabc = "不出现数字"End IfEnd Function'方式2Function abc2(S As String)With CreateObject("VBScript.regexp") '正则表达式.Global = True.Pattern = "\d+"If .test(S) Thenabc2 = "出现数字"Elseabc2 = "不出现数字"End IfEnd WithEnd Function