Здравствуйте,
у вас правильная формула.
не понятно, что вы хотите округлить.
Формулу можно еще так записать:

Код: (vb)

=ИНДЕКС(Плотн!$C$5:$E$46;ПОИСКПОЗ($C$3;Плотн!$B$5:$B$46;1);ПОИСКПОЗ($D$3;Плотн!$C$4:$E$4;1))

вычислить промежуточные значения?
Так для этого надо понимать алгоритм значений в вашей таблице и не искать значение в таблице, а рассчитывать его по алгоритму

Нужно создать связанную таблицу

создайте сводную таблицу и играйтесь фильтрами.

Здравствуйте,
OutlineLevel и есть определение уровня группировки. Например функции листа:

Код: (vb)

Public Function GroupLevelRow():    GroupLevelRow = Application.Caller.Rows.OutlineLevel:       End Function 'возвращает уровень группировки для строки
Public Function GroupLevelColumn(): GroupLevelColumn = Application.Caller.Columns.OutlineLevel: End Function 'возвращает уровень группировки для столбца

свойство EntireRow.Hidde - имеется у всех строк. и не зависит от группировки, а только от того скрыта строка или нет.
а вот собрать/разложить группировку можно командой

Код: (vb)

.Outline.ShowLevels RowLevels:=1 '  2 или 3..., как надо...

[Garanon]

Здравствуйте, Garanon

Купить или написать Парсер,..., погуглить...

Здравствуйте, Валентина,
в XML-структуре файла не надо указывать имя файла и соответственно менять его таким сложным путем.
Надо просто правильно записать макросы в VBA проекте.
В Ribbon XML Editor есть специальна кнопка, которая генерирует VBA код.

Здравствуйте,
а зачем огород городить
не проще ли

Код: (vb)

Set NewRng=X.offset(-1) 

Здравствуйте, Гуфрон
Устроил сегодня во дворе спиритический сеанс... Не увидел ни Гугла, ни Ехсе1я, ни Р1еха...
Кинул на картах, выпало

возможно даже писать именно UDF

через пару дней опять "кину" карты...,  может, что-то изменится...
Ждемс...

Здравствуйте,
т.к. формула у вас массивная, о чем говорит ArrayFormula, то и вводить в Ехсе1 ее надо как массивную т.е. Shift+Ctrl+Enter
а создавать за вас файл и проверять правильность догадки не хочу.

ЗюЫю В 365-м офисе появилась функция УНИК(UNIQUE) которую можно скоомбинировать с СЧЁТ(COUNT)

...Нужен макрос:) Задача состоит...

Я "балдею", это цех по производству?..., "..., то Тюлень позвонит, то Олень, ..."
а что в замен? чем рассчитываться будете?

чтобы набирать просто 4 цифры

или 900

Когда в Excel встроят интелект, он вам сам ответит "почему?"
а покаместь скажу, что вариантов человеческих ошибок и заблуждений великое множество.
особенно когда вопрос касается времени и пространства
следуйте правилам ввода "по умолчанию" и не будете знать проблем.

[vfvefrf]

Здравствуйте, vfvefrf
Извините за такое обращение, но вы сами себя так назвали 
в модуль листа

Код: (vb)

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
      If Not Intersect(Target, Range("C33:C52")) Is Nothing And Target.Rows.Count = 1 Then
        Target.Offset(24).Value = Target.Offset(24).Value + Target.Cells(1).Value
      End If
  Application.EnableEvents = True
End Sub

Добавьте проверки

Код: (vb)

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
    If Not Intersect(Target, Range("B6")) Is Nothing Then
      If Len(Target.Value) = 4 Then
        Target.Value = TimeSerial(Left(Target, 2), Right(Target, 2), 0)
      End If
    End If
  Application.EnableEvents = True
End Sub

Приходится перезапускать файл....

Достаточно в окне Immediate выполнить команду Application.EnableEvents = True

Что-то НЛО перестали летать

В модуль листа вставьте код

Код: (vb)

Private Sub Worksheet_Calculate()
    Call ПоискСтрокПоУсловию(0, True)
End Sub

Согласно примеру, код

Код: (vb)

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
    If Not Intersect(Target, Range("B6")) Is Nothing Then
      Target.Value = TimeSerial(Left(Target, 2), Right(Target, 2), 0)
    End If
  Application.EnableEvents = True
End Sub

обрабатывается только ячейка В6 и время должно быть введено 4-мя цифрами