EXCEL用VBA 编写替换指定列中的空格键、TAB键、换行键、乱字符（如：?、~、*）

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以下复制就行了.