VBA如何把字串中的英文字前插入空格?

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

2^#

發表於 2022-8-24 16:27 | 只看該作者

回復 1# s13030029

請前輩試試看

Option Explicit
Sub test()
Dim Arr, i, x, T, j$, c
Arr = Range([A1], [A65536].End(3))
For i = 1 To UBound(Arr)
j = Trim(Arr(i, 1))
c = Len(j)
For x = c To 2 Step -1
   If UCase(Mid(j, x, 1)) Like "[A-Z]" Then
      j = Trim(Mid(j, 1, x - 1)) & " " & Mid(j, x, c * 2)
   End If
Next
Arr(i, 1) = j
Next
[B1].Resize(UBound(Arr), 1) = Arr
End Sub

samwang

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

3^#

發表於 2022-8-24 18:30 | 只看該作者

回復 1# s13030029

請測試看看，謝謝

Sub test()
Dim Arr, i, x, T, j$, c
Arr = Range([A1], [A65536].End(3))
For i = 1 To UBound(Arr)
j = Trim(Arr(i, 1))
c = Len(j)
For x = c To 2 Step -1
      T = UCase(Mid(j, x, 1))
      If Asc(T) > 64 And Asc(T) < 123 Then
         Arr(i, 1) = Replace(Arr(i, 1), T, " " & T)
      End If
Next
Next
[B1].Resize(UBound(Arr), 1) = Arr
End Sub

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

4^#

發表於 2022-8-25 08:37 | 只看該作者

本帖最後由 s13030029 於 2022-8-25 08:41 編輯

回復 2# Andy2483
因為我這個是要處理同一儲存格中的字串，而且還有換行，所以在Arr的地方會有出錯。
擷取.JPG

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

5^#

發表於 2022-8-25 08:38 | 只看該作者

本帖最後由 s13030029 於 2022-8-25 08:41 編輯

回復 3# samwang
因為我這個是要處理同一儲存格中的字串，而且還有換行，所以在Arr的地方會有出錯。
擷取.JPG

samwang

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

6^#

發表於 2022-8-25 09:35 | 只看該作者

本帖最後由 samwang 於 2022-8-25 09:38 編輯

回復 samwang
因為我這個是要處理同一儲存格中的字串，而且還有換行，所以在Arr的地方會有出錯。
s13030029 發表於 2022-8-25 08:38

Arr = Range([A1], [A65536].End(3)) 改成 Arr = [a1]，for 循環移除，還有...，可以試著改看看，有問題再提出，謝謝

hcm19522

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

熱烈參與勳章

7^#

發表於 2022-8-25 10:17 | 只看該作者

函數參考
https://blog.xuite.net/hcm19522/twblog/590513450

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

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

8^#

發表於 2022-8-25 10:29 | 只看該作者

回復 6# samwang
請問Arr要怎樣才能抓跨行的資料呢?
因為在這行就出錯了

Andy2483

　暱稱: 厚臉皮的學生

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

9^#

發表於 2022-8-25 11:49 | 只看該作者

回復 8# s13030029

謝謝前輩發表此主題,請前輩再試試看
謝謝 samwang 前輩指導
後學認識了 Asc與Chr 的關係,
後學對字典觀念薄弱藉此習得把字元倒入字典中
請前輩再指導!

Option Explicit
Sub test4() '單列或多列都可以用
Dim Arr, i, x, j$, c, d, xD, T
Arr = Range([A1], [A65536].End(3).Offset(1, 0))
Set xD = CreateObject("Scripting.Dictionary")
For d = 65 To 122 '65~90是大寫 97~122是小寫
xD(d) = Chr(d)
If d = 90 Then d = 96
Next
T = Join(xD.items, "//")
For i = 1 To UBound(Arr) - 1
j = Arr(i, 1)
j = Replace(Replace(j, " ", ""), "　", "") '去除空白字元
c = Len(j)
For x = c To 2 Step -1
   If InStr(T, Mid(j, x, 1)) And Mid(j, x - 1, 1) <> vbLf Then
      j = Mid(j, 1, x - 1) & " " & Mid(j, x, c * 2)
   End If
Next
Arr(i, 1) = j
Next
[B1].Resize(UBound(Arr) - 1, 1) = Arr
Set Arr = Nothing
End Sub

　暱稱: 伊恩

帖子: 97
主題: 33
精華: 0
積分: 129
點名: 0
作業系統: Win 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-5-7
最後登錄: 2022-8-25

10^#

發表於 2022-8-25 14:25 | 只看該作者

回復 9# Andy2483
非常感謝~使用起來沒有問題!!!