求助：VBA大批量比较复制优化

Sub 按钮1_Click()
For i = 2 To 12
For j = 2 To 2000
For k = 2 To 12000
If (Worksheets(i).Cells(j, 1).Value = Worksheets(1).Cells(k, 1).Value) Then
Worksheets(i).Cells(j, 11).Value = Worksheets(1).Cells(k, 4).Value
Worksheets(i).Cells(j, 12).Value = Worksheets(1).Cells(k, 5).Value
Worksheets(i).Cells(j, 13).Value = Worksheets(1).Cells(k, 6).Value
Worksheets(i).Cells(j, 14).Value = Worksheets(1).Cells(k, 7).Value
Worksheets(i).Cells(j, 15).Value = Worksheets(1).Cells(k, 8).Value
Exit For
End If
Next k
Next j
Next i
End Sub
执行效率太慢了，求大神优化