VBA 地址轉換一問

excel vba

cyris 2022-01-06 16:19:51 ‧ 724 瀏覽

分享至

公司的program 會把每天的訂單匯出成excel

excel 需要把資料轉換如下

original data

■company code■
Mr. ABC
〒100
ABC-COMPNAY,1F.-1, No.1-1, Sub-Alley 12, Aly. 234, Ln. 12, 1st Neighborhood, Xiahou'an, Jinning Township, Kinmen County 892010, Taiwan (R.O.C.)
TEL:1234567
商品名稱１
商品名稱２

Mr. BCD
〒207
BCDEF-COMPNAY,10F, 2, No.23-1, Sub-Alley 12, Aly. 234, Ln. 12, 1st Neighborhood, Xiahou'an, Jinning Township, Kinmen County 892111, Taiwan (R.O.C.)
TEL:2345-678910
商品名稱１
商品名稱２
商品名稱3

■company code■
Mr. LAM
〒3021
BCDF-COMPNAY,4F, 21, No.267-1, Sub-Alley 100, Aly. 24, Ln. 12, 1st Neighborhood, Xiahou'an, Jinning Township, Kinmen County 892111, Taiwan (R.O.C.)
TEL:2345-6710
商品名稱１
商品名稱２
商品名稱3
商品名稱3

需要轉換格式為以下
■company code■
Mr. ABC
ABC COMPANY,
1F.-1, No.1-1, Sub-Alley 12, Aly. 234, Ln. 12, 1st Neighborhood,
Xiahou'an, Jinning Township,
Kinmen County 892010,
Taiwan (R.O.C.)
Postal:100　TEL:1234567

有沒有大大懂呢?

看更多先前的討論...收起先前的討論...

player iT邦大師 1 級 ‧ 2022-01-06 19:08:03 檢舉

地址要弄自動斷行，會有斷錯的風險喔
如果你還堅持要用VBA處理斷行的話
從地址的字串最後開始找逗點字元
看那些要斷行
可是出錯的機會很大

另見
國際郵件橫式信封書寫方式
https://www.post.gov.tw/post/internet/Postal/index.jsp?ID=21003

cyris iT邦新手 5 級 ‧ 2022-01-07 11:14:23 檢舉

你好

請問找斷點的是用left 這個吧

如果不是vba,有其他方法嗎?

blanksoul12 iT邦研究生 5 級 ‧ 2022-01-07 13:00:47 檢舉

每個資料是在一格內還是這是一行行的?
公司名是第一個 "," 前,Kinmen County 892111 和 Taiwan (R.O.C.) 是最尾的 "," 的前後段. 如果肯定是這個安排的話 (公司名一定不會出現 "," , 最後和尾二又一定不會是空或其他東西). 這個可以用 vba 解決吧

blanksoul12 iT邦研究生 5 級 ‧ 2022-01-07 13:19:05 檢舉

實驗
A1 放 BCDF-COMPNAY,4F, 21, No.267-1, Sub-Alley 100, Aly. 24, Ln. 12, 1st Neighborhood, Xiahou'an, Jinning Township, Kinmen County 892111, Taiwan (R.O.C.)

A2 放 =RIGHT(A1,LEN(A1)-FIND("|",SUBSTITUTE(A1,",","|",LEN(A1)-LEN(SUBSTITUTE(A1,",",)))))
數組公式要按三鍵