如何在Excel中將逗號(hào)分隔的文本字符串轉(zhuǎn)換為列表或行？
如何在Excel中將逗號(hào)分隔的文本字符串轉(zhuǎn)換為列表或行？
假設(shè)您有一個(gè)用逗號(hào)分隔的單元格值列表，現(xiàn)在，您需要將這些用逗號(hào)分隔的文本字符串轉(zhuǎn)換為多行或一列，如下面的屏幕快照所示。 如何在Excel中一次基于逗號(hào)分隔符將多個(gè)單元格值拆分為行？
使用VBA代碼將逗號(hào)分隔的文本字符串轉(zhuǎn)換為行
將逗號(hào)分隔的文本字符串轉(zhuǎn)換為行 Kutools for Excel
以下VBA代碼可以幫助您將多個(gè)逗號(hào)分隔的單元格值轉(zhuǎn)換為列，請(qǐng)執(zhí)行以下操作：
1。 按住 Alt + F11鍵 鍵，然后打開 Microsoft Visual Basic應(yīng)用程序 窗口。
2。 點(diǎn)擊 插頁(yè) > 模塊，然后將以下宏粘貼到 模塊 窗口。
VBA代碼：將逗號(hào)分隔的文本字符串轉(zhuǎn)換為行或列表
Sub RedistributeCommaDelimitedData() Updateby Extendoffice Dim xArr() As String Dim xAddress As String Dim Rg As Range Dim Rg1 As Range On Error Resume Next xAddress = Application.ActiveWindow.RangeSelection.Address Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8) If Rg Is Nothing Then Exit Sub Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange) If Rg Is Nothing Then Exit Sub Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8) If Rg1 Is Nothing Then Exit Sub xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",") Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr) Rg1.Parent.Activate Rg1.Resize(UBound(xArr) + 1).Select End Sub3。 然后按 F5 鍵以運(yùn)行此代碼，在彈出的對(duì)話框中，選擇要轉(zhuǎn)換的數(shù)據(jù)范圍，請(qǐng)參見屏幕截圖：
4。 并點(diǎn)擊 OK，在以下對(duì)話框中，指定要在其中輸出結(jié)果的單元格，請(qǐng)參見屏幕截圖：
5。 點(diǎn)擊 OK 按鈕，所選的逗號(hào)分隔單元格值已轉(zhuǎn)換為行列表。 看截圖：
將逗號(hào)分隔的文本字符串轉(zhuǎn)換為行 Kutools for Excel如果你有 Kutools for Excel，其 分裂細(xì)胞 實(shí)用程序，您可以根據(jù)需要根據(jù)逗號(hào)分隔符快速將逗號(hào)分隔的單元格值拆分為多行或多列。
Kutools for Excel : 帶有300多個(gè)便捷的Excel加載項(xiàng)，可以在30天內(nèi)免費(fèi)試用.前往下載30天免費(fèi)試用購(gòu)買貝寶/ MyCommerce
安裝后 Kutools for Excel，請(qǐng)執(zhí)行以下步驟：
1。 選擇您要基于逗號(hào)分隔符轉(zhuǎn)換為行的單元格值。
2。 然后點(diǎn)擊 Kutools > 合并與拆分 > 分裂細(xì)胞，請(qǐng)參見屏幕截圖：
3。 在 分裂細(xì)胞 對(duì)話框中選擇 拆分為行 選項(xiàng)下 Type 部分，然后從 指定分隔符 部分，檢查 其他 復(fù)選框，然后在文本框中輸入逗號(hào)，請(qǐng)參見屏幕截圖：
4。 然后點(diǎn)擊 Ok，然后會(huì)彈出另一個(gè)對(duì)話框，提醒您選擇要放入結(jié)果的單元格，請(qǐng)參見屏幕截圖：
5。 然后點(diǎn)擊 Ok 按鈕，逗號(hào)分隔的單元格已根據(jù)逗號(hào)分隔符分為多行，請(qǐng)參見屏幕截圖：
單擊以了解有關(guān)此拆分單元格功能的更多信息…
下載并免費(fèi)試用 Kutools for Excel 現(xiàn)在 ！
演示：將逗號(hào)分隔的文本字符串轉(zhuǎn)換為行 Kutools for ExcelKutools for Excel：具有300多個(gè)方便的Excel加載項(xiàng)，可以在30天內(nèi)免費(fèi)試用，沒有任何限制。 立即下載并免費(fèi)試用！
相關(guān)文章：
如何通過(guò)回車將單元格分為多列或多行？
如何在Excel中將單元格值拆分為多個(gè)列？
最佳辦公生產(chǎn)力工具
將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！
為什么需要 Kutools for Excel
??? 超過(guò) 300 項(xiàng)強(qiáng)大功能: Kutools 包含 300 多項(xiàng)高級(jí)功能，可簡(jiǎn)化您在 1500 多種場(chǎng)景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項(xiàng)并執(zhí)行高級(jí)數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費(fèi)吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時(shí)，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報(bào)告：訪問(wèn)各種附加圖表并生成富有洞察力的報(bào)告。
??? 強(qiáng)大的導(dǎo)航窗格：通過(guò)強(qiáng)大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢(shì)。
?? 七種類型的下拉列表：通過(guò)各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對(duì)于初學(xué)者來(lái)說(shuō)輕而易舉，對(duì)于專家來(lái)說(shuō)是一個(gè)強(qiáng)大的工具。
立即下載，與 Excel 一起穿越時(shí)空！
閱讀更多
免費(fèi)下載... 采購(gòu)...
Office Tab 為 Office 帶來(lái)選項(xiàng)卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費(fèi)下載... 采購(gòu)...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(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)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
