Всем здравствуйте. В печатную форму документа внесли изменение. Теперь заголовок таблицы присутствует на каждой странице, в итоге я не могу работать с данным документом, так как я данные копию из всей таблицы. Помогите убрать ненужные строки из таблицы. Приложено 2 файла. Заранее признателен.
Всем здравствуйте. В печатную форму документа внесли изменение. Теперь заголовок таблицы присутствует на каждой странице, в итоге я не могу работать с данным документом, так как я данные копию из всей таблицы. Помогите убрать ненужные строки из таблицы. Приложено 2 файла. Заранее признателен.Mark1976
Mark1976, уберите из второго файла печать сквозных строк. Под рукой сейчас только 2013-й. В нем на ленте вкладка -- Разметка страницы -- Печатать заголовки --Печатать на каждой странице -- сквозные строки 10:13. В 2007 должно быть все аналогично
Mark1976, уберите из второго файла печать сквозных строк. Под рукой сейчас только 2013-й. В нем на ленте вкладка -- Разметка страницы -- Печатать заголовки --Печатать на каждой странице -- сквозные строки 10:13. В 2007 должно быть все аналогичноChe79
Che79, нее, это первое что лезет в голову, но там именно таблица преобразована и отформатирована. Надо накодить удаление строк, вроде не сложно, но ленииииивоооооо.
Che79, нее, это первое что лезет в голову, но там именно таблица преобразована и отформатирована. Надо накодить удаление строк, вроде не сложно, но ленииииивоооооо.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
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 - 1).Resize(4).Delete End If Next i Application.ScreenUpdating = True MsgBox "Готово!", vbInformation
End Sub
[/vba]
Для первого файла:
[vba]
Код
Sub Удалить_заголовки()
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 - 1).Resize(4).Delete End If Next i Application.ScreenUpdating = True MsgBox "Готово!", vbInformation
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
