2025年亞洲寵物展覽會、京寵展有哪些亮點(diǎn)
482
2025-03-31
如何在Excel中按大小寫快速拆分文本字符串？
如何在Excel中按大小寫快速拆分文本字符串？
在Excel中，我們通常使用“文本到列”功能按固定寬度或定界符拆分文本，但是您是否嘗試過按大寫和小寫拆分文本？ 例如，您有一個數(shù)據(jù)列表，您需要根據(jù)大小寫將它們分為兩列：一列包含小寫字母字符串，另一列包含大寫字母字符串，如下圖所示。 “文本到列”功能不支持此操作，但是，我可以介紹一些技巧，以便在Excel中按大小寫快速拆分文本字符串。
使用VBA按案例拆分文本
通過分隔符將文本拆分為行/列 Kutools for Excel
使用VBA按案例拆分文本在Excel中，只有宏代碼可以根據(jù)小寫和大寫字母快速分割字符串。
1。 按 Alt + F11鍵 打開鑰匙 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點(diǎn)擊 插頁 > 模塊，然后將以下代碼粘貼到空白處 模塊 腳本。
VBA：按大小寫拆分字符串。
Sub CamelCase()
UpdatebyExtendoffice20160711
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Nothing
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Pattern = "(\S)([A-Z]+[^A-Z])"
.Global = True
For Each xCell In xRg
xCount = .Execute(xCell).Count
If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
Next
End With
Application.ScreenUpdating = True
End Sub
Copy
3。 按 F5
鍵，然后會彈出一個對話框，提醒您選擇要拆分的文本。 看截圖：
4。 點(diǎn)擊 OK
，并且選擇文本已分為兩列，一列包含小寫字母，另一列包含大寫字母。
通過分隔符將文本拆分為行/列 Kutools for Excel在許多情況下，您可能希望根據(jù)特定字符將單元格分為多行或多列。 在Excel中，內(nèi)置的“文本到列”功能只能幫助您將單元格直接轉(zhuǎn)換為列，而不能用于行轉(zhuǎn)換。 但是，隨著 Kutools for Excel –方便實(shí)用的工具，您可以應(yīng)用它 分裂細(xì)胞 實(shí)用程序可根據(jù)分隔符或固定寬度將字符串快速拆分為行或列。
Kutools for Excel, 與超過 300 方便的功能，使您的工作更加輕松。
免費(fèi)下載免費(fèi)全功能 30 天
后 免費(fèi)安裝 Kutools for Excel，請執(zhí)行以下操作：
1.選擇要拆分的單元格，然后單擊 Kutools > 合并與拆分 > 分裂細(xì)胞
。 看截圖：
2.在 分裂細(xì)胞 對話框中，檢查所需的拆分類型 Type 部分，然后在中檢查要分割的特定定界符 分割為
部分。 看截圖：
3。 點(diǎn)擊 Ok
，會彈出一個對話框，提醒您選擇一個單元格來放置拆分內(nèi)容。 看截圖：
4.選擇后，單擊 OK
，并且所選單元格已根據(jù)空間分為幾行。 看截圖：
最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項(xiàng)并執(zhí)行高級數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報(bào)告：訪問各種附加圖表并生成富有洞察力的報(bào)告。
??? 強(qiáng)大的導(dǎo)航窗格：通過強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對于初學(xué)者來說輕而易舉，對于專家來說是一個強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費(fèi)下載... 采購...
office Tab 為 Office 帶來選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
