Пляшущие листы & отображение .СSV файл.

[Rust_12]

выложила ОЧЕНЬ!! ОЧЕНЬ! упрощенный аналог того, что есть в реале,чтобы не забивать никому голову, ибо у меня кода стопицот листов.. видимо от промежуточных действий,без которых можно обойтись.
Создала с нуля быстренько. В архиве 2 файла- файл-обработчик и исходные данные.
Да,у меня в 10 листах , в которых по 100500 столбцов в каждом , очень много "селектов".
В основном выделятся столбец по имени, копируется,переход на лист в который нужно вставить. Выделяется строго указанный столбец , затем происходит вставка.
В примерчик я закинула,как из исходника по указанным именам копируются данные в указанные колонки для каждого столбца результирующего листа.
Вот эти селекторы, наверное, и можно заменить на что-то более быстродействующее.
Удивительно, но там даже кодировка, о которой я писала выше, не барахлит)

[Hugo121]

Какая конечная цель всего этого действа?
Судя по примеру - можно всё сделать иначе и намного проще и быстрее.

[doober]

Я вот тоже не пойму ничего,а где тысячи столбцов?

[Rust_12]

я же пометочку сделала:

Сообщение от Rust_12

выложила ОЧЕНЬ!! ОЧЕНЬ! упрощенный аналог того, что есть в реале,чтобы не забивать никому голову, ибо у меня кода стопицот листов..

Смысл такой:
Нужно чтобы данные из столбцов со строго определенными именами копировались на др. лист в определенный столбец. это может быть столбец А, а может быть и М, Z, AB . Порядок расположения столбцов с исходными данными может быть какой угодно. Поэтому обращаться к данным этого столбца необходимо по заголовку. В исходном файле я давала колонкам имена и идентифицируя их, отмечала и копировала на др. лист через "селект".
Если есть конкретные предложения, как сделать это проще,- буду очень рада)))

[Hugo121]

Не понятно всё равно.
Давайте так - вот у Вас есть csv как в примере. Что Вам нужно из него выбрать? Коды после двоеточия из колонки "two"?

[Hugo121]

Вот например - с поиском "two" и подстраховкой:

Option Explicit

Sub ImportCSV()
    Dim strText$, objFile As Object
    Dim arr, tmp, i&, ii&, k&
    Application.ScreenUpdating = False

    Set objFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\tmp\Rust_12\пример\Исходные_данные.csv", 1)
    strText = objFile.ReadAll
    objFile.Close

    arr = Split(strText, vbNewLine)
    tmp = Split(arr(0), ";")
    For i = 0 To UBound(tmp)
        If tmp(i) = "two" Then k = i: Exit For
    Next
    ReDim a(1 To UBound(arr) + 1, 1 To 1)

    For i = 1 To UBound(arr)
        If Len(arr(i)) Then
            ii = ii + 1
            tmp = Split(arr(i), ";")
            a(ii, 1) = Trim(Split(tmp(k), ":")(1))
        End If
    Next

    Workbooks.Add(1).Sheets(1).[a1].Resize(ii) = a

    Application.ScreenUpdating = True
End Sub

[Rust_12]

Хьюго Босс! =)
Спасибо большое!
Только зашла в сеть)))
Попробую Ваш вариант! )) Разберусь,- буду пользоваться только им, а не этими селектами)))
Хотя для меня, как для новичка в VBA, активно пытающегося разобраться во всем ,на текущий момент это слишком круто, правда)))
Не хочу никого больше отвлекать и забивать голову своим макросом, долго объяснять все тонкости)) и так тут уже поназадавала вопросов)
Спасибо!

[Hugo121]

Вы ещё не попробовали, а уже обещаете пользоваться
Я так и не понял (а Вы не говорите), что именно нужно в итоге получить.
Этот пример извлекает в новый файл в столбик только коды после двоеточия из колонки "two".
Путь к файлу:

"C:\tmp\Rust_12\пример\Исходные_данные.csv"

Кстати, код можно написать как скрипт vbs - будет результат по даблклику по файлу скрипта.