Задача:
Есть лист с огромным количеством строк. В таблице 80 столбцов. В одной из колонок стоит пользовательский признак форматирования.
На втором листе есть пример формата для каждого стиля форматирования.
Задачу решаем с помощью
Selection.Copy и PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False

На большом количестве строк выполняется долго. "Тормоза" происходят на "Selection.Copy"
Хочу в один момент времени в переменных или еще где иметь значение из "Selection.Copy" для всех форматов (их не более 10)

Как можно скопировать и запомнить значения форматов нескольких диапазонов?? В диапазоне одна строка и много столбцов

Спасибо

Shocker.Pro,

Обновление блокируется. В Copy попадает одна строка и 80 столбцов

Selection выбросил (был в первоначальной версии), но на копировании тормоза продолжаются.
Тут вопрос принципиальный - я бы хотел пробежаться по 10 стилям, запомнить 10 вариантов форматирования 80 ячеек.
и потом уже идти по 50 тыс строк и их форматтировать в зависимости от условия

Antonariy,

Про "Условное форматирование" знаю. Но наперед неизвестно количество строк в таблице. Накладывать же условное форматирование на максимальное количество строк в листе, мне кажется неразумным.

начинаю склонятся к Вашему предложению - явно прописывать свойства формата.
Неудобно конечно - в строке доастсточно много ячеек и у каждой может быть свой формат.

С копированием формата на небольшом количестве строк все было проще и удобней :-)

Спасибо за помощь. Если есть идеи - буду благодарен.

А все же, чисто для общего развития - возможно ли скопировать диапазон и куда-то сохранить содержимое буфера? включая форматирование и значения в общем случае?

AntonariyIrhenвозможно ли скопировать диапазон и куда-то сохранить содержимое буфера? включая форматирование и значения в общем случае?Теоретически да. А практически - куда?

AntonariyIrhenНакладывать же условное форматирование на максимальное количество строк в листе, мне кажется неразумным. Формат можно накладывать на диапазон, диапазоном может быть вся колонка независимо от количества реально используемых строк.
.
Вы знаете, условное форматирование не позволит назначить высоту строки и горизонтальное-вертикальное выравнивание в ячейке .

Оно конечно имеет право на применение, но на большом объеме отрабатывает весьма долго - в моем случае для определения формата КАЖДОЙ ячейки в строке будет проверяться значение ячейки с номером формата.
то есть значение будет проверяться не для строки, а для каждой ячейки в строке

...плюс умножить на возможное количество форматов

Необходимо форматировать ячейки в строке. В разных строках в одной и той же колонке могут быть разные форматы и наоборот - поэтому условным форматированием столбцов красиво решить данную задачу не получиться.


Не подходит.

посматриваю в сторону стилей, но в моем случае - 10 видов форматов строк, содержащих 80 столбцов, получается 800 стилей...
Длительность применения стилей прямо прапорциональна кол-ву накладываемых стилей

Antonariy если вы хотите скорости, забудьте про буфер обмена совсем. Даже через апи работа с ним будет медленнее чем вообще без него.
Спасибо за совет !

Новая хрень:
если в ячеках имеются данные, то простое

ActiveWorkbook.Sheets("report").Range("REPORT_ZONE").Font.Name = arial
ActiveWorkbook.Sheets("report").Range("REPORT_ZONE").Font.Size = 22
ActiveWorkbook.Sheets("report").Range("REPORT_ZONE").Font.Bold = true

занимает минуту....

никакого копирования из буфера в данном случе нет.

На чистом листе это занимает 5 сек