Код |
---|
Sub test() Dim wb As Workbook, ws As Worksheet, cl As Range, lastRow&, x& Dim dic As Object, dkey Set wb = ActiveWorkbook Set ws = wb.ActiveSheet Set dic = CreateObject("Scripting.Dictionary") dic.comparemode = vbTextCompare lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row For Each cl In ws.Range("B1:B" & lastRow) If Not dic.exists(cl.Value) Then dic.Add cl.Value, ws.Cells(cl.Row, "A").Value Else dic(cl.Value) = dic(cl.Value) & " " & ws.Cells(cl.Row, "A").Value End If Next cl Set ws = wb.Sheets.Add x = 1 For Each dkey In dic ws.Cells(x, "A").Value = dkey ws.Cells(x, "B").Value = dic(dkey) x = x + 1 Next dkey ws.Columns("A:B").AutoFit End Sub |
два столбца в строку с удалением дубликатов
Проверка количество строк в ячейке
Макрос автоподбора ширины столбцов определенного диапазона
Помогите указать макросу конкретный "Лист" для исполнения., Прописать абсолютный путь.
Макрос найти-заменить, оптимизация кода
21.05.2015 04:47:45
Изменено: |
|||||
|
Макрос найти-заменить, оптимизация кода
20.05.2015 17:24:16
вы имеете ввиду список замен?
если да то это не проблема, вынесите справочник замен в отдельный лист, пробегитесь по нему
будет достаточно быстро
Изменено: |
|||
|
Макрос найти-заменить, оптимизация кода
20.05.2015 17:10:40
Изменено: |
|||||
|
инвентаризационная ведомость: переносить остатки по дням
16.04.2015 03:01:09
|
|||
|
Excel и Access - обмен информации
14.11.2014 15:01:13
сайт |
|||
|
Ищу сотрудника в СПБ, Компании требуется Аналитик / Специалист по обработке информации
VBA доступ к функции с нескольких рабочих книг
Создание автоматизации учета заказов и товаров в Ексель, написание макросов и формул
Поиск значения в текстовых строках в ячейках
Некорректный результат при работе с базой данных
02.07.2014 15:07:35
раз пошла такая пьянка ... вот вам еще решение
|
|||||
|
Подсчет уникальных значений по заданному параметру
Суммирование с учетом месяца
впр и поискпоз макросом, впр и поискпоз макросом
впр и поискпоз макросом, впр и поискпоз макросом
24.06.2014 07:37:36
вроде тестировал, результат тот же что у формул, добавил проверку на ошибку на всяк случай (если не найдено значение, то ячейка empty)
как я понял, человеку просто нужен lookup, только вот с столбец заранее не известен, поэтому столбец, с которого нужно вернуть данные, определялся через match |
|||||
|
впр и поискпоз макросом, впр и поискпоз макросом
23.06.2014 15:56:38
аналог того что вы делаете формулами
Изменено: |
|||
|
Копирование вида ячейки с помощью формулы
Цветовая заливка дублей в разных столбцах
17.06.2014 16:10:07
Изменено: |
|||||
|
автоматическая подстановка чисел
17.06.2014 15:21:56
если не знаете как включить макрос, вот есть переключалка режима безопасности,написанная одним из участников этого форума.
|
|
|
автоматическая подстановка чисел
автоматическая подстановка чисел
17.06.2014 15:03:11
вот
|
|||||
|
Изменение значений на положительное и отрицательное
VBA. Динамический список переменных передать в SQL
VBA. Динамический список переменных передать в SQL
04.06.2014 17:07:07
создать переменную типа string, циклом забрать в нее данные с диапазона и влупить в in
а вообще не очень читаем код, можно проще чонить |
|||
|
помощь с формулой подсчета количества уникальных значений по 2 условиям, платно
Галочка в объединненой ячейке
Нужен макрос