如何将列复制到一列

如何解决如何将列复制到一列

希望有人可以帮助处理一列中从 Excel 到记事本的 500 多列......我需要将它们复制到一栏中..我试图寻找解决方案并找到了这个论坛

=IFERROR(INDEX($A$1:$D$500,MOD(AGGREGATE(15,6,COLUMN($A$1:$SF$500)*10^6+ROW($A$1:$SF$500)/(($A$1:$SF$500<>"")),ROWS(SG$1:SG1)),10^6)-ROW($A$1)+1,AGGREGATE(15,COLUMN($A$1:$SF$500)/(($A$1:$SF$500<>"")),ROWS(SG$1:SG1))-COLUMN($A$1)+1),"")

但没有任何进展..我真的陷入了这个问题。如果有其他工具或公式，我可以用它来做到这一点。我会很感激..谢谢

解决方法

试试这个：https://www.extendoffice.com/documents/excel/4233-excel-stack-columns.html。

=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)

，其中 mydata 是您必须在列中插入的范围。

如果不想用公式，试试vba：

Function ToColumn(rng As range) As Variant
    Dim arr
    Dim cel As range
    Dim str As String

    For Each cel In rng
        If Len(cel) > 0 Then
            If str = "" Then
                str = cel
            Else
                str = str & "," & cel
            End If
        End If
    Next cel
    arr = Split(str,",")
    ToColumn = Application.Transpose(arr)
End Function

如何使用这个功能：

首先选择您认为适合您的数据的范围（例如 F1:F5），然后选择您要在列中导入的范围 (A1:D2) 并键入 =IFERROR(ToColumn(D1:CY500),"") 并按 Ctrl+ Shift+Enter。