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

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

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

最佳办公生产力工具

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