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 ？