Макрос удаляющий каждую 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