想知道: 乐清市 虹桥到乐清宁康西路公交线路的信息

坐虹桥到温岭的公共汽车就好了，104省路上都有停的，你摆手他进车，到温岭站牙就是宁康西路

虹桥到温岭，北站就是宁康西路上的旅游凌源站，站内104老省路往西都是宁康西路，直到万岙那里

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的值主动筛选。

你直接性将地上的条件函数黏贴到word表格就可以了

=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