文章僅做記錄，方便下次使用
目錄
1知残、需求
按大寫字母將字段分列靠瞎，實現(xiàn)下圖結(jié)果
2、實現(xiàn)方法
1）編寫VBA代碼，自定義函數(shù)
2）使用函數(shù)乏盐，實現(xiàn)功能：遇見大寫字母則前面空格
3）按空格分開
正文
一佳窑、編寫VBA代碼，自定義函數(shù) SplitWords
1父能、按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口
2神凑、點擊右鍵 插入 > 模塊
3、將以下代碼粘貼到 模塊 窗口
Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
Dim I As Integer
SplitWords = Left(Str, 1)
For I = 2 To Len(Trim(Str))
If (Asc(Mid(Str, I, 1)) > 64) And _
(Asc(Mid(Str, I, 1)) < 91) And _
(Mid(Str, I - 1, 1) <> " ") Then _
SplitWords = SplitWords & " "
SplitWords = SplitWords & Mid(Str, I, 1)
Next
End Function
4何吝、Ctrl + s 保存并關(guān)閉VBA編寫界面溉委，返回工作表
二、使用函數(shù)爱榕，實現(xiàn)功能：遇見大寫字母則前面空格
1瓣喊、輸入公式： = splitwords（A2）
2、然后將填充手柄向下拖動到要應用此公式的單元格上黔酥，并且在每個大寫字母之前已插入空格以分隔單元格內(nèi)容
3藻三、將這些公式單元格復制并粘貼為值
三、分列
選中B列絮爷，并按空格分列
步驟1
步驟2
完成結(jié)果如下
四趴酣、備注
參考文章如下：https://zh-cn.extendoffice.com/documents/excel/3336-excel-split-text-by-capital-letter.html
上面需求是按大寫字母分列梨树，如果需求是在大寫字母前面加下劃線_坑夯，實現(xiàn)方法如下:
1、只需要修改最后一步操作分列
2抡四、將分列這一步的操作更改為替換柜蜈，將空格替換為下劃線
