如何在Excel中从左到右将列堆叠为一列？

网友投稿 242 2024-01-19

如何在Excel中从左到右将列堆叠为一列？

假设有多列，则工作是将这些列从左到右堆叠为一个单独的列，如下面的屏幕截图所示。除了手动逐一移动列外，在Excel中解决此问题是否有任何技巧？

使用VBA将列从左到右堆叠到一列

从左到右堆叠列到一列 Kutools for Excel

使用VBA将列从左到右堆叠到一列

在Excel中，没有内置函数可以处理此工作，但是VBA代码可以为您提供帮助。

1。按 Alt + F11 键，然后在 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块创建一个新的空白模块。

2.复制以下代码并将其粘贴到模块.

VBA：将列堆叠为一个

Sub StackColumns() UpdatebyExtendoffice20180814 Dim xSRg, xDRg As Range Dim xDWS As Worksheet Dim xIntDR, xIntDC, xI As Long Dim xFNumR, xFNumC As Long On Error GoTo Err1 Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8) If xSRg Is Nothing Then Err1: Application.ScreenUpdating = True Exit Sub End If Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8) If xDRg Is Nothing Then Exit Sub End If Application.ScreenUpdating = False Set xDWS = xDRg.Worksheet xIntDR = xDRg.Row xIntDC = xDRg.Column xI = 0 For xFNumC = 1 To xSRg.Columns.Count For xFNumR = 1 To xSRg.Rows.Count Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC) xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value xI = xI + 1 Next xFNumR Next xFNumC Application.ScreenUpdating = True End Sub

Copy

3。按 F5

键以运行代码，将弹出一个对话框，供您选择要堆叠成一列的列。

4。点击 OK

，选择一个单元格以放置结果。

5。点击 OK

完成。现在，选定的列已被堆叠为一列。

从左到右堆叠列到一列 Kutools for Excel

如果你有 Kutools for Excel 安装在Excel中，您可以使用 Transform Range 实用程序来处理这项工作。

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载免费全功能 30 天

安装后 Kutools for Excel，请执行以下操作：（免费下载 Kutools for Excel 现在！）

1.选择要堆叠的列，单击 Kutools > Range > Transform Range

2.在 Transform Range 对话框，检查 Range to single row 复选框，单击 Ok

3.在弹出的对话框中，选择一个要放置结果的单元格，单击 OK

现在，列已转换为单行。

4.选择单行，按 Ctrl + C 复制它，然后选择另一个将放置堆栈列的单元格，右键单击以选择 Transpose(T)

在上下文菜单中。

现在，单行已转置为堆栈列。

移调范围

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel