难题！！！吐血求救！！！跪求代码。

Question

有这样的一个表：
001     002     003
中大 30  广大 32  广工 45
广大 23  暨大 43  华工 54 
广商 23  中大 89  中大 90愿景效果如下
     001   002   003
中大 30    89    90
广大 23    32    0
广商 23    0     0
暨大 0     43    0
广工 0     0     45
华工 0     0     54怎样用vb代码实现！！难题，吐血求救，急切需要各路侠士拔刀相助。

Answer 1

Private Sub CommandButton1_Click()
    Dim i As Long
    Dim j As Long
    Dim k As Long
    Dim n As Long
    Dim blnHave As Boolean
    
    n = 1
    
    For i = 2 To [A65536].End(xlUp).Row
        For j = 2 To 6 Step 2
            blnHave = False
            
            For k = 2 To n
                If Cells(i, j - 1) = Sheet2.Cells(k, 1) Then
                    Sheet2.Cells(k, j / 2 + 1) = Cells(i, j)
                    blnHave = True
                    Exit For
                End If
            Next k
            
            If Not blnHave Then
                n = n + 1
                Sheet2.Cells(n, 1) = Cells(i, j - 1)
                Sheet2.Cells(n, j / 2 + 1) = Cells(i, j)
            End If
        Next j
    Next i
    
End Sub

Answer 2

哎呀，妈呀！jhone99 真神了，太感谢了。