EXCEL里,怎么样从地址中提取县和市的信息。

[复制链接]
查看11 | 回复5 | 2011-12-15 10:44:18 | 显示全部楼层 |阅读模式
用VBA编写一个自定义函数,就可以很好解决,不会出现错漏。 下面就是一个自定义函数(用来提取特定字符时,功能非常强大):Function TEXTRACT(Text, Patrn, Optional ByVal fgf As String = "")
Dim regEx, Match, Matches
' 建立变量。
Set regEx = CreateObject("vbScript.regexp") 'New RegExp
' 建立正则表达式。
regEx.Pattern = Patrn
' 设置模式。
regEx.IgnoreCase = Tru...
回复

使用道具 举报

千问 | 2011-12-15 10:44:18 | 显示全部楼层
=RIGHT(LEFT(A1,IF(ISNUMBER(FIND("县",A1)),FIND("县",A1),IF(ISNUMBER(FIND("市",A1,FIND("市",A1)+1)),FIND("市",A1,FIND("市",A1)+1),FIND("市",A1)))),3)...
回复

使用道具 举报

千问 | 2011-12-15 10:44:18 | 显示全部楼层
教你一个简单的方法,把里面包括省的替换为省逗号,市替换为市逗号,县替换为县逗号,区替换为区逗号,替换完后点击数据-分列-用特定的符号分列-用逗号分列。这样就可以分列你导出的地址...
回复

使用道具 举报

千问 | 2011-12-15 10:44:18 | 显示全部楼层
把下面的代码复制到代码窗口,在 B2 输入公式 = aName(A1)其他复制公式即可。代码如下:Function aName(T) As String
P = T
Dim A() As String
A = Split(P, " ", -1)
For i = UBound(A, 1) To 0 S...
回复

使用道具 举报

千问 | 2011-12-15 10:44:18 | 显示全部楼层
你确定导入的地址在一个单元格内并且用空格分开的?...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行