求助大神帮忙！！！

lqh9724

详情看图片和附件，工作簿内有许多的地址，我需要提取里面的关键字，统计“村，乡，镇，县，区，市”所占的比例，即提取地址中的“村、乡、镇、县、区、市”关键字，从村起提取，若有关键字“村”写入到左边单元格中停止提取该数据的其他关键字，若没有关键字“村”则查找下一个关键字“乡，镇，县，区”直到提取到“市”。希望大神帮忙，试过了好多方法，由于地址长度不固定真的没辙了==

pythonword

使用VBA，先在G列提取出文字，然后用countif直接统计

工作簿1.rar (563.64 KB, 下载次数: 1)

2017-7-26 16:01 上传

点击文件名下载附件

1. Sub Findtxt()
   
2.     With ThisWorkbook.ActiveSheet
   
3.         Dim i As Integer, strTxt As String
   
4.         For i = 2 To 26428
   
5.             strTxt = .Cells(i, 6).Text
   
6.             If InStr(strTxt, "村") Then
   
7.                 .Cells(i, 7).Value = "村"
   
8.             ElseIf InStr(strTxt, "乡") Then
   
9.                 .Cells(i, 7).Value = "乡"
   
10.             ElseIf InStr(strTxt, "镇") Then
    
11.                 .Cells(i, 7).Value = "镇"
    
12.             ElseIf InStr(strTxt, "县") Then
    
13.                 .Cells(i, 7).Value = "县"
    
14.             ElseIf InStr(strTxt, "区") Then
    
15.                 .Cells(i, 7).Value = "区"
    
16.             ElseIf InStr(strTxt, "市") Then
    
17.                 .Cells(i, 7).Value = "市"
    
18.             Else
    
19.                 .Cells(i, 7).Value = "无"
    
20.             End If
    
21.         Next
    
22.     End With
    
23.     MsgBox "提取填充完毕"
    
24. End Sub
    

复制代码

lqh9724

pythonword 发表于 2017-7-26 16:02
使用VBA，先在G列提取出文字，然后用countif直接统计

非常感谢！但是有个问题，在excel2016下运行宏直接卡死了，也没有出错的提示，是否是数据量太大的问题，测试了在win10下的excel2016和在macOS下的excel2016运行宏结果都是一样，卡着三五分钟没有反应，只能强制退出