Как выделить макросом ячейки?

[Тандер]

Как на скриншоте. Буду очень признателен, если подскажете как выделить (Select) каждую ячейку через две, скажем, до 5000-ой строки.

[Bape}l{ka]

а что вам в конечном счете нужно? возможно вам не надо выделять эти ячейки/строки все вместе, а с каждой по отдельности последовательно проделать все операции??

[Serge_Bliznykov]

абсолютно непонятно, зачем Вам это нужно! (Bape}l{ka, +1
Комментарий: Выделение ячеек используется только для наглядности, в действительности же, реальная необходимость в активации и выделении, возникает весьма редко.


но ловите

Sub Sel2()
  Dim i As Long, x As Range
  Set x = Range("1:1")

  For i = 4 To 5000 Step 3
     Set x = Union(x, Rows(i))
  Next i
  x.Select
End Sub

[DiemonStar]

Set myRng = Range("1:1")
I = 1
While I <= 5000
  Set myRng = Union(myRng, Rows(I))
  I = I + 3
Wend
myRng.Select

например, так

[EducatedFool]

Можно сделать это и одной строкой кода, используя дополнительную функцию:
http://excelvba.ru/code/repeatrange

Sub Пример1()
    RepeatRange(Rows(1), 5000/4, 4, xlDown).Select
End Sub

[Тандер]

Спасибо, сейчас проверю. Выделение нужно для того, чтобы копировать (вырезать) данные, так как они идут через каждые две строки.

[DiemonStar]

Выделение нужно для того, чтобы копировать (вырезать) данные, так как они идут через каждые две строки.

для этого совсем не нужно их выделять

myRng.copy Sheets("Название листа куда копировать").Cells(1,1)

вместо

myRng.Select

[Hugo121]

Чтобы копировать (вырезать) данные - выделение не нужно. Оно только тормозит процесс.
Это Union/выделение отрабатывает за 6 секунд - а скопировать такое количество данных например через массив заняло бы доли секунды.
Конечно если нужны именно данные, а не форматы/заливка.

[Тандер]

Всем огромное спасибо!