Как установить диапазон копирования для i строк и количество столбцов

Question

Прямо сейчас мой код VBA имеет этот фрагмент для копирования Worksheets("Sheet1").Rows(i).Copy.Я правильно настроил так, что он будет копировать строки, которые я хочу.Однако в настоящее время он копирует все указанные строки.Как я могу продолжать подсчитывать строки, а также копировать их, скажем, из столбца A в Q? Таким образом, диапазон i строк от столбца A до Q

Answer 1

Пара способов:

Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(i,1),Worksheets("Sheet1").Cells(i,17)).Copy

Или

Worksheets("Sheet1").Range("A" & i & ":Q" & i).Copy

Или

Worksheets("Sheet1").Range("A" & i).Resize(,17).Copy

В зависимости от размера цикла первое будет самым быстрым(См. ЗДЕСЬ ).Его также можно укоротить с помощью блока With:

With Worksheets("Sheet1")
     .Range(.Cells(i,1),.Cells(i,17)).Copy
End With