aer

帖子: 190
主題: 16
精華: 0
積分: 236
點名: 287
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-11-18 08:19 | 只看該作者

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

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

地址.zip (9.04 KB)

樓主熱帖

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-24

熱烈參與勳章

2^#

發表於 2021-11-18 09:36 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/590127392

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

3^#

發表於 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

aer

中學生 Rank: 2

帖子: 190
主題: 16
精華: 0
積分: 236
點名: 287
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

4^#

發表於 2021-11-18 10:22 | 只看該作者

回復 2# hcm19522

公式測試沒問題，感謝您！

TOP

aer

中學生 Rank: 2

帖子: 190
主題: 16
精華: 0
積分: 236
點名: 287
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

5^#

發表於 2021-11-18 10:22 | 只看該作者

回復 3# samwang

測試沒問題，感謝您！

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

6^#

發表於 2021-11-18 15:30 | 只看該作者

B2:
=LEFT(A2,3)

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

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

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

TOP

aer

中學生 Rank: 2

帖子: 190
主題: 16
精華: 0
積分: 236
點名: 287
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

7^#

發表於 2021-11-18 19:42 | 只看該作者

回復 6# 准提部林

測試沒問題，感謝您！

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

8^#

發表於 2021-11-19 11:17 | 只看該作者

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

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

上網查看110年行政區名與路名
縣市 3個字
鄉鎮市區最多4個字
路名最多9個字

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-10-21

9^#

發表於 2023-11-20 13:04 | 只看該作者

謝謝論壇,謝謝各位前輩
後學藉此帖練習VBA陣列,請各位前輩指教

執行結果:

Option Explicit
Sub TEST()
Dim Brr, Pq, Pa, Q, i&, j%, N%, c%, Y&, T$
Range([B2], Cells(Rows.Count, 1).End(xlUp)(1, 4)).ClearContents
Brr = Range([D1], Cells(Rows.Count, 1).End(xlUp))
Q = [{"鄉","鎮","市","區"}]
For i = 2 To UBound(Brr)
T = Brr(i, 1): Brr(i - 1, 1) = Left(T, 3): T = Mid(T, 4)
For j = 1 To 4
   Pq = Split(T, Q(j))
   If UBound(Pq) > 0 Then c = j: N = N + 1: Pa = Pq
Next
If N = 1 Then
   Brr(i - 1, 2) = Pa(0) & Q(c)
   Brr(i - 1, 3) = Mid(T, Len(Pa(0)) + 2)
   Else: Y = Y + 1
End If
N = 0
Next
[B2].Resize(UBound(Brr) - 1, 3) = Brr
If Y > 0 Then MsgBox "有 " & Y & " 個無法辨別!"
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP