Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Добавить "Текст по столбцам" в макрос.
 
#1
07.06.2020 18:05:14
Имеется выборка с данными в одной единственной ячейке (в ячейке А1 через ; записано большое количество значений). Эти данные нужно разнести по столбцам, чтобы в каждой ячейке было по одному значению. Знаю, как сделать это через функцию excel "Текст по столбцам", но при записи макроса функция "Текст по столбцам" не записывается с ошибкой "Too many line continuations". Предполагаю, что это из-за большого количества строк в коде. Можно ли как-нибудь решить эту проблему?
 
 
 
#2
07.06.2020 19:14:38
И Вам здравствуйте!
Попробуйтк так:
Код
Sub ToColumns()
Dim Arr, i As Long, ArrOut
    Arr = Split(Range("A1"), ";")
    ReDim ArrOut(1 To 1, 1 To UBound(Arr) + 1)
    For i = 0 To UBound(Arr)
        ArrOut(1, i + 1) = Arr(i)
    Next
    Range("A3").Resize(1, i).Value = ArrOut
End Sub
 
 
 
#3
07.06.2020 20:37:46
... или так:
Код
Sub ToColumns_1()
Dim Arr
Arr = Split(Range("A1"), ";")
Range("A3").Resize(1, UBound(Arr) + 1).Value = Arr
End Sub
 
 
 
Страницы: 1
Наверх