在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()。