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

Мы долго искали и не смогли найти ни одной формулы, которая бы сделала то, что нам нужно. Однако вы можете сделать это с помощью промежуточного столбца. Например, если у вас есть числа в столбце A (начиная с A1), вы можете поместить следующую формулу в ячейку B1:

=IF(A1<0,1,0)

Затем в ячейку B2 введите следующее:

=IF(A2<0,B1+1,0)

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

=MAX(B:B)

Это значение будет представлять наибольшее количество последовательных отрицательных значений в столбце A.

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

Function MaxNegSequence(rng As Range)

' search for the largest sequence ' of negative numbers in the range

Dim c As Range     Dim lCounter As Long     Dim lMaxCount As Long       Application.Volatile     lCounter = 0     lMaxCount = 0     On Error Resume Next     For Each c In rng.Cells         If c.Value < 0 Then             lCounter = lCounter + 1             If lCounter > lMaxCount Then                 lMaxCount = lCounter             End If         Else             lCounter = 0         End If     Next c       MaxNegSequence = lMaxCount End Function

Чтобы использовать функцию, просто поместите на лист формулу, подобную следующей:

= MaxNegSequence(A1:A512)

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

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

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

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

Этот совет (11105) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Counting_Consecutive_Negative_Numbers [Подсчет последовательных отрицательных чисел].