Страницы: 1
RSS
Вставка нечётных строк на другой лист., Вставка нечётных строк на другой лист.
 
Вставка нечётных строк на другой лист.
 
Может так?
Код
Private Sub CommandButton1_Click()
For i = 3 To 12 Step 2
    With Sheets("Лист2")
        .Range(.Cells(i, 2), .Cells(i, 6)).Value = Range(Cells(i, 2), Cells(i, 6)).Value
    End With
Next
End Sub
 
СПАСИБО !!!
Страницы: 1
Наверх