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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос уникальных значений на другой лист - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос уникальных значений на другой лист (Макросы/Sub)
Перенос уникальных значений на другой лист
alex808 Дата: Среда, 07.09.2016, 16:45 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день . Подскажите пожалуйста. Есть итоговый список с Фамилиями продавцов (он постоянно расширяется). Уникальная фамилия продавца служит аргументом в последующих расчетах. Каким образом из списка с повторяющимися фамилиями на ДРУГОМ листе создать список только уникальных фамилий (аргументов)? Сводная таблица не подходит , поскольку отчет будет формироваться из нескольких таблиц...Про возможности Пауэр Куэри знаю, но тут нужен именно макрос.....Таблицы постоянно увеличиваются...Спасибо
К сообщению приложен файл: __.xlsm(15Kb)
 
Ответить
СообщениеДобрый день . Подскажите пожалуйста. Есть итоговый список с Фамилиями продавцов (он постоянно расширяется). Уникальная фамилия продавца служит аргументом в последующих расчетах. Каким образом из списка с повторяющимися фамилиями на ДРУГОМ листе создать список только уникальных фамилий (аргументов)? Сводная таблица не подходит , поскольку отчет будет формироваться из нескольких таблиц...Про возможности Пауэр Куэри знаю, но тут нужен именно макрос.....Таблицы постоянно увеличиваются...Спасибо

Автор - alex808
Дата добавления - 07.09.2016 в 16:45
Матраскин Дата: Среда, 07.09.2016, 16:54 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 341
Репутация: 63 ±
Замечаний: 0% ±

20xx
alex808,
К сообщению приложен файл: new_.xlsm(20Kb)


в интернете опять кто-то не прав

Сообщение отредактировал Матраскин - Среда, 07.09.2016, 16:59
 
Ответить
Сообщениеalex808,

Автор - Матраскин
Дата добавления - 07.09.2016 в 16:54
sboy Дата: Среда, 07.09.2016, 17:04 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 196
Репутация: 48 ±
Замечаний: 0% ±

Excel 2007
Добрый день.
исправьте последнюю строчку в вашем макросе
[vba]
Код
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
[/vba]
 
Ответить
СообщениеДобрый день.
исправьте последнюю строчку в вашем макросе
[vba]
Код
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
[/vba]

Автор - sboy
Дата добавления - 07.09.2016 в 17:04
alex808 Дата: Среда, 07.09.2016, 17:06 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Матраскин, спасибо большое! работает!
 
Ответить
СообщениеМатраскин, спасибо большое! работает!

Автор - alex808
Дата добавления - 07.09.2016 в 17:06
alex808 Дата: Среда, 07.09.2016, 17:15 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
sboy, Спасибо! подставил,поменял названия листов и так же все заработало!
 
Ответить
Сообщениеsboy, Спасибо! подставил,поменял названия листов и так же все заработало!

Автор - alex808
Дата добавления - 07.09.2016 в 17:15
sv2014 Дата: Четверг, 08.09.2016, 14:14 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
alex808, добрый день,еще вариант макроса,кнопки test и очистка

[vba]
Код
Sub test()
     Dim z, i&, m&: z = Sheets("отсюда").Range("A1:A" & Sheets("отсюда").Range("A" & Cells.Rows.Count).End(xlUp).Row).Value
    With CreateObject("scripting.dictionary"): .CompareMode = 1
    For i = 1 To UBound(z)
         If .exists(z(i, 1)) = False Then
           m = m + 1: .Item(z(i, 1)) = 0:  z(m, 1) = z(i, 1)
         End If
   Next
   Sheets("сюда").Range("A1").Resize(.Count, 1).Value = z
   End With
End Sub
[/vba]
К сообщению приложен файл: example_8_09_20.xls(44Kb)


Сообщение отредактировал sv2014 - Четверг, 08.09.2016, 14:15
 
Ответить
Сообщениеalex808, добрый день,еще вариант макроса,кнопки test и очистка

[vba]
Код
Sub test()
     Dim z, i&, m&: z = Sheets("отсюда").Range("A1:A" & Sheets("отсюда").Range("A" & Cells.Rows.Count).End(xlUp).Row).Value
    With CreateObject("scripting.dictionary"): .CompareMode = 1
    For i = 1 To UBound(z)
         If .exists(z(i, 1)) = False Then
           m = m + 1: .Item(z(i, 1)) = 0:  z(m, 1) = z(i, 1)
         End If
   Next
   Sheets("сюда").Range("A1").Resize(.Count, 1).Value = z
   End With
End Sub
[/vba]

Автор - sv2014
Дата добавления - 08.09.2016 в 14:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос уникальных значений на другой лист (Макросы/Sub)
Страница 1 из 11
Поиск:

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