=ДЕНЬ(C76)*24+ЧАС(C76)+МИНУТЫ(C76)*0,01

Function Свод(PatternRow As String, PatternCol As String, PatternSheet As String) As Variant
Dim pR As Long, pC As Long
Dim iR As Long, iC As Long
Dim Flag As Boolean

Flag = False
  ' Поиск совпадений на другом листе - PatternRow
  For iC = 1 To 10
    For iR = 1 To 150
      If PatternRow = Sheets(PatternSheet).Cells(iR, iC) Then
        pR = iR
        Flag = True
        GoTo A
      End If
    Next iR
  Next iC
Flag = False

A:
  ' Поиск совпадений на другом листе - PatternCol
  For iC = 1 To 10
    For iR = 1 To 40
      If PatternCol = Sheets(PatternSheet).Cells(iR, iC) Then
        pC = iC
        Flag = True
        GoTo B
      End If
    Next iR
  Next iC
Flag = False

B:
Свод = Sheets(PatternSheet).Cells(pR, pC)
End Function

Sub СпециальнаяВставка()
Selection.PasteSpecial Link:=True, DataType:=wdPasteText, Placement:= _
        wdInLine, DisplayAsIcon:=False
End Sub

=РЯД(;q.xlsx!Х;q.xlsx!У;1)