通过匹配列名将数据从一张纸复制到另一张纸

Question

我的工作簿中有两张纸。两者具有相同的列，但顺序不同。我需要将所有行从一个表单复制到另一个表单。

任何方式将数据完全复制到匹配的列名称下？两张纸都有CZ列。

Answer 1

您需要执行VB编辑器菜单/工具/参考，然后选中Microsoft Scripting Runtime旁边的复选框。 这使您可以访问的Scripting.Dictionary，这是加密散列对象（键/值对）

Sub CopyByCol() 

Dim lCol As Long, lCols As Long, sCol As String, lRows As Long 
Dim dictCol As New Scripting.Dictionary 
Dim rFrom As Range, rTo As Range 

    Set rFrom = Sheet1.Range("A1") 
    Set rTo = Sheet2.Range("A1") 

' Store hash of where column names occur in target sheet, keyed by Col name 
    lCols = rFrom.Offset(0, 255).End(xlToLeft).Column - rFrom.Column 
    For lCol = 0 To lCols 
     sCol = rTo.Offset(0, lCol).Value 
     dictCol.Add sCol, lCol 
    Next 

' Get key column name from From sheet, and write to correct col in To sheet 
    For lCol = 0 To lCols 
     sCol = rFrom.Offset(0, lCol).Value 
     lRows = rFrom.Offset(65000, lCol).End(xlUp).Row - rFrom.Row 
     Range(rFrom.Offset(1, lCol), rFrom.Offset(lRows, lCol)).Copy Destination:=rTo.Offset(1, dictCol(sCol)) 
    Next 

End Sub