如何将多列转换为单列？

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 

我有大量的数据和做手工，这是不可能的。有谁知道一个快速的方法来做到这一点？我希望有一个内置的方式（如paste->转置或函数？）。如果没有人可以指点我一个相关的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