如果你没有母育酚，你也可以像这样使用INDEX。

名为“数据”的表：

| 列1|列2|第3栏|
| - ------|- ------|- ------|
| 项目a|克|米|
| B|小时|数量|
| （c）秘书长的报告|我|阿|
| 日|j|p|
| 电子|k|q|
| f级|升|r|

然后这个公式会将数据放到一列中。只需将其放在第一行的任意位置，将“data”更改为您的输入区域并向下展开。

=INDEX(data,MOD(ROW()-1,ROWS(data))+1,CEILING.MATH(ROW()/ROWS(data)))

或者，如果您的数据非常大，并且您不想手动展开，则可以尝试这种VBA方法。您唯一需要更改的是顶部的“data”和“targetCell”变量。
“data”是您的原始表，因此在您的示例中，它将是Range（“B2：F12”）。“targetCell”是列的起始位置。在您的示例中，它是Range（“BC 2”）

Sub singleColumn()
    Dim data As Range, targetCell As Range, targetRange As Range
    Set data = Range("data")
    Set targetCell = Range("G20")
    
    Dim resultArr() As Variant, arr As Variant
    ReDim resultArr(1 To data.Rows.Count * data.Columns.Count, 1 To 1)
    arr = data

    For i = 1 To UBound(resultArr)
        resultArr(i, 1) = arr(((i - 1) Mod UBound(arr)) + 1, WorksheetFunction.Ceiling_Math(i / UBound(arr)))
    Next i
    
    Set targetRange = Range(targetCell, Cells(targetCell.Row + UBound(resultArr) - 1, targetCell.Column))
    targetRange = resultArr
End Sub