如何使用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