返回列表 上一主題 發帖

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

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

請問地址資料要分割成多欄 B2、C2公式?謝謝!

Image 2.jpg
2021-11-18 08:17


地址.zip (9.04 KB)

隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

回復 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

回復 2# hcm19522

公式測試沒問題,感謝您!

TOP

回復 3# samwang

測試沒問題,感謝您!

TOP

B2:
=LEFT(A2,3)

C2:
=MID(LEFT(A2,-LOOKUP(,-FIND({"鄉","鎮","市","區"},A2,4))),4,9)

D2:
=MID(A2,LEN(B2&C2)+1,99)

若地址規則不確定, 要另想辦法~~

TOP

回復 6# 准提部林

測試沒問題,感謝您!

TOP

本帖最後由 ML089 於 2021-11-19 13:12 編輯

地址公式很難100%完全是對的
建議公式處理完還是要逐筆看看,才不會誤事。
尤其離島、山區的地址要格外小心。

上網查看110年行政區名與路名
縣市 3個字
鄉鎮市區 最多4個字
路名 最多9個字
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 不怕事多,只怕多事。
返回列表 上一主題