填入数据

Lareina_wol

用VBA代码，如何将Sheet2的数据相应填入sheet1。另外sheet1的各备注列，以后列位置可能会互换，会有有增减列的情况

719404338

1. Sub t()
   
2. Dim i, j, d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For i = 2 To Sheet2.[a65536].End(3).Row
   
5.   For j = 2 To Sheet2.UsedRange.Columns.Count
   
6.   d(Sheet2.Range("a" & i).Value & Sheet2.Cells(1, j).Value) = Sheet2.Cells(i, j)
   
7. Next j, i
   
8. For i = 2 To [a65536].End(3).Row
   
9.   For j = 2 To UsedRange.Columns.Count
   
10.   Cells(i, j) = d(Range("a" & i).Value & Cells(1, j).Value)
    
11. Next j, i
    
12. End Sub

复制代码