Sub Tabl_Days()
Dim i As Long
Dim iLastRow As Long
Dim iDays As Integer
Dim iHour As Integer
Dim iMin As Integer
Dim TimeInDays As Double
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 With CreateObject("VBScript.RegExp")
   .Pattern = "(\d+д)?(\d+ч)?(\d+мин)?"
  For i = 2 To iLastRow
    iDays = Val(.Execute(Cells(i, "A"))(0).SubMatches(0))
    iHour = Val(.Execute(Cells(i, "A"))(0).SubMatches(1))
    iMin = Val(.Execute(Cells(i, "A"))(0).SubMatches(2))
    TimeInDays = WorksheetFunction.RoundUp((iDays + iHour / 24 + iMin / 24 / 60), 0)
    Cells(i, "C") = TimeInDays
  Next
 End With
End Sub