如何在Excel中插入大寫字母之前的空格？

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

1^# 跳轉到 »

發表於 2018-10-23 19:49 | 顯示全部帖子

回復 2# n7822123

Option Explicit
Sub Ex()
Dim A As Range, B As Variant, i As Integer
For Each A In Range("A1", Range("A1").End(xlDown)) 'A1 往下到最後一筆資料
B = ""
For i = 1 To Len(A)
If Mid(A, i, 1) Like "[A-Z]" Then B = IIf(B = "", Mid(A, i, 1), B & "," & Mid(A, i, 1))
'找到大寫的字母導入變數
Next
If B <> "" Then '有找到大寫的字母
B = Split(B, ",") '找到大寫字母的陣列
For i = 0 To UBound(B)
A = Replace(A, B(i), " " & B(i)) '加入空格
Next
Do While InStr(A, Space(2)) '包含有兩格的空白字元
A = Replace(A, Space(2), Space(1)) '消除兩格的空白字元為一格的空白字元
Loop
End If
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 有時當思無時苦，好天要積雨來糧。