遍历行复制并粘贴到VBA另一个工作表中的Excel

Question

我试图复制和粘贴这些行 - 在VBA

一个在当时

Name Col1   Col 2   Col 3 
Tom  LTD - 617 LTD - 2236 LTD - 964 
David LTD - 289 LTD - 045 LTD - 055 
Peter LTD - 112 LTD - 687 LTD - 899 

我需要在每一行转置和粘贴值像这样的列

Tom 
LTD - 617 
LTD - 2236 
LTD - 964 

在VBA中是否存在可以帮助我实现这一目标的循环？

我需要的是如何做到这一点，因为我这个自动化工作表中的VBA的版本，我的例子是比较复杂的，但我想做什么都可以用类似上面的一个简单的例子来说明。任何人都可以提出一个VBA解决方案 - 我需要了解如何循环遍历一行，并将它们输出到不同的位置和位置。

Answer 1

如果你的源表是对称你的问题表明，如果这是一个一次性的改造，我会用公式来安排换位。如果其中任何一个不真实，那么对于不充分的问题将是-1。

我假设你的源表开始在单元格A1并没有什么使用F列

以下内容粘贴到细胞F2阻止我：F5

=INDIRECT(ADDRESS((ROW(F2)-2)/4+2,1,4)) 
=INDIRECT(ADDRESS((ROW(F3)-3)/4+2,2,4)) 
=INDIRECT(ADDRESS((ROW(F4)-4)/4+2,3,4)) 
=INDIRECT(ADDRESS((ROW(F5)-5)/4+2,4,4)) 

这将设置单元格F2：F5到第2行的值。尽可能将该4个单元的块（4个单元的重复块，而不是单元F5）复制下来。你追求的值将在列公式。

使用“复制并粘贴特殊值”来获取您寻求的值为值。