在Excel中轉​​置數據段VBA

Question

我需要一些幫助，以便在某種循環中將幾個數據塊「轉置」到工作表的另一個區域。該數據是目前確定按如下：

Rob Dave John Peter Jane Lily Mel Amy 
1  4  7  3  2  5  8  6 
blue green brown black purple orange yellow white 
apple pear grape lemon banana kiwi mango strawberry  

我不知道是否有人會知道一些相關的VBA代碼，可能讓我將其轉換爲以下幾點：

Rob Dave John Peter 
1  4  7  3 
blue green brown black 
apple pear grape lemon 
Jane Lily Mel Amy 
2  5  8  6 
purple orange yellow white 
banana kiwi mango strawberry 

這只是兩個組水平排列的數據，我想轉移到垂直塊。實際的工作簿包含更多的數據塊，因此可能需要某種循環。提前致謝。

Answer 1

設置變量的nblocks你有和4×4塊總數運行：

Sub BlockMover() 
    Dim nBlocks As Long, N As Long, i As Long 
    Dim r1 As Range, r2 As Range 
    nBlocks = 3 
    For i = 2 To nBlocks 
     N = Cells(Rows.Count, "A").End(xlUp).Row + 1 
     Set r1 = Range(Cells(1, 4 * (i - 1) + 1), Cells(4, 4 * (i - 1) + 4)) 
     Set r2 = Range("A" & N) 
     r1.Copy r2 
     r1.Clear 
    Next i 
End Sub 

Answer 2

我會使用內置的功能Transpose()。