Циклический рассчет по листам

[amadeus017]

Доброго времени суток, уважаемые форумчане!

Есть файл, в котором название листов, соответствуют номерам кассовых аппаратов расположенные в разных местах. Ежедневно происходит загрузка из отчета (реестра), в котором множество кассовых аппаратов с разными данными, загрузить в данный файл, что уже сделано (если в реестре есть номер кассы которому соответствует название листа в файле, то данные загружаются в этот лист следующей строкой). Однако, данный файл урезан по количеству кассовых аппаратов, на самом деле, листов в файле множество...
Так вот, нужно сделать расчет на все листы, т.е. выполняется одна и та же процедура расчета на каждый лист. Писал макрос по расчету "рекордером", и макрос получился большой и когда я его запускал, то программа зависала... Пришлось макрос, поделить на несколько частей (по 10 - 15 листов). Получился макрос который я назвал - "РассчетА"

А можно в макросе "РассчетА", как-то указать перечень листов, к которым будет применен макрос, чтобы увеличить количество листов, а не прописывать в самом макросе название каждый раз название листа?

[Казанский]

Расчет можно оптимизировать разными способами:
1. Ввод формул сразу на несколько листов. Попробуйте например в новой книге, в которой есть листы "Лист1", "Лист3", выполнить макрос

Sub Макрос1()
    Sheets(Array("Лист1", "Лист3")).Select
    Range("A1:A9,C1:C9").Select
    Selection.FormulaR1C1 = "=RC[1]*2"
End Sub

Так же можно на нескольких листах сразу очищать диапазоны (Selection.ClearContents).
К сожалению, устанавливать правила условного форматирования на нескольких листах сразу нельзя.
2. Вводить формулу можно сразу в диапазон (см. пример выше), а не вводить в первую ячейку и потом ее копировать. Чтобы сделать это вручную, выделите диапазон, введите формулу в первую ячейку и нажмите Ctrl+Enter. При этом неважно, формула в стиле R1C1 или А1.
Например, этот кусок

    Range("A29:B29").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[2]="""","""",TEXT(DATEVALUE(RC[2]),""ДДД""))"
    Range("A29:B29").Select
    Selection.Copy
    Range("A30:B100").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

можно переделать так - для работы с несколькими листами

    Range("A29:B100").Select
    Selection.FormulaR1C1 = "=IF(RC[2]="""","""",TEXT(DATEVALUE(RC[2]),""ДДД""))"

А если работать с листами по очереди, Selection вообще не нужен

    Range("A29:B100").FormulaR1C1 = "=IF(RC[2]="""","""",TEXT(DATEVALUE(RC[2]),""ДДД""))"

3. Строка 100 - это Вы явно берете с запасом. Если работать с листами по очереди, для каждого листа можно определить последнюю строку и работать только с нужным диапазоном. При этом из формул можно убрать проверку на пустоту.

[amadeus017]

Спасибо!
Буду пробовать