Добрый вечер! В столбце А есть порядок цифр, который форматом ячейки "00\:00\:00\:00" преобразовывает их в в часы минуты секунды кадры. Например: 10163519 это 10:16:35:19 2100 это 00:00:21:00 1123923 это 01:12:39:23 и так далее... Второй день кручу эксель и не могу понять, как в столбец B эти данные передать в формат ЧЧ:ММ:СС:КК. Копирование и специальная вставка не помогает . Пытался вставлять только значения- все равно не переносит текст "как вижу". Функция ЛЕВСМВ не помогает- не обнаруживает разделитель ":" Разбивать текст по столбцам по 1 символу, чтобы потом функцией "СЦЕПИТЬ" не получается, т.к. надо еще определить что не хватает спереди нулей, чтобы получилось 8 символов в строке. Пробовал экспортировать в текстовый файл функцией:
Код
Sub Кнопка1_Щелчок()
Dim i As Long, s As String
i = Cells(1, 1).End(xlDown).Row 'последняя строка
ReDim arr(1 To i) As String
For i = 1 To UBound(arr)
arr(i) = Cells(i, 1)
Next i
s = Join(arr, vbCrLf)
Open ThisWorkbook.Path & "\время.txt" For Output As #1 'сохранение
Print #1, s
Close #1
End Sub
Хотел сохранить в текстовик макросом и из него уже импортировать в столбец как нормальный текст- не сохраняет... Единственное что помогло- копировать столбец в буфер, вставлять в блокнот, копировать из блокнота, вставлять в В столбец. Но это ведь не наш метод уважаемые форумчане не сохраняет значения столбца "как вижу"- сохраняет как порядок цифр. Подскажите пожалуйста, как можно макросом или функциями решить эту задачу. Файл для наглядности прилагаю вложением.
Sub Владислав()
Dim c As Range, Rn As Range
With Sheets(1)
Set Rn = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
End With
For Each c In Rn
c.Value = c.Text
Next
End Sub
Код
Sub Владислав_1()
Dim c As Range, Rn As Range
With Sheets(1)
Set Rn = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
End With
For Each c In Rn
c.Value = Format(c.Value, "00:00:00:00")
Next
End Sub