如何使用VB将表转换为列使用VB

Question

我沉迷于准备一个VB宏。

我准备使用VB将一个表格数据转换成两列的一个Excel宏。

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

我有表如下：

和我所需要的数据转换成2列如下：

Answer 1

这假定该表是在A1通I6并且输出进入列J和K

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