　暱稱: 伊恩

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2022-8-24 09:04 | 只看該作者

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

請問VBA要如何在同一儲存格中，在英文字的前面插入空格?
如下圖左邊處理前，右邊處理後。

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

14^#

發表於 2022-12-15 11:11 | 只看該作者

回復 2# Andy2483

修正自己的認知
j = Trim(Mid(j, 1, x - 1)) & " " & Mid(j, x, c * 2) 改為
j = Trim(Mid(j, 1, x - 1)) & " " & Mid(j, x)即可
當初學習時還在考慮 length 要用多少??

https://learn.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/mid-function
Mid(string, start, [ length ])
string 必要。字串運算式的功能是會從中傳回字元。如果字串包含 Null，則傳回 Null。
start 必要；Long。 string 中要擷取做為開始部分的字元位置。如果 start 中的字元數大於 string，則 Mid 會傳回零長度字串 ("")。
length 選用；Variant (Long)。要傳回的字元數。如果省略此參數，或是字元數少於文字中的 length 字元 (包含 start 所在的字元)，就會傳回從 start 位置開始一直到字串結尾的所有字元。

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

13^#

發表於 2022-9-3 11:57 | 只看該作者

回復 12# 准提部林
謝謝前輩指導

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

12^#

發表於 2022-9-3 10:48 | 只看該作者

回復 2# Andy2483

If Mid(j, x, 1) Like "[A-z]" Then 大小通吃~~

TOP

samwang

大學生 Rank: 4

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

11^#

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

回復 samwang
請問Arr要怎樣才能抓跨行的資料呢?
因為在這行就出錯了
s13030029 發表於 2022-8-25 10:29

請再測試看看，謝謝
Sub test()
Dim Arr, a, T, i&, x, j%
Arr = Range([A1], [A65536].End(3).Offset(1, 0))
For i = 1 To UBound(Arr) - 1
a = Split(Trim(Arr(i, 1)), Chr(10))
For x = 0 To UBound(a)
      For j = 2 To Len(a(x))
         T = UCase(Mid(a(x), j))
         If Asc(T) > 64 And Asc(T) < 123 Then
            If Cells(i, 2) = "" Then
                  Cells(i, 2) = Replace(a(x), T, " " & T)
            Else
                  Cells(i, 2) = Cells(i, 2) & Chr(10) & Replace(a(x), T, " " & T)
            End If
         End If
      Next
Next
Next
End Sub

TOP

s13030029

　暱稱: 伊恩

中學生 Rank: 2

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

10^#

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

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

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

TOP

s13030029