Еще раз доброе утро всем. У меня есть макрос по удалению заголовков в таблице (за решение еще раз огромное спасибо Александру (Boroda). Появилась новая "кривая" таблица со множеством строк ну и соответственно с заголовками. Их надо удалить. Заранее спасибо за решение. Изначальную "шапку" оставить, а удалить надо строки с 11 по 17. Файл пример. В оригинале много строк. [vba]
Код
Sub Удалить_заголовки_в_ЖО_7()
Dim Arr(), lr As Long, i As Long
Application.ScreenUpdating = False lr = Cells(Rows.Count, "A").End(xlUp).Row Arr() = Range("A1:A" & lr).Value For i = UBound(Arr) To 13 Step -1 If Arr(i, 1) = "Дата операции" Then Rows(i).Resize(3).Delete End If Next i Application.ScreenUpdating = True MsgBox "Готово!", vbInformation
[/vba]
Еще раз доброе утро всем. У меня есть макрос по удалению заголовков в таблице (за решение еще раз огромное спасибо Александру (Boroda). Появилась новая "кривая" таблица со множеством строк ну и соответственно с заголовками. Их надо удалить. Заранее спасибо за решение. Изначальную "шапку" оставить, а удалить надо строки с 11 по 17. Файл пример. В оригинале много строк. [vba]
Код
Sub Удалить_заголовки_в_ЖО_7()
Dim Arr(), lr As Long, i As Long
Application.ScreenUpdating = False lr = Cells(Rows.Count, "A").End(xlUp).Row Arr() = Range("A1:A" & lr).Value For i = UBound(Arr) To 13 Step -1 If Arr(i, 1) = "Дата операции" Then Rows(i).Resize(3).Delete End If Next i Application.ScreenUpdating = True MsgBox "Готово!", vbInformation
Здравствуйте. Если между таблицами всегда одинаковое кол-во строк 4, то можно так [vba]
Код
Sub Удалить_заголовки_в_ЖО_7()
Dim Arr(), lr As Long, i As Long
Application.ScreenUpdating = False lr = Cells(Rows.Count, "A").End(xlUp).Row Arr() = Range("A1:A" & lr).Value For i = UBound(Arr) To 6 Step -1 If Arr(i, 1) = "Дата операции" Then Rows(i).Offset(-4).Resize(7).Delete End If Next i Application.ScreenUpdating = True MsgBox "Готово!", vbInformation End Sub
[/vba]
Здравствуйте. Если между таблицами всегда одинаковое кол-во строк 4, то можно так [vba]
Код
Sub Удалить_заголовки_в_ЖО_7()
Dim Arr(), lr As Long, i As Long
Application.ScreenUpdating = False lr = Cells(Rows.Count, "A").End(xlUp).Row Arr() = Range("A1:A" & lr).Value For i = UBound(Arr) To 6 Step -1 If Arr(i, 1) = "Дата операции" Then Rows(i).Offset(-4).Resize(7).Delete End If Next i Application.ScreenUpdating = True MsgBox "Готово!", vbInformation End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
