如何使用VB将表转换为列

Question

我沉迷于准备一个VB宏。

我正准备使用VB将一个Excel宏转换为两列。

我需要将工作站和部门连接成一列，将相应的值连接到相邻的列中。

我的表格如下：

我需要将数据分成两列，如下所示：

Answer 1

这假设表格位于 A1 至 I6 ，输出格式为 J 和 K < / p>

Sub MakeColumns()
    Dim I As Long, J As Long, K As Long
    K = 1
    For I = 2 To 6
        For J = 2 To 9
            Cells(K, 11).Value = Cells(I, J).Value
            Cells(K, 10).Value = Cells(I, 1).Value & " " & Cells(1, J).Value
            K = K + 1
        Next J
    Next I
End Sub