如何将省份区域用公式拆分

cici_xue19 · 发表于 2013-6-21 14:24

详细的请大家看附件！！谢谢大家了！！！

38272508 · 发表于 2013-6-21 14:53

等待有解。。。。。。。。。。。。。。。。。。。。。。

hustnzj · 发表于 2013-6-21 15:35

数据源的规律在哪里？貌似很难有解！！

cici_xue19 · 发表于 2013-6-21 15:36

hustnzj 发表于 2013-6-21 15:35
数据源的规律在哪里？貌似很难有解！！

就是因为没有规律。。。。所以才想问问高手

hustnzj · 发表于 2013-6-21 15:47

cici_xue19 发表于 2013-6-21 15:36
就是因为没有规律。。。。所以才想问问高手

没有规律，神仙也不行

amazeyeli · 发表于 2013-6-21 16:37

以前写过,不过人家有一份全国省市区所有的记录,做起来就简单了,你的嘛,呵呵

xsy我可以很好 · 发表于 2013-6-22 09:40

我的公式有待高手完善

省份.rar (4.55 KB, 下载次数: 15)

ASLXT · 发表于 2013-6-23 19:38

必须要书写规范才可以,
第一级关键字:省/市/自治区
第二级关键字:市/区/州
到地市这一级还是可以用VBA来处理,后面的情况很难.

cici_xue19 · 发表于 2013-6-24 10:37

xsy我可以很好发表于 2013-6-22 09:40
我的公式有待高手完善

但是有一些明显的还是没有分出来啊，就比如上海。。。怎么办啊

ASLXT · 发表于 2013-6-24 13:45

本帖最后由 ASLXT 于 2013-6-24 13:46 编辑

试一下用vba：添加一个按钮，按钮的事件代码如下：
Dim i, j, k, l
Dim str
For i = 2 To  Me.UsedRange.Rows.Count '遍历所有行
      str = Cells(i, 1)
      For j = 1 To Len(str) '遍历所有字符，查找省市自治区的关键字
         If InStr(1, "省市区", Mid(str, j, 1)) > 0 Then
            Cells(i, 2) = Left(str, j)
            For k = j To Len(str) '遍历所有字符，查找地市州的关键字
                  If InStr(1, "市州", Mid(str, k, 1)) > 0 Then '如何排除“湖州市”这样既有“州”又有“市”的地名？
                     Cells(i, 3) = Mid(str, j + 1, k - j)
                     For l = k To Len(str) '遍历所有字符，查找市县区的关键字
                        If InStr(1, "市区县", Mid(str, l, 1)) > 0 Then
                              Cells(i, 4) = Mid(str, k + 1, l - k)
                              Cells(i, 5) = Mid(str, l + 1)
                        End If
                     Next l
                     Exit For '找到所需字符就退出循环
                  End If
            Next k
            Exit For '找到所需字符就退出循环
         End If
      Next j
Next i
切换到运行模式，点击按钮...

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