Excel：如何将分隔文本拆分为行

使用 VBA 将分隔文本拆分为行

Public Sub SplitTextInCellsToRows() UpdatebyExtendoffice20220622 Dim xSRg, xIptRg, xCrRg, xRg As Range Dim xSplitChar As String Dim xArr As Variant Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer Dim xWSh As Worksheet Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8) If xSRg Is Nothing Then Exit Sub xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2) If xSplitChar = "" Then Exit Sub Application.ScreenUpdating = False xRow = xSRg.Row xColumn = xSRg.Column Set xWSh = xSRg.Worksheet For xFNum = xSRg.Rows.Count To 1 Step -1 Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn) Debug.Print xRg.Address xArr = Split(xRg, xSplitChar) For xFFNum = LBound(xArr) To UBound(xArr) xRg.EntireRow.Copy xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum) Next xRg.EntireRow.Delete Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

使用 Power Query 将分隔文本拆分为行

其他操作（文章）

如何在Excel中根据组替换行颜色？在Excel中，对大多数人来说，给其他行着色可能比较容易，但是，您是否曾经尝试根据列值的变化来为行交替着色–如下面的屏幕快照所示，在A列中，我将讨论如何根据Excel中的组替换行颜色。

如何减小 Excel 文件大小？有时，如果 Excel 文件太大，打开或保存需要几分钟。 为了解决这个问题，在本教程中，它告诉您如何通过删除不必要或从未使用过的内容或格式来减小 Excel 文件的大小。

Excel：如何创建或插入书签您有没有想过在工作表或工作簿中有大量数据时创建或插入书签以快速跳转到特定数据范围？

如何在Excel中将阴影应用于奇数或偶数（替代）行/列？在设计工作表时，许多人倾向于对奇数或偶数（替代）行或列应用阴影，以使工作表更直观。 本文将向您展示两种将阴影应用于Excel中奇数或偶数行/列的方法。

更多文章