遍歷行復制並粘貼到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）複製下來。你追求的值將在列公式。

使用「複製並粘貼特殊值」來獲取您尋求的值爲值。