Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разбить диапазон на составляющие (Макросы/Sub)
Разбить диапазон на составляющие
Elvira66 Дата: Четверг, 22.11.2018, 14:00 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Помогите написать код разбивающий диапазон на составляющие. Пример приложила
К сообщению приложен файл: 10.xlsx(9.8 Kb)
 
Ответить
СообщениеДобрый день!
Помогите написать код разбивающий диапазон на составляющие. Пример приложила

Автор - Elvira66
Дата добавления - 22.11.2018 в 14:00
_Boroda_ Дата: Четверг, 22.11.2018, 14:20 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13660
Репутация: 5574 ±
Замечаний: 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
 
Ответить
СообщениеТак нужно?
[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]
Сортировку не стал уже делать

Автор - _Boroda_
Дата добавления - 22.11.2018 в 14:20
Elvira66 Дата: Пятница, 23.11.2018, 06:16 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо! это то что нужно! )))
 
Ответить
СообщениеСпасибо! это то что нужно! )))

Автор - Elvira66
Дата добавления - 23.11.2018 в 06:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разбить диапазон на составляющие (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!