У Кэти есть рабочий лист, который в некоторых столбцах содержит целочисленные значения данных в диапазоне от 1 до 5. (В этих конкретных столбцах это единственные значения в столбце). Она хотела бы «перевернуть» эти значения данных так, чтобы 5 становится 1, 4 становится 2, 3 остается прежним, 2 становится 4, а 1 становится 5. Она хочет, чтобы это происходило только в определенных столбцах, и она застревает, пытаясь понять, как выполнить задачу.

На самом деле есть несколько разных способов выполнить эту задачу.

Первый — использовать простую формулу для разворота. Предположим, например, что значения, которые вы хотите изменить, находятся в столбце A, начиная со строки 2. Следующая формула будет работать:

=6-A2

Скопируйте формулу вниз настолько, насколько вам нужно, и результат будет обратным. Затем вы можете скопировать значения и вставить их в любое место с помощью специальной вставки. (Вы используете Специальную вставку, чтобы копировать только значения, а не формулы, которые создают значения.)

Однако это не единственная формула, которую вы можете использовать. Вы можете использовать функцию ВЫБРАТЬ следующим образом:

=CHOOSE(A2,5,4,3,2,1)

Другой подход — установить числа от 1 до 5 в разном наборе ячеек (скажем, вы помещаете эти значения в ячейки T1: T5), а затем использовать функцию RANK следующим образом:

=RANK(A2,T1:T5,0)

=RANK.EQ(A2,T1:T5,0)

Оба возвращают желаемый разворот, но второй пример (RANK.EQ)

следует использовать в Excel 2010 и более поздних версиях, поскольку функция RANK устарела после Excel 2007.

Вы также можете поменять местами значения, используя макрос для выполнения задачи. Вот простой, который подойдет:

Sub ReverseNumbers()

Dim rCell As Range   For Each rCell In Selection     With rCell       If IsNumeric(.Value) Then         .Value = 6 - .Value       End If     End With   Next End Sub

Чтобы использовать макрос, выберите ячейки, которые нужно перевернуть, и запустите его.

Сначала он проверяет, содержит ли ячейка числовое значение; если это так, он вычитает значение в ячейке из 6, эффективно меняя значение.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (13140) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365.