如何在Excel中将逗号分隔的值拆分为行或列？

通常情况下， 文字至栏

此功能仅将单元格拆分为单独的列，如果要将单元格拆分为行，该怎么办？

在这里， Kutools for Excels 分裂细胞 实用程序可以帮助您快速将单元格按空格，逗号，换行符，其他分隔符或特定宽度拆分为Excel中的单独行和列。 下载 Kutools for Excel 现在！ (30-天自由行)

Sub SplitAll() Dim xRg As Range Dim xRg1 As Range Dim xCell As Range Dim I As Long Dim xAddress As String Dim xUpdate As Boolean Dim xRet As Variant On Error Resume Next xAddress = Application.ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8) Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange) If xRg Is Nothing Then Exit Sub If xRg.Columns.Count > 1 Then MsgBox "You cant select multiple columns", , "Kutools for Excel" Exit Sub End If Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8) Set xRg1 = xRg1.Range("A1") If xRg1 Is Nothing Then Exit Sub xUpdate = Application.ScreenUpdating Application.ScreenUpdating = False For Each xCell In xRg xRet = Split(xCell.Value, ",") xRg1.Worksheet.Range(xRg1.Offset(I, 0), xRg1.Offset(I + UBound(xRet, 1), 0)) = Application.WorksheetFunction.Transpose(xRet) I = I + UBound(xRet, 1) + 1 Next Application.ScreenUpdating = xUpdate End Sub

  如果您想免费试用（30-day) 这个实用程序， 请点击下载，然后按照上述步骤进行操作。

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！