我用这个代码,如果有上千条数据,就非常的慢,想请高手帮我改成数组形式,让运行加快 Dim i As Long Dim n As Long n = 14 Sheets("资料录入").Range("A14:Y65536").ClearContents For i = 2 To Sheets([h1].Value).Range("A65536").End(xlUp).Row If Sheets([h1].Value).Cells(i, 1) = Sheets("资料录入").Range("P3").Value Then
Sheets("资料录入").Cells(n, 1) = Sheets([h1].Value).Cells(i, 2).Value Sheets("资料录入").Cells(n, 3) = Sheets([h1].Value).Cells(i, 4).Value Sheets("资料录入").Cells(n, 4) = Sheets([h1].Value).Cells(i, 5).Value Sheets("资料录入").Cells(n, 6) = Sheets([h1].Value).Cells(i, 7).Value Sheets("资料录入").Cells(n, 7) = Sheets([h1].Value).Cells(i, 8).Value Sheets("资料录入").Cells(n, 8) = Sheets([h1].Value).Cells(i, 9).Value Sheets("资料录入").Cells(n, 9) = Sheets([h1].Value).Cells(i, 10).Value Sheets("资料录入").Cells(n, 10) = Sheets([h1].Value).Cells(i, 11).Value Sheets("资料录入").Cells(n, 12) = Sheets([h1].Value).Cells(i, 13).Value Sheets("资料录入").Cells(n, 13) = Sheets([h1].Value).Cells(i, 14).Value Sheets("资料录入").Cells(n, 15) = Sheets([h1].Value).Cells(i, 16).Value Sheets("资料录入").Cells(n, 17) = Sheets([h1].Value).Cells(i, 18).Value Sheets("资料录入").Cells(n, 19) = Sheets([h1].Value).Cells(i, 20).Value Sheets("资料录入").Cells(n, 25) = Sheets([h1].Value).Cells(i, 26).Value n = n + 1 End If Next i
mFJu2W4V.rar
(71.43 KB, 下载次数: 1)
|