從一個excel表單複製行到另一個表單的VBA代碼

原始電子表格是從A列到E的。我剛剛從另一個表格的F列粘貼了數字。我的新電子表格有1517行，從列A-H開始。列F中的數字（第2行到第420行）也在列C中。從一個excel表單複製行到另一個表單的VBA代碼

我能夠使用Excel的MATCH函數查找C列中數字的確切位置，即在列C中行可以找到列F中的數字嗎？例如，單元格F2中的數字「12345678910」可以在單元格C1049的行1049中找到。我將這些位置編號放在一個稱爲「索引」的列中。

現在，我們的目標是編寫一個vba代碼來一次複製這些行。我試圖提取/複製到另一個工作表F列中的數字，也列C，但我只想從列A到E - 從原始工作表。複製索引列中的每個行號，但僅複製A-E列。要清楚，「12345678910」也在單元格C1049中。「從列A-E複製行1049」併爲索引列中的每個位置編號執行此操作。

我無法對電子表格進行排序，因爲列A-E已鏈接。排序會改變信息。任何幫助，將不勝感激。

我的電子表格的樣本

來源

2014-03-25 user3460676

請使用段落... –

如果你的最終目標是進行排序，只選擇所有單元格在Excel電子表格，按CTRL + C，然後（按住ALT）和自來水E + S + V並按照該順序輸入，並且它將用實時值而不是公式替換內容。仍然適用於2013年的Excel – Rich

Sub filterCopy() 

    Dim ws1 As Worksheet 
    Dim ws2 As Worksheet 

    Set ws1 = Sheet1 
    Set ws2 = Sheet2 

    ws1.Range("A1:F1517").AutoFilter 6, "<>" 
    ws1.Range("A1:F1517").SpecialCells(xlCellTypeVisible).Copy ws2.Range("A1") 

End Sub

來源

2014-03-25 19:38:58 user3461373

從一個excel表單複製行到另一個表單的VBA代碼

回答

相關問題