Комбинирование значений в ячейке

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Комбинирование значений в ячейке - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Комбинирование значений в ячейке (Макросы/Sub)

Комбинирование значений в ячейке

fanat1k90

Дата: Пятница, 12.02.2021, 21:12 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Добрый день!
Помогите пожалйста с задачей.
Необходимо написать макрос, который будет сцеплять (комбинировать) все значения из ячейки (Каждое с каждым)
Например в ячейке слкдующее значение:
1 2 3
Макрос должен выдать в конце этого столбца следующие значения
1 2 3
1 2
1 3
1
2 3
2
3
Значение в ячейке - Корабль вышел в море
Макрос должен выдать:
Корабль вышел в море
Корабль вышел в
Корабль вышел море
Корабль вышел
Корабль в море
Корабль в
Корабль море
Корабль
вышел в море
вышел в
вышел море
вышел
в море
в
море

Заранее благодарю за помошь!

[vba]

Код

Sub combo()
Dim arr, i As Long, col As New Collection
x = Cells(1, 1)
For i = 1 To Len(x)
    For n = 1 To Len(x)
        If i <> n Then
        On Error Resume Next
        col.Add (Mid(x, i, 1) & Mid(x, n, 1)), (Mid(x, i, 1) & Mid(x, n, 1))
        End If
    Next n
Next i
For i = 1 To col.Count
    Cells(i + 1, 1) = col(i)
Next i
End Sub

[/vba]

Сообщение отредактировал fanat1k90 - Пятница, 12.02.2021, 21:16

Ответить

Комбинирование значений в ячейке (Макросы/Sub)

Страница 1 из 1
1