sub 截取地址()
Dim a, b, i As Integer
Dim str1, str_address As String
a = Sheets(1).[a65536].End(xlUp).Row
For i = 1 To a
str1 = Sheets("sheet1").Cells(i, 1).Value
If str1 Like "*市*" Then
str_address = Split(str1, "市")(0)
Sheets("sheet1").Cells(i, 2).Value = str_address & "市"
End If
Next
end sub
追问这是个宏代码吗?不太懂整这个,最好有函数组合