Как разделить плоский файл из символов без пробелов на числа? L

Question

Мне нужно разделить числа с помощью массива в Excel.

Например,

0987787634366787667867112327776678

Для разделения на группы по 8, 6, 8, 8, 4.

Таким образом, результат в каждой ячейке будет

09877876 |343667 |87667867 |11232777 |6678

Answer 1

Попробуйте:

Option Explicit

Sub test()

    Dim strWhole As String, str1 As String, str2 As String, str3 As String, str4 As String, str5 As String
    Dim i As Long, LastRow As Long

    With ThisWorkbook.Worksheets("Sheet1")

        'Find Last row of column A
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        'Loop column A from row 2 to lastrow
        For i = 2 To LastRow

            strWhole = "'" & .Range("A" & i).Value
            str1 = "'" & Left(strWhole, 8)
            str2 = "'" & Mid(strWhole, 9, 6)
            str3 = "'" & Mid(strWhole, 15, 8)
            str4 = "'" & Mid(strWhole, 23, 8)
            str5 = "'" & Right(strWhole, 4) + "."

            .Range("B" & i).Value = str1
            .Range("C" & i).Value = str2
            .Range("D" & i).Value = str3
            .Range("E" & i).Value = str4
            .Range("F" & i).Value = str5

        Next i

    End With

End Sub