Разделить данные из одного столбца в несколько

@I7PuKOJIuCT · Регистрация: 14.09.2015

Author24 — интернет-сервис помощи студентам

Есть набор данных (Пример данных.txt).
Нужно разделить их по столбцам в excel в формате (Книга1) для последующего использования в matlab (с которым я пока не очень дружен).
Вообще мне нужно вытащить оттуда столбцы (1-2), (3-4), (5-6), (13-14), (15-16), (17-18), (19-20), (21-22), (23-24), (25-26), (27-28), (29-31), (66-70), где ()-столбец, числа - порядковый номер символа в строке, пробел является символом. Остальные столбы можно просто смешать в кашу (как собственно далее и сделал) с последующим удалением.
В примере вставлял в первый столбец и разделял с помощью функции Данные=>Текст по столбцам=>Фиксированной ширины. Подгонял вручную, и это не сложно в общем-то. Но дело в том, что у меня таких txt-файлов с данными 60 шт.
Подскажите скрипт для excel, или иной способ, как мне делать это более-менее быстро, нет желания тратить кучу времени на передвигание ползунков.
Если ответ лежит на поверхности прошу не ругаться, ибо не часто приходится копаться во всём этом, опыта не столь много)
Заранее спасибо.

@Vlad999 · 06.07.2017, 15:30

Visual Basic

Sub TextStreamTest1()
Dim arr, i%, j%, ms()
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("d:\Downloads\проба.txt") 'здесь пропишите свой путь к файлу
arr = Split(f.ReadAll, vbNewLine)
ReDim ms(1 To UBound(arr) + 1, 1 To 13)
For i = 0 To UBound(arr)
    For j = 1 To 13
      ms(i + 1, j) = Mid(arr(i), Choose(j, 1, 3, 5, 13, 15, 17, 19, 21, 23, 25, 27, 29, 66), Choose(j, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 5))
    Next
Next
Range("A1").Resize(UBound(arr), 13) = ms
End Sub

	06.07.2017, 15:30

Разделить данные из одного столбца в несколько

Решение