[發問] 想請教有關住址轉換的問題

本帖最後由 kuhsuanchieh 於 2015-7-16 15:53 編輯

因為在請每個人填寫（輸入）住址的時候，大家的寫法都會有一些不一樣，例如有人會寫鄰里，有人喜歡用阿拉伯數字（還分全、半型），有人喜歡寫國字小寫（例如：一、二、三），樓層有的寫"樓"有的寫"F"，之幾號有的用"之"有的用蚯蚓（~）還有大小隻，看到都快昏倒。

相請問各位，在VBA的程式中有沒有甚麼方法可以將住址給統一？
也就是不論住址為何，我想要讓縣市出現在A欄位、鄉鎮市區出現在B欄位、鄰里不要出現、路含以下都出現在C欄位，路段及樓層全部改為國字小寫（例如：一、二、三.......九、十），且不管寫"F"還是"Ｆ"都改成"樓"這個字，中間巷、弄、號的數字為阿拉伯數字全型，大小蚯蚓（）都變成"之"

例如：
台北市中正區八德路１段１５０５號３Ｆ　　　                →　　台北市    中正區    八德路一段１５０之５號三樓
台北市中正區八德路一段150~5號３Ｆ　　　                      →       台北市    中正區    八德路一段１５０之５號三樓
台北市中正區東門里003鄰林森南路四十三之一號                →       台北市    中正區    林森南路４３之１號
台北市中正區東門里3鄰林森南路43~1號3樓                         →       台北市    中正區    林森南路４３之１號

樓主熱帖

kuhsuanchieh

小學生 Rank: 1

帖子: 12
主題: 4
精華: 0
積分: 27
點名: 0
作業系統: Windows 7 專業版
軟體版本: Office 2013
閱讀權限: 10
性別: 男
來自: TAIWAN
註冊時間: 2015-6-18
最後登錄: 2015-11-8

2^#

發表於 2015-7-18 23:05 | 只看該作者

因為在請每個人填寫（輸入）住址的時候，大家的寫法都會有一些不一樣，例如有人會寫鄰里，有人喜歡用阿拉伯 ...
kuhsuanchieh 發表於 2015-7-16 15:51

補上範例檔案

住址格式統一.rar (185.56 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2015-7-19 10:29 | 只看該作者

回復 2# kuhsuanchieh
試試看

Option Explicit
Sub Ex()
Dim Rng As Range, A As Variant, Ar(), e As Variant, Ay(), i As Integer, x_Er As String
Ar = Array("市", "縣", "區", "鄉", "鎮") '行政區
Set Rng = Sheets("工作表1").[A2]
Do While Rng <> ""
i = i + 1
A = Rng.Text
A = Replace(A, "F", "樓")
A = Replace(A, "f", "樓")
For Each e In Ar
A = Replace(A, e, e & ",")
Next
A = Split(A, ",")
ReDim Preserve Ay(1 To i)
If UBound(A) = 2 Then
For Each e In Array("村", "里", "鄰", "?") '鄰耳有左,有右
A(2) = Replace(A(2), e, e & ",")
Next
If InStr(A(2), ",") Then
A(2) = Split(A(2), ",")(UBound(Split(A(2), ",")))
End If
A(2) = Ex_國字轉數字(A(2) & "")
'國字轉數字可自己GOOGLE練習一下
Ay(i) = A
Else
Ay(i) = Array("", "", "")
x_Er = x_Er & "," & Rng.Address(0, 0)
End If
Set Rng = Rng.Offset(1)
Loop
Rng.Parent.[b2].Resize(i, 3) = Application.Transpose(Application.Transpose(Ay)) '
If x_Er <> "" Then MsgBox Mid(x_Er, 2), Title:="住址需用手工修正"
End Sub
Function Ex_國字轉數字(x_Word As String) As String
Ex_國字轉數字 = x_Word
End Function