Excel и преобразуване на данни

Имам следния проблем:
Разполагам с една колонка данни в Excel, които представят периоди от време, обаче са записани като текст и при това с различни мерни единици. Например, 10.5s, 12.3d, 159.3y, 68ms и т.н.
Дайте идея как да ги направя всичките да са в секунди, защото трябва да смятам с тях, а не само да ги визуализирам.

Например нещо такова:

Код:

---

Sub Macro1()

Dim S As String
Dim U As String
Dim I As Integer
Dim N As Integer
Dim R As Double
Dim K As Long

  N = 10

  For I = 1 To N
    S = Range("A" & I).Value
    K = 0
    U = Right(S, 1)
' seconds
    If U = "s" Then
      K = 1
    End If
' minutes
    If U = "m" Then
      K = 60
    End If
' hours
    If U = "h" Then
      K = 60 * 60
    End If
' days
    If U = "d" Then
      K = 86400 ' 60 * 60 * 24
    End If
' weeks
    If U = "w" Then
      K = 604800 ' 60 * 60 * 24 * 7
    End If
' years
    If U = "y" Then
      K = 31536000 ' 60 * 60 * 24 * 365
    End If
     
    If K = 0 Then
      Range("B" & I).Value = S
      Range("C" & I).Value = S
    Else
      R = (Left(S, Len(S) - 1))
      Range("B" & I).Value = R
      Range("C" & I).Value = R * K
    End If
  Next I
End Sub

---

В случая, се предполага, че изходните данни са в първите 10 клетки на колона A, а резултата ще се появи в първите 10 клетки на колона C.

ПП.Предполага се още, че в изходните данни мерната единица е означена с един или нула на брой символ (а не с два, както е при 'ms'), така че, ще трябва да си го преработиш и напаснеш за твоите данни

Благодаря,
Това ми свърши чудесна работа. :Drinks: