复制和匹配来自不同工作表的列

Question

我有工作表 1 和工作表 2。我想复制和匹配列。 我在下面尝试此代码，但匹配大约 20 列需要将近 15 分钟，总行数仅为 400 行。 我的代码有什么问题吗？ 或者有什么方法可以调整这个？

Dim lRow As Integer, i As Integer, j As Integer
Dim ws1, ws2 As Worksheet

Set ws1 = ThisWorkbook.Sheets("Sheet1")
Set ws2 = ThisWorkbook.Sheets("Sheet2")
'Find last roe in Sheet1

lRow = ws1.Cells.SpecialCells(xlLastCell).Row
j = 6
For i = 3 To lRow
        ws1.Range("C" & i).Copy Destination:=ws2.Range("A" & j)
        ws1.Range("E" & i).Copy Destination:=ws2.Range("B" & j)
    'have about 20 columns to matched
        j = j + 1
   
Next i

Answer 1

我认为应用下面的代码将帮助您实现所需的目的。

Dim loopCnt1 As Integer
Dim loopCnt2 As Integer

For loopCnt1 = 1 To 10 Step 1
    
    For loopCnt2 = 1 To 10 Step 1
    
        Sheets("Sheet1").Cells(loopCnt1, loopCnt2).Value = Sheets("Sheet2").Cells(loopCnt1, loopCnt2).Value

    Next

Next