VBA複製Excel序列中的多行並粘貼到不同的Excel表格

-1

我在論壇上發現了一些信息，但我一直無法理解它。我需要從一張Excel表單複製特定的行（範圍）到一張新的表單進行數據繪圖。有人可以幫助我這個視覺基本代碼？VBA複製Excel序列中的多行並粘貼到不同的Excel表格

我需要做的，就是靠，結合A1-1:E1-1和A1-2:E1-2數據側爲我想D5:D9並肩D19:D23。同樣，E5:E9與E19:E23並排。這些組合可以通過創建一個我希望的新表完成。

然後我想我需要運行一個循環來合併A2-1和A2-2數據。 A2數據從第32行開始。此間距在整個電子表格中保持不變。所以我認爲應該能夠循環遍歷整個表格。數據（行）之間有空格，所以我不確定如何告訴程序遍歷整個表格。

sub copydata() 

LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).row 

For i = 8 To LastRow 

Range(Cells(i, 1), Cells(i, 4)).Select 
Selection.Copy 

erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).row 

ActiveSheet.Cells(erow, 1).Select 
ActiveSheet.Paste 
ActiveWorkbook.Save 
ActiveWorkbook.Close 
Application.CutCopyMode = False 
End If 

Next i 

End Sub

來源

2015-07-21 Anjil

你有沒有嘗試過嗎？在論壇上發佈你已經看過的鏈接，並說明你感到困惑的地方。 –

https://stackoverflow.com/questions/9929366/copy-and-paste-the-data-one-excel-to-another-excel-based-on-column-name-include。這是另一個鏈接：https://stackoverflow.com/questions/23740364/excel-vba-copying-cell-contents。我無法弄清楚如何遍歷整個工作表並將數據並排放置。 – Anjil

該問題有多個答案。你不瞭解哪些部分？你有沒有試圖自己解決這個問題？向我們展示您的代碼，並告訴我們錯誤/給出您不期待的值。 –

您也許可以在沒有宏的情況下執行此操作。所以，如果你拿出你展示的樣本表的結構，我會創建新的表格並使用索引公式來提供你需要的值和你想要的順序。所以對於D列，我會有一個正確命名的新工作表。對於列A，我會列出部分樣本名稱（A1-，B1-等）。對於第一排，我會休息（1-5）。然後在B2單元格，輸入公式

=INDEX('Sheet1'!$D:$D,MATCH($A2 & B$1,'Sheet1'!$B:$B,0))

填寫向下和向右。應該得到你想要的。在其他工作表上，只需將INDEX公式的初始範圍更改爲相應的列。

我希望這會有所幫助。

來源

2015-07-21 19:01:16 legendjr

VBA複製Excel序列中的多行並粘貼到不同的Excel表格

回答

相關問題