Перенос уникальных значений на другой лист

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос уникальных значений на другой лист (Макросы/Sub)

alex808

Дата: Среда, 07.09.2016, 16:45 | Сообщение № 1

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

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

Сообщений: 47

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

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

Excel 2007

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

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

Ответить

Матраскин

Дата: Среда, 07.09.2016, 16:54 | Сообщение № 2

Группа: Друзья

Ранг: Обитатель

Сообщений: 375

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

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

20xx

alex808,

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

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

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

Ответить

sboy

Дата: Среда, 07.09.2016, 17:04 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
исправьте последнюю строчку в вашем макросе
[vba]

Код

ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes

[/vba]

Яндекс: 410016850021169

Ответить

alex808

Дата: Среда, 07.09.2016, 17:06 | Сообщение № 4

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

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

Сообщений: 47

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

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

Excel 2007

Матраскин, спасибо большое! работает!

Ответить

alex808

Дата: Среда, 07.09.2016, 17:15 | Сообщение № 5

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

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

Сообщений: 47

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

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

Excel 2007

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

Ответить

sv2014

Дата: Четверг, 08.09.2016, 14:14 | Сообщение № 6

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

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

Сообщений: 226

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

Замечаний: 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 (44.5 Kb)

Сообщение отредактировал sv2014 - Четверг, 08.09.2016, 14:15

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос уникальных значений на другой лист (Макросы/Sub)

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