Sub TxtToDate()
Dim arr(), MonthName(), MonthNum()
Dim I&, J&
With Worksheets("Sheet1")
arr = .Range("C2:C" & .Cells(.Rows.Count, "C").End(xlUp).Row).Value
MonthName = Array("января", "февраля", "марта", "апреля", "мая", "июня", "июля", "августа", "сентября", "октября", "ноября", "декабря")
MonthNum = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
For I = LBound(arr, 1) To UBound(arr, 1)
For J = LBound(MonthName, 1) To UBound(MonthName, 1)
If InStr(1, arr(I, 1), MonthName(J), vbTextCompare) > 0 Then
iMonth = MonthNum(J)
Exit For
End If
Next
arr(I, 1) = DateSerial(Year(Date), iMonth, CInt(Left(arr(I, 1), 2))) + _
TimeSerial(CInt(Left(Right(arr(I, 1), 4), 2)), CInt(Right(Right(arr(I, 1), 4), 2)), 0)
Next
.Columns("C").NumberFormat = "m/d/yyyy h:mm"
.Range("C2").Resize(UBound(arr, 1)) = arr
End With
End Sub
|