Выбор и перенос максимальных значений из столбца с учетом временного интервала.

[Tidus]

Имеем два столбца - столбец А - время, и столбец B - значения. Cтолбцу А соответствуют значения в столбце B:
А............B
00:00 1,6551
00:05 1,6552
00:10 1,6553
00:15 1,6554
00:20 1,6555
00:25 1,6556
00:30 1,6557
00:00 1,6558
00:05 1,6559
00:10 1,6560
00:15 1,6564
00:20 1,6550
00:25 1,6580
00:30 1,6530
00:40 1,6535
00:00 1,6545
00:05 1,6561
00:10 1,6530
00:15 1,6522
00:20 1,6541
00:25 1,6600
00:30 1,6530
00:35 1,6500

Обратите внимание, что в первом столбце временной интервал от 00:00 до 00:20 повторяется ТРИ раза.
Задача. Как ДЛЯ КАЖДОГО из трёх временных интервалов выбрать НАИБОЛЬШЕЕ значение из интервала 00:00-00:20 и вывести в отдельную строчку результат, который должен быть таким:
1,6555 - наибольшее значение в первом интервале 00:00-00:20
1,6564 - наибольшее значение во втором интервале 00:00-00:20
1,6561 - наибольшее значение в третьем интервале 00:00-00:20

Пробовал решить проблему через формулу: =МАКС(диапазон) - решается неплохо, НО что делать, когда миллион строчек?))))) Не каждый же раз вводить эту формулу и выбирать диапазон, замучаешься.
Я так понял, что без макроса здесь не обойтись. Буду очень признателен, если кто-нибудь поможет.
С Уважением, Владимир.

[DJOV]

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

[motorway]

Владимир, попробуйте следующий файл. Макрос запускается при нажатии на кнопку и ищет в нужных диапазонах максимумы и выводит их в 3 ячейки C1-C3.

[Tidus]

Range("C1").Formula = "=MAX(B" & Cells(1, 9) & ":B" & Cells(1, 8) & ")"
'Range("C1").Calculate
Range("C2").Formula = "=MAX(B" & Cells(2, 9) & ":B" & Cells(2, 8) & ")"
Range("C3").Formula = "=MAX(B" & Cells(3, 9) & ":B" & Cells(3, 8) & ")"
Range("H1:J3").Value = ""
End Sub

Спасибо за код. Но есть недостаток. Здесь видно, что вы для каждой строки расписываете в какую ячейку она будет выгружаться, благо - строк всего 3. А если таких строк миллион...Может лучше сделать, чтобы макрос рядом выгружал справа в столбец найденные данные по-порядку, чтобы в коде макроса не указывать каждую строчку по отдельности. Я конечно не программист, просто так подумал, если что поправьте...Если не затруднит, выложите пожалуйста второй вариант.

[Tidus]

Сообщение от DJOV

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

Значения временных интервалов находятся всегда в 1 столбце, НО не на равных равных расстояниях между друг другом. Например между 1 и вторым временным интервалом 2 строчки, а между вторым и третьим временным интервалом этих строчек уже 3, как показано в моем 1 посте. Если есть варианты, выкладывайте, интересно будет посмотреть, что получится.

[motorway]

То есть нужных к определению максимумов необяз. 3? Сколько должно быть найдено максимумов?
Мой код работает для любого кол-ва строк в интервалах, т.е. между 00:00 и 00:20 может быть разное кол-во строк.

[Tidus]

Сообщение от motorway

То есть нужных к определению максимумов необяз. 3?

Количество максимумов определяется количеством временных интервалов, в которых производится поиск, в вашем файле их 3 - это верно. У меня в 1 посте тоже выделено 3 временных интервала жирным цветом для упрощения задачи.

Мой код работает для любого кол-ва строк в интервалах, т.е. между 00:00 и 00:20 может быть разное кол-во строк.

Да, это понятно.

Я хотел сказать, что временных интервалов в столбце (от 00:00 до 00:20) может быть около тысячи (в вашем файле их всего ТРИ). Если временных интервалов около тысячи, то как тогда вы будете выгружать максимальные значения в ячейки? Вам придётся в макросе указывать С4....С1000.

[motorway]

Вот, наверно, такой вариант будет как нужно. Сколько угодно интервалов, и максимумы вставляются в соотв. место справа.

[Tidus]

Сообщение от motorway

Вот, наверно, такой вариант будет как нужно. Сколько угодно интервалов, и максимумы вставляются в соотв. место справа.

Спасибо огромное, это именно то, что нужно!!!Буду теперь разбираться с кодом. Я наверное покажусь очень наглым, хотя может здесь читающим будет полезно, если вы выполните небольшую мою просьбу. Не могли бы расписать перед каждой строчкой кода прямо в этой теме, что каждая строчка выполняет и какое действие делает, что бы в будущем уже можно было самому совершенствовать этот код.

[motorway]

Надеюсь, будет понятно. Возможно, код можно оптимизировать - писал быстро.

Sub Кнопка1_Щелчок()
'обновление экрана пока убираем
Application.ScreenUpdating = False

'задаем начальные значения счетчиков числа максимумов - 1, чтобы добавлять в 1 строку найденные значения. (Можно было бы и 0, но тогда в других местах +1)
k = 1
l = 1
' определение числа используемых строк на листе
r = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

' цикл по всем строкам от 1 до последней
For i = 1 To r
' проверяем, если время равно 0:20, то во временную ячейку H1 записываем найденный номер строки со значением 0:20 и увеличиваем счетчик следующей строки k,
' чтобы следующая временная ячейка была ниже этой (можно использовать не временные ячейки, а массивы и т.п. - просто так сделал)
If (Cells(i, 1).Text = "0:20") Then

'записываем найденный номер строки со значением 0:20
Cells(k, 8) = i
'и увеличиваем счетчик следующей строки k,
k = k + 1
'конец проверки на 0:20
End If

'то же самое делается для 0:00 - в случае успеха проверки номер строки будет записываться во врем. ячейку I1 и так далее I2, I3...

If (Cells(i, 1).Text = "0:00") Then
'записываем найденный номер строки со значением 0:00
Cells(l, 9) = i
'и увеличиваем счетчик следующей строки l,
l = l + 1
'конец проверки на 0:00
End If
'переход к следующей строке в цикле (здесь кончается тело цикла)
Next i

'''''''''''''''''''''''''
'теперь цикл от 1 до числа найденных максимумов - то есть столько у нас интервалов получилось, и мы теперь нашли НАЧАЛО и КОНЕЦ интервалов (номера соотв. им строк).
'теперь это легко подставить в формулу МАКС, напр. если интервал начинается на 3 строке, а кончается на 11, то будет так: МАКС(B3:B11) - формулу такого вида мы и сформируем

For i = 1 To k - 1
' в столбце C и строке с номером i мы пишем формулу - максимум из значений, ограниченных НАЙДЕННЫМИ ИНТЕРВАЛАМИ

Range("C" & i).Formula = "=MAX(B" & Cells(i, 9) & ":B" & Cells(i, 8) & ")"

Next i

'очищаем временные ячейки, где хранились найденные интервалы

Range("H1:J" & k - 1).Value = ""

'обновление экрана можно включить
Application.ScreenUpdating = True


End Sub

В общем, суть такая, что мы находим с помощью проверок номера строк с 0:00 и 0:20. Следовательно, между ними и находится нужный диапазон для формулы МАКС.
Потом мы формируем эти формулы, используя найденные переменные - начало интервала и конец.