由於受人之託,處理名單可是上頭都沒有郵遞區號(村里長名單,在內政部網站可以下載)
想到了中華郵政有3+2的郵遞區號轉檔程式可以使用
但是沒想到我在用的時候困難重重,還沒辦法轉成才糟糕
所以只好自己寫了一小段VBA程式來處理

Sheet1 為名單
點擊在新視窗中瀏覽此圖片
Sheet2 為 郵遞區號 table表,格式為 (鄉鎮市區,區碼)
點擊在新視窗中瀏覽此圖片

在名單資料中有一個重要的地方是在有一個鄉鎮市的欄位,所以為了比較方便使用了該欄位做為比對的欄位

用了 迴圈,判斷式,字串比對 三個基本的指令

i = 1
j = 1
For i = 2 To 7833
    For j = 1 To 392
        If InStr(Sheet1.Cells(i, 2), Sheet2.Cells(j, 1)) = 1 Then
          Sheet1.Cells(i, 8) = Sheet2.Cells(j, 2)
          Exit For
       End If
    Next
Next

不是我不想用3+2碼,而是3碼,反正還是寄的到...
下次中華郵政的3+2碼的產生軟體可以聰明一些,那3+2碼才會有人用
評論(0) | 引用(0) | 閱讀(2646)
發表評論
暱稱 [註冊]
密碼 訪客無需密碼
網址
電郵
開啟HTML 開啟UBB 開啟表情 隱藏 記住我