惠州市公交路线

需求在陈江、镇隆、新墟乘座专线车开去惠州大亚湾，然后在惠州大亚湾乘座公交线路离开新城区.

寻惠州公交车路线

坐在29路,经过4站, 走到蓝乐湾站，坐在6路,经过8站, 到达港惠大型商场站（即伊藤洋华堂）

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