vba案例:字符串函数的应用

需求

提取人员主要信息，路、号、室

解决

Option Explicit

Sub 提取主要信息()
     'jtzz:家庭住址；xxzz详细住址；S室
     'hao门牌号, lu路, H取值的行号， H1写值得行号
    Dim jtzz, xxzz, hao, lu, H, H1, S
     '从第二行开始查找
    H = 2
     '从第十三行开始写值
    H1 = 13
    Do While Cells(H, 1) <> ""
        For H1 = 13 To 21 Step 1
            jtzz = Cells(H, 2)
            lu = InStr(jtzz, "—")
            xxzz = Cells(H, 3)
            hao = InStr(xxzz, "号")
            Cells(H1, 2) = Mid(jtzz, lu) '路
            Cells(H1, 3) = Left(Mid(xxzz, hao - 2), 3) '号
            Cells(H1, 4) = Mid(xxzz, hao + 1) '室
            H = H + 1
        Next H1
    Loop
End Sub