Макрос удаляющий каждую 3 строку - VBA

Узнай цену своей работы

Формулировка задачи:

Всем привет! Нужен макрос, который удалит каждую 3 строку в таблице. Пример прилагаю. Заранее благодарен!пример.xlsx

Решение задачи: «Макрос удаляющий каждую 3 строку»

textual
Листинг программы
Sub Trety()
Dim LastRow As Long, I As Long, J As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
J = 2
For I = 3 To LastRow
  If InStr(Cells(I, 1), "_") > 0 Then
    J = J + 1
    Cells(J, 4) = Cells(I, 1)
    With Cells(J, 4)
      .Borders(xlEdgeLeft).LineStyle = xlContinuous
      .Borders(xlEdgeTop).LineStyle = xlContinuous
      .Borders(xlEdgeBottom).LineStyle = xlContinuous
      .Borders(xlEdgeRight).LineStyle = xlContinuous
    End With
  End If
Next
End Sub

Оцени полезность:

14   голосов , оценка 3.643 из 5
Похожие ответы