vba - 如何将多列转换为单列？

Question

我有一个看起来像这样的表:

Col1        Col2        Col3        Col4
a       b       c       d
e       f       g       h

我需要将其转换为:

Col1        New
a       b
a       c
a       d
e       f
e       g
e       h

我有大量数据，手动操作是不可能的。有谁知道一个快速的方法来做到这一点？我希望有一种内置方式(例如粘贴->转置或函数？)。如果没有的话，有人可以指出一个相关的 VBA 示例，因为我对 VBA 有点生疏。

Answer 1

选择要转换的数据(不包括列标题)并运行以下宏。

Sub Transform()

    Dim targetRowNumber As Long
    targetRowNumber = Selection.Rows(Selection.Rows.Count).Row + 2

    Dim col1 As Variant
    Dim cell As Range

    Dim sourceRow As Range: For Each sourceRow In Selection.Rows

        col1 = sourceRow.Cells(1).Value
        For Each cell In sourceRow.Cells

            If Not cell.Column = Selection.Column Then
                Selection.Worksheet.Cells(targetRowNumber, 1) = col1
                Selection.Worksheet.Cells(targetRowNumber, 2) = cell.Value
                targetRowNumber = targetRowNumber + 1
            End If

        Next cell

    Next sourceRow

End Sub