- 帖子
- 154
- 主題
- 1
- 精華
- 0
- 積分
- 200
- 點名
- 31
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2024-11-28
|
2#
發表於 2024-5-9 03:40
| 只看該作者
本帖最後由 quickfixer 於 2024-5-9 03:45 編輯
回復 1# hugh0620
沒有原始出處可看,我不知道你的原PO的環境如何,原PO處理的資料可能沒像你的這麼單純
試了word完全轉不了那些亂碼,出來的還是亂碼:dizzy:
你的原PO居然可以想到用Windows-1252,去處理沒辦法轉換的亂碼,很高明的技巧
你改用一格一格轉
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, r As Integer, c As Integer
For i = 3 To 10
Range("b" & i) = Replace(encode_fix(Range("a" & i), "big5", "Windows-1252"), "???", "")
Next i
End Sub
|
|
