Скопируйте значение в диапазоне ячеек в другую ячейку, если значение имеет только одна ячейка в диапазоне

Question

У меня есть диапазон ячеек M4: M18. В этом диапазоне ячеек есть формула, ссылающаяся на другую таблицу, в этом диапазоне ячеек будет только одна дата. Я пытаюсь заполучить одно свидание в ячейку H12. Вот формула, которую я имею в H12:

= IF (COUNTA (M4: M18) = 1, ИНДЕКС (M4: M18, MATCH ("*", M4: M18,0)), "" )

Я также пытался:

= IF (COUNTIF (M4: M18, "?") = 1, ИНДЕКС (M4: M18, MATCH ("?", M4: M18 , 0)), "")

Эта формула возвращает черную ячейку в H12. Я прочитал предыдущий пост об этой же проблеме, но я не могу заставить его работать. Первая ячейка в этом диапазоне может быть пустой.

Любая помощь будет принята с благодарностью.

Спасибо

M4: M18 = 'Step 2 Triage_Tbl'! $ Q3 и в формате m / d / yy ;; ""

и

Answer 1

Чтобы вернуть только одну (1) дату в диапазоне M4:M18, попробуйте ..........

В N2, введите формулу:

=IF(COUNT(M4:M18)=1,INDEX(M4:M18,MATCH(1,INDEX(0+ISNUMBER(M4:M18),0),0)),"")

Answer 2

Скажем, M4:M18 полностью заполнен формулами, но только одна из формул дает данные, остальные - нулевые. Это обнаружит данные:

=MATCH(TRUE,M4:M18<>"",0)

и восстановит данные:

=INDEX(M4:M18,MATCH(TRUE,M4:M18<>"",0))

Работает для текста, чисел или дат.

Answer 3

OneDate UDF

В VBE (ALT + F11) вставьте модуль в рабочий лист и скопируйте в него код.

В Excel в ячейке H12 введите =OneDate(M4:M18). Вам может потребоваться отформатировать H12 как дату, если она еще не отформатирована.

Option Explicit

Function OneDate(CheckRange As Range) As Date
    Dim rng As Range
    For Each rng In CheckRange
        If IsDate(rng.Value) Then OneDate = rng.Value: Exit For
    Next
End Function

Вам может потребоваться настроить параметры макроса, чтобы это работало:

File > Options > Trust Center > Trust Center Settings > Macro Settings