Excel范围选择减慢PC机的速度

Question

有办法把这些命令变成一个吗？

Worksheets("Agent html").Select
Range(Cells(7, TotalCallsRow), Cells(lastrow, TotalCallsRow)).Copy

当我给予：

Worksheets("Agent html").Range(Cells(7, TotalCallsRow), Cells(lastrow, TotalCallsRow)).Copy

它会返回我的错误

应用程序定义的或对象定义的错误。

提前谢谢。

Answer 1

它应该是：

Worksheets("Agent html").Range(Worksheets("Agent html").Cells(7, TotalCallsRow), Worksheets("Agent html").Cells(lastrow, TotalCallsRow)).Copy

将工作表定义为对象变量可能更简洁，如下所示：

Dim ws As Worksheet
Set ws = Worksheets("Agent html")

ws.Range(ws.Cells(7, TotalCallsRow), ws.Cells(lastrow, TotalCallsRow)).Copy

Answer 2

您在Range中使用的是Range，我不确定这是否允许。无论哪种方式，都尽量不要使用.Select

Dim wksht As Worksheet
Set wksht = Worksheets("Agent html")
Dim rng As Range
rng = wksht.Range(Cells(7, TotalCallsRow), Cells(lastrow, TotalCallsRow))
rng.Copy

会做你上面要求的事而不选择任何东西。我还没有测试过Range(Cells，但是我无法控制，因为我不知道TotalCallsRow是什么？