遍历行复制并粘贴到VBA另一个工作表中的Excel
问题描述：
我试图复制和粘贴这些行 - 在VBA遍历行复制并粘贴到VBA另一个工作表中的Excel
一个在当时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解决方案 - 我需要了解如何循环遍历一行，并将它们输出到不同的位置和位置。
答
如果你的源表是对称你的问题表明，如果这是一个一次性的改造，我会用公式来安排换位。如果其中任何一个不真实，那么对于不充分的问题将是-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）复制下来。你追求的值将在列公式。
使用“复制并粘贴特殊值”来获取您寻求的值为值。