多个excel列到一个两列文件

Question

我有一个包含多个列的 excel 文件，格式如下：

name_1      name_2  name_3  
name_1  name_4  name_5  name_6

这代表name_1与name_2和name_3合作，name_2与name_3合作，等等 所以我需要创建一个新的excel文件，它将包含所有的合作，例如

name_1  name_2
name_1  name_3
name_2  name_3
name_1  name_4
name_1  name_5
name_1  name_6
name_4  name_5
name_4  name_6
name_5  name_6

有什么办法吗？

Answer 1

您需要 VBA 来执行此操作。

如果你的数据是这样的，

试试下面的代码，

Sub splitTable()
Dim i As Long, j As Long, k As Long, x As Long
Sheets.Add.Name = "newSheet"
k = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    For x = 2 To Cells(i, Columns.Count).End(xlToLeft).Column
    For j = x To Cells(i, Columns.Count).End(xlToLeft).Column
        Sheets("newSheet").Cells(k, 1) = Cells(i, x - 1)
        Sheets("newSheet").Cells(k, 2) = Cells(i, j)
        k = k + 1
    Next j
    Next x
Next i
End Sub

代码创建一个新工作表并打印格式化输出，