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

迁安火车站坐几路公交汽车到公交总站？

公交：迁安12路，单趟约19.2km/h1、从迁安火车站走路约1.1km/h,运到燕钢七号门站2、上下车迁安12路,经过13站, 运到花园人家站3、走路约150米,运到迁安公交总站冲铁路线：单趟约13.4km/h始点：迁安火车站1.从始点向正南方面开始出发，运行150米，直行2.运行1.6km/h，右前方拐弯3.运行530米，朝南山新路方面，稍向右转4.运行7.2km/h，变道进入到南山二路5.沿南山二路运行1.8km/h，变道进入到南山西大街6.沿南山西大街运行490米，过左上的枫桦商厦约260米后，直行进入到祺福东路7.沿祺福东路运行490米，过左上的科技大楼，向右转进入到丰乐新路8.沿丰乐新路运行450米，直行进入到祺光东路9.沿祺光东路运行340米，运到下一站(在路面左上)下一站：迁安公交总站

迁安火车站车停可以走到广场小吃前期的了路口，乘12路公交到迁安东站。东站没有日租房，只有些小滨馆，当然你如果租一家，耍求淘宝客户带来了内似日租房的油烟净化器也可以的。15天也就三千多元吧（我未住满过，收费只是根据迁安当地人的与实前提推知的）！