求助，VBA 从地址提取区县

SMAILJQJ

九龙坡创业大道西部物贸中心B区4-1 按照自己设定的规则  提取出来是：九龙坡创业大道西部物贸中心B区

巴南区鱼洞巴县大道57-46号   提取出来是这样：巴南区鱼洞巴县

自己写的函数是这样的：
Sub QU()
    Dim q, x, i, r, j
    j = 1
    i = 1
    Do While Cells(i, 16) <> ""
        r = Cells(i, 17)
        q = InStr(r, "区")
        x = InStr(r, "县")

        Cells(i, 20) = Left(r, x)

        i = i + 1
          If Cells(j, 20) = "" Then
                Cells(j, 20) = Left(r, q)

            End If
             j = j + 1
    Loop
End Sub


我想要只提取出   地区

另外请大神帮帮看看代码有什么需要改进，最近开始学习，请指正，谢谢！

lpzxhjp

你的代码不是已经写出来了吗？