excel - 将数据从多列移动到单行

Question

这个格式问题让我很困惑。我不是 Excel 之王，非常感谢我的问题的解决方案。

我正在尝试按日期将多列中的数据格式化为单行。 IE。:



我试图寻找有关转置的解决方案，但这似乎涉及更多。我有每个日期的 4x 数据结果(如前一列所示)。

Answer 1

这是一个简单的循环，它在工作表中自下而上，将最后一行移动 4 列，向下复制上面的行，然后删除上面的行。

Sub TransposeData()
    Dim WS As Worksheet
    Dim LastCell As Range
    Dim LastCellRowNumber As Long

    Set WS = Worksheets("Sheet1")
    With WS
        Set LastCell = .Cells(.Rows.Count, "A").End(xlUp)
        LastCellRowNumber = LastCell.Row
    End With

    'Loop through column A bottom up
    For i = LastCellRowNumber To 2 Step -1
        'Shift current values over
        Range("A" & i & ":D" & i).Insert Shift:=xlToRight

        'Copy new values down
        Range("A" & i & ":D" & i).Value = Range("A" & i - 1 & ":D" & i - 1).Value

        'Delete row
        Rows(i - 1).Delete Shift:=xlUp
    Next i
End Sub

前:



后: