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

function abc(s as string)if left(s,1) like "#" thenabc="数字开头"elseabc="字母开头"end ifend function其实可以直观通过自己装修的if函数来应对这个相关问题猜测数据在A列在B1录入计算公式=if(and(left(a1)>="0",left(a1)<="9"),"数字开头","其它")

if函数编进挺好，若数据在A列，则在A列后加强一辅组列，B2中录入计算公式=abc(A1)，而后可以B2的值自功筛选。

你直观将顶楼的计算公式复制粘贴到excel中没事

=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

谁知道 通化市37路公交车线路 站点。最近刚刚有的37路。谢谢！

台子春江上到到东南，经途南线，但与15路不同，不走桃江下面，15到20多分钟才有一辆。票价查询2.5元。早晚6：20首车从东南出发考虑，白天18：00最后的一辆车。

台子春江上到东南