excel - 在单列下移动多个excel行中的数据

Question

我在将多个数据行移动到一列下时遇到了一些问题。

目前情况如何

这就是我想要的

一段时间以来，我一直试图找到解决此问题的方法，但我似乎找不到任何可以解决此问题的方法。

先感谢您

Answer 1

选择性粘贴，转置是唯一接近你想要的东西，但它不会为你做。我认为您将不得不编写宏或手动执行。

Answer 2

正在考虑一种使用工作表功能的方法，但出现了空白。使用 VBA 可能要简单得多。

这是一种相当简单的方法。它查看Sheet1并输出到Sheet2（因为如果您尝试输出到同一张表而不首先缓存所有值，它会覆盖一些值）。

这是由于Sheet.CellsObject(?) 存储数据的方式，即行中的A1,B1..Y1,Z1,A2,B2..Y2,Z2 位置Y和Z最后一个单元格。（基本上与你的结果相反）

Sub Main()
Dim S1 As Worksheet
Dim S2 As Worksheet
Dim Cell As Variant
Dim Row As Long

    Set S1 = ThisWorkbook.Worksheets("Sheet1") ' Source Sheet
    Set S2 = ThisWorkbook.Worksheets("Sheet2") ' Destination Sheet

    Row = 1 ' Start Output on this row

    For Each Cell In S1.UsedRange.Cells

        S2.Cells(Row, 1).Value = Cell.Value
        Row = Row + 1

    Next Cell

End Sub