Excel-VBA-范围选择会降低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内的Cells ，但不确定是否允许。 无论哪种方式，请尝试不使用.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 ？