Разбить диапазон на составляющие

Вход

Регистрация

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

= Мир MS Excel/Разбить диапазон на составляющие - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разбить диапазон на составляющие (Макросы/Sub)

Разбить диапазон на составляющие

Elvira66

Дата: Четверг, 22.11.2018, 14:00 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

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

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

Excel 2010

Добрый день!
Помогите написать код разбивающий диапазон на составляющие. Пример приложила

К сообщению приложен файл: 10.xlsx (9.8 Kb)

Ответить

_Boroda_

Дата: Четверг, 22.11.2018, 14:20 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub tt()
    r0_ = 2
    n_ = Cells(Rows.Count, 1).End(3).Row - r0_ + 1
    ar = Cells(r0_, 1).Resize(n_, 2)
    Set slov = CreateObject("Scripting.Dictionary")
    With slov
        For i = 1 To n_
            For j = ar(i, 1) To ar(i, 2)
                aaa = .Item(j)
            Next j
        Next i
        Columns(6).ClearContents
        Cells(1, 6) = "Преобразование:"
        Cells(2, 6).Resize(.Count) = Application.Transpose(.Keys)
    End With
End Sub

[/vba]
Сортировку не стал уже делать

К сообщению приложен файл: 10_1.xlsm (17.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Elvira66

Дата: Пятница, 23.11.2018, 06:16 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

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

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

Excel 2010

Спасибо! это то что нужно! )))

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разбить диапазон на составляющие (Макросы/Sub)

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