🔠 Разделение текста по столбцам
Разделение текста из ячейки по столбцам в VBA Excel с настройкой разделителей.

Если у вас есть данные в одной колонке, разделенные запятыми, пробелами или другими символами, их можно автоматически разделить на отдельные столбцы с помощью VBA. Это особенно полезно для работы с CSV-файлами, списками или импортированными данными. 🚀

📌 Код VBA для преобразования текста в столбцы:

Sub SplitTextToColumns()
    Dim ws As Worksheet
    Dim rng As Range
    Dim delimiter As String

    ' Выбор активного листа
    Set ws = ActiveSheet
    
    ' Запрос у пользователя разделителя
    delimiter = InputBox("Введите разделитель (например, запятая, точка с запятой, пробел или другой):", "Выбор разделителя", ",")

    ' Проверка, был ли введен разделитель
    If delimiter = "" Then
        MsgBox "Ошибка! Вы не ввели разделитель.", vbExclamation, "Ошибка"
        Exit Sub
    End If

    ' Выбор диапазона (можно сразу указать нужный диапазон)
    On Error Resume Next
        Set rng = Application.InputBox("Выберите диапазон с текстом:", "Выбор диапазона", Type:=8)
    On Error GoTo 0
    
    If rng Is Nothing Then Exit Sub  ' Если пользователь отменил выбор

    ' Разбиваем текст по столбцам
    rng.TextToColumns Destination:=rng.Cells(1, 1), _
                      DataType:=xlDelimited, _
                      TextQualifier:=xlDoubleQuote, _
                      ConsecutiveDelimiter:=False, _
                      Tab:=False, _
                      Semicolon:=False, _
                      Comma:=False, _
                      Space:=False, _
                      Other:=True, _
                      OtherChar:=delimiter

    MsgBox "Данные успешно разделены по столбцам!", vbInformation, "Готово!"
End Sub

Этот блок в данный момент никакой функции не исполняет

ConsecutiveDelimiter:=False, _
Tab:=False, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _

но с его помощью можно указать разделитель сразу в коде, присвоив нужному элементу значение True.

📌 Как работает макрос?
🔹 Запрашивает у пользователя сначала указать разделитель, потом диапазон ячеек с текстом.
🔹 Разбивает текст в выбранном диапазоне на отдельные столбцы.
🔹 Позволяет использовать любой разделитель (запятая, точка с запятой, пробел и т. д.).

🔥 Теперь данные разделятся на отдельные столбцы, и вам не придется делать это вручную!

#VBA #ExcelVBA #Delimiter #Разделитель #Текст #ПоСтолбцам