如何在excel提取某个限定条件的数值

hanse1212

因为工作需要，要根据提取不规则的数值，aa镇是指2个字的镇名，eeefg5个字的镇名。请大神指点一下。

工作簿6.zip (8.42 KB, 下载次数: 17)

2018-8-20 11:31 上传

点击文件名下载附件

苏小亓

1. =LEFT(A2,FIND("镇",A2))

复制代码

hanse1212

苏小亓 发表于 2018-8-20 11:30

你弄的是我规范的那些，我看了一下我的表格，有很多不规则的，我已经重新修改上传了，能否再看一下

苏小亓

hanse1212 发表于 2018-8-20 11:33
你弄的是我规范的那些，我看了一下我的表格，有很多不规则的，我已经重新修改上传了，能否再看一下

你这个得用到VBA了，用普通的公式估计很麻烦。而且不能直接一步到位。

hanse1212

苏小亓 发表于 2018-8-20 11:39
你这个得用到VBA了，用普通的公式估计很麻烦。而且不能直接一步到位。

所以才发在vba板块。。。

kankan1030

Sub tt()
arr = Range("a1:a" & [a1048576].End(3).Row)
Set r = CreateObject("vbscript.regexp")
With r
    .Global = 1
    .Pattern = "[一-龥]+县[一-龥]+镇(、[一-龥]+镇)*"
    For Each Rng In arr
    Set mat = .Execute(Rng)
    For Each m In mat
       n = n + 1
       Cells(n + 1, 3) = m
    Next
    Next
End With
End Sub

hanse1212

kankan1030 发表于 2018-8-20 16:51
Sub tt()
arr = Range("a1:a" & [a1048576].End(3).Row)
Set r = CreateObject("vbscript.regexp")

出现这个，怎么解决

kankan1030

你用的office是2007以下的版本吧，【A1048576】改成【a65536】试一试

hanse1212

kankan1030 发表于 2018-8-21 10:16
你用的office是2007以下的版本吧，【A1048576】改成【a65536】试一试

我是2013的，还是不能用，你能否用我的附件弄一个能运行的出来，谢谢了

kankan1030

见附件
看看