包含家庭地址的单元格是否可以用VBA拆分

dongfgdwdjg · 发表于 2016-8-2 22:01

gbgbxgb 发表于 2016-8-2 21:30
谦虚好学，赞一个，下列代码供参考：
Set reg = CreateObject("VBScript.RegExp")
Wit ...

gbgbxgb老师是搞美学的吧，这么在意美观，值得我们学习。

dongfgdwdjg · 发表于 2016-8-2 22:06

gbgbxgb 发表于 2016-8-2 21:30
谦虚好学，赞一个，下列代码供参考：
Set reg = CreateObject("VBScript.RegExp")
Wit ...

修改后的那段第一句就卡住了，好象.Cells出了问题，反正它变黑色了。呵呵

dongfgdwdjg · 发表于 2016-8-2 22:10

wuliu56 发表于 2016-8-2 21:59
其实那位老师已经给出了最核心的东西，也就是正则表达式。你想要的效果最最主要的就是依靠正则表达式。其 ...

有道理，谢过指教。回头向gbgbxgb老师道谦一个。

dongfgdwdjg · 发表于 2016-8-2 22:14

gbgbxgb 发表于 2016-8-1 21:35
某些人玩正则玩上瘾了，有兴趣的琢磨下：
.Pattern = "^(([^省]+省)|(.+自治区))?([^市]+市)?([^市区县]+( ...

楼下说你给出的那句代码是正则核心，只是我外行了还不能理解，先献个花来着吧。我怕等我学会了理解了再献花就晚了。呵呵

gbgbxgb · 发表于 2016-8-2 22:22

本帖最后由 gbgbxgb 于 2016-8-3 21:47 编辑

dongfgdwdjg 发表于 2016-8-2 22:14
楼下说你给出的那句代码是正则核心，只是我外行了还不能理解，先献个花来着吧。我怕等我学会了理解了再献 ...

从你的回复看，说第一句就卡住了，说明你连With结构是什么都不懂，所以估计你也看不懂代码的其它意思。

今天做个热心人吧，详情见附件。

注意：源数据第7行与第355行比较特殊，故正则表达式又作了改动。题外话，若文本的特例再多的话，如果存在相互冲突，正则将很难修改以适应这种冲突的情况，好在目前再没发现有别的特例。

附件已删除。

gbgbxgb · 发表于 2016-8-2 22:34

本帖最后由 gbgbxgb 于 2016-8-2 22:47 编辑

wuliu56 发表于 2016-8-2 21:59
其实那位老师已经给出了最核心的东西，也就是正则表达式。你想要的效果最最主要的就是依靠正则表达式。其 ...

我没为这个问题刻意出力，事实是“知我者，楼主也”，我的确是自娱自乐而写的代码，还有一个原因是看到jsgj2023写的正则不好看，不简洁，且效率也有待提高，加之其判断是否直辖市的代码也不简洁，故手痒痒写了代码，我并没刻意帮助楼主，希望jsgj2023注意到正则表达式有待改进倒是有的，故随手粘贴了正则表达式。

事后：
借此楼层纠正下，我在前面楼层说的把Select结构改为If结构可大大提高代码的效率，此叙述有误，在本例中，无法提高代码效率，因为一样要遍历所有的j，故还是保留Select结构为好。罪过，罪过，故特此纠正说法，以免后人产生困惑或砸砖。

dongfgdwdjg · 发表于 2016-8-3 07:50

gbgbxgb 发表于 2016-8-2 22:34
我没为这个问题刻意出力，事实是“知我者，楼主也”，我的确是自娱自乐而写的代码，还有一个原因是看到js ...

gbgbxgb老师善于总结，勇于自我批评，真大家风范！值得学习！

jsgj2023 · 发表于 2016-8-4 12:40

gbgbxgb 发表于 2016-8-2 22:34
我没为这个问题刻意出力，事实是“知我者，楼主也”，我的确是自娱自乐而写的代码，还有一个原因是看到js ...

感谢您的指导。

jsgj2023 · 发表于 2016-8-4 12:41

dongfgdwdjg 发表于 2016-8-2 22:06
修改后的那段第一句就卡住了，好象.Cells出了问题，反正它变黑色了。呵呵

Sub ddd()
Sheets("家庭住址").Activate
Arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
ReDim brr(1 To UBound(Arr) - 1, 1 To 5)
a = VBA.Array("北京市", "天津市", "上海市", "重庆市")
Set Reg = CreateObject("VBScript.RegExp")
With Reg
.Pattern = "^(([^省]+省)|(.+自治区))?([^市]+市)?([^区县]+(市|[^小]区|县))?(.+(街道办事处|街道办|街道|[^小]镇|乡))?(.+)?"
For i = 2 To UBound(Arr)
theStr = Arr(i, 1)
If theStr <> "" Then
Set theMatches = .Execute(theStr)
With theMatches(0)
For j = 0 To 8
theStr = .submatches(j)
If j = 0 Then
If theStr <> "" Then
brr(i - 1, 1) = theStr
Else
brr(i - 1, 1) = "山东省"
End If
ElseIf j = 3 Then
For k = 0 To UBound(a)
If theStr = a(k) Then
theProvinceYes = True
Exit For
End If
Next k
If Not theProvinceYes Then
brr(i - 1, 2) = theStr
Else
brr(i - 1, 1) = theStr
theProvinceYes = False
End If
ElseIf j = 4 Then brr(i - 1, 3) = theStr
ElseIf j = 6 Then brr(i - 1, 4) = theStr
ElseIf j = 8 Then brr(i - 1, 5) = theStr
End If
Next j
End With
End If
Next i
End With
Sheets("家庭住址").Cells(2, 3).Resize(UBound(brr), UBound(brr, 2)) = brr
Range("c:g").EntireColumn.AutoFit
End Sub

复制代码

结合gbgbxgb 老师的代码，修改如下：

jsgj2023 · 发表于 2016-8-4 12:48

gbgbxgb老师代码的附件。

		自动登录	找回密码
密码			免费注册

[求助] 包含家庭地址的单元格是否可以用VBA拆分

评分

评分