并筛选出此列中以‘省、市、区、县、镇’等结尾的行,并在此行后增加一行以‘1’为标注。
for i = 1 to activesheet.usedrange.rows.count
if mid(trim(cells(i,1).value),len(trim(cells(i,1).value)),1)="省" or _
mid(trim(cells(i,1).value),len(trim(cells(i,1).value)),1)="市" or _
mid(trim(cells(i,1).value),len(trim(cells(i,1).value)),1)="区" or _
mid(trim(cells(i,1).value),len(trim(cells(i,1).value)),1)="县" or _
mid(trim(cells(i,1).value),len(trim(cells(i,1).value)),1)="镇" or _
cells(i,2).value=1
end if
next
或是用公式 在B2写=if(or(mid(trim(a2),len(trim(a2),1)="省",mid(trim(a2),len(trim(a2),1)="市",mid(trim(a2),len(trim(a2),1)="区",mid(trim(a2),len(trim(a2),1)="县",mid(trim(a2),len(trim(a2),1)="镇"),1,"")
B3以下复制就行了.
if mid(trim(cells(i,1).value),len(trim(cells(i,1).value)),1)="省" or _
mid(trim(cells(i,1).value),len(trim(cells(i,1).value)),1)="市" or _
mid(trim(cells(i,1).value),len(trim(cells(i,1).value)),1)="区" or _
mid(trim(cells(i,1).value),len(trim(cells(i,1).value)),1)="县" or _
mid(trim(cells(i,1).value),len(trim(cells(i,1).value)),1)="镇" or _
cells(i,2).value=1
end if
next
或是用公式 在B2写=if(or(mid(trim(a2),len(trim(a2),1)="省",mid(trim(a2),len(trim(a2),1)="市",mid(trim(a2),len(trim(a2),1)="区",mid(trim(a2),len(trim(a2),1)="县",mid(trim(a2),len(trim(a2),1)="镇"),1,"")
B3以下复制就行了.
温馨提示:答案为网友推荐,仅供参考