Excel: изменить несколько формул одновременно? - PullRequest
Новая
       6

Excel: изменить несколько формул одновременно?

10 голосов
/ 26 марта 2012

Я отсортировал порцию данных в подытогенные поля с помощью инструмента «Итого» на вкладке «Данные».Однако вы можете выбрать только одну формулу для применения.

Как применить отдельную формулу к одному из столбцов на основе SUBTOTAL (1, RANGE)?До сих пор я заполнял его Подытогом (9, ДИАПАЗОН), но есть ли более быстрый способ выбрать все из них и изменить «9» на «1»?

Ответы [ 2 ]

18 голосов
/ 26 марта 2012
  1. Выберите столбец.
  2. Нажмите CTRL + H.
  3. Найти что: SUBTOTAL(9
  4. Заменить на: SUBTOTAL(1
  5. Нажмите Заменить все
1 голос
/ 26 марта 2012

Предположим, что ваши формулы находятся в диапазоне A1: A5

Откройте VBE, нажав Alt + F11, и введите следующий код в общий модуль той же рабочей книги 

Function GetFormula(Cell As Range) As String
   GetFormula = Cell.Formula
End Function

Я получил этот код от http://dmcritchie.mvps.org/excel/formula.htm

Инструкции по вставке этого кода в модуль см. В разделе «Где разместить код» по адресу http://www.cpearson.com/excel/writingfunctionsinvba.aspx

Теперь,Вы можете извлечь формулу.Используйте эту формулу в вспомогательном столбце, скажем, в столбце B 

=SUBSTITUTE(GetFormula(A1),"(1,","(9,")

Теперь скопируйте эту формулу туда, где вам нужно, и копируйте и вставляйте значения только туда, где это необходимо.

Вы также можете использовать этохитрость, чтобы изменить любые другие формулы, которые вам нужны, поэтому я предлагаю вам сохранить этот фрагмент кода под рукой:)

...