返回列表 上一主題 發帖

[發問] 地址資料分割成多欄

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
1# 跳轉到 »
發表於 2021-11-18 10:05 | 顯示全部帖子
回復 1# aer

請測試看看，謝謝
Sub test()
Dim Arr, a, i&
Arr = Range([d1], [a65536].End(3))
For i = 2 To UBound(Arr)
    Arr(i, 2) = Left(Arr(i, 1), 3)
    a = Mid(Arr(i, 1), 4)
    If InStr(a, "鄉") Then
        Arr(i, 3) = Split(a, "鄉")(0) & "鄉"
        Arr(i, 4) = Split(a, "鄉")(1)
    ElseIf InStr(a, "鎮") Then
        Arr(i, 3) = Split(a, "鎮")(0) & "鎮"
        Arr(i, 4) = Split(a, "鎮")(1)
    ElseIf InStr(a, "市") Then
        Arr(i, 3) = Split(a, "市")(0) & "市"
        Arr(i, 4) = Split(a, "市")(1)
    ElseIf InStr(a, "區") Then
        Arr(i, 3) = Split(a, "區")(0) & "區"
        Arr(i, 4) = Split(a, "區")(1)
    End If
Next
Range("a1").Resize(UBound(Arr), 4) = Arr
End Sub

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題