У меня большое количество текста в ячейках многострочной электронной таблицы Excel. Текстовые блоки в ячейках разбиты по временным меткам, например, 16:43 или, в некоторых случаях, 16:43. Я хотел бы проанализировать метки времени и вставить CHR(10) перед метками времени.

До:

3:33 AM Waiting for customer permission to remote control desktop.3:33 AM Remote Control successfully initiated.3:35 AM Remote Control ended.3:36 AM Remote Control successfully initiated.3:40 AM The connection to the customer was lost. This session will reconnect if and when the customer reestablishes a network connection.3:40 AM Disconnected (Applet)3:40 AM Remote Control ended.3:45 AM Connecting to: control.app02-01.l

После:

3:33 AM Waiting for customer permission to remote control desktop.
3:33 AM Remote Control successfully initiated.
3:35 AM Remote Control ended.3:36 AM Remote Control successfully initiated.
3:40 AM The connection to the customer was lost. This session will reconnect if and when the customer reestablishes a network connection.
3:40 AM Disconnected (Applet)
3:40 AM Remote Control ended.3:45 AM Connecting to: control.app02-01.l

1 ответ1

0

Этот маленький UDF() сканирует входную строку в обратном направлении в поисках двоеточия.

Когда он находит двоеточие, он вставляет CHR(10) в соответствующее место перед двоеточием:

Public Function Fragment(sIN As String) As String
    Dim L As Long, i As Long
    Dim temp As String, CH As String
    L = Len(sIN)
    temp = ""
    For i = L To 1 Step -1
        CH = Mid(sIN, i, 1)
        If CH <> ":" Then
            temp = CH & temp
        Else
            temp = CH & temp
            i = i - 1
            temp = Mid(sIN, i, 1) & temp
            i = i - 1
            CH = Mid(sIN, i, 1)
            If IsNumeric(CH) Then
                temp = Chr(10) & CH & temp
            Else
                temp = CH & Chr(10) & temp
            End If
        End If
    Next i
    Fragment = temp
End Function

Он может обрабатывать как одно, так и двузначные часы.
Убедитесь , что выходная ячейка отформатирована с обручем на.
Другой подход заключается в использовании Regex.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .