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

Вход

Регистрация

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

 

= Мир MS Excel/Макросом уникальные значения в 2х столбцах относительно друг - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макросом уникальные значения в 2х столбцах относительно друг (Макросы/Sub)
Макросом уникальные значения в 2х столбцах относительно друг
vermut Дата: Вторник, 23.08.2016, 08:49 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Ребята всем привет, как реализовать макросом? Есть два столбца А и С в каждом списки наименований.Как вывести в столбцы F и H(либо на отдельный лист) уникальные значения столбца А по сравнению со столбцом С и уникальные значения в столбце С по сравнению с А? В каждом столбце А и С может быть до 10000 наименований
К сообщению приложен файл: ____.xlsx (9.0 Kb)
 
Ответить
СообщениеРебята всем привет, как реализовать макросом? Есть два столбца А и С в каждом списки наименований.Как вывести в столбцы F и H(либо на отдельный лист) уникальные значения столбца А по сравнению со столбцом С и уникальные значения в столбце С по сравнению с А? В каждом столбце А и С может быть до 10000 наименований

Автор - vermut
Дата добавления - 23.08.2016 в 08:49
Pelena Дата: Вторник, 23.08.2016, 09:18 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Обязательно макросом? Другие варианты не предлагать?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеОбязательно макросом? Другие варианты не предлагать?

Автор - Pelena
Дата добавления - 23.08.2016 в 09:18
SLAVICK Дата: Вторник, 23.08.2016, 09:29 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
как реализовать макросом?

Уже реализовано тут .


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
как реализовать макросом?

Уже реализовано тут .

Автор - SLAVICK
Дата добавления - 23.08.2016 в 09:29
vermut Дата: Вторник, 23.08.2016, 09:33 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Другие варианты

Любые варианты, БУДУ РАДА)
 
Ответить
Сообщение
Другие варианты

Любые варианты, БУДУ РАДА)

Автор - vermut
Дата добавления - 23.08.2016 в 09:33
vermut Дата: Вторник, 23.08.2016, 09:34 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Уже реализовано
Спасибо Вам)
 
Ответить
Сообщение
Уже реализовано
Спасибо Вам)

Автор - vermut
Дата добавления - 23.08.2016 в 09:34
Pelena Дата: Вторник, 23.08.2016, 09:46 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Любые варианты

Например, расширенным фильтром
К сообщению приложен файл: -1-.xlsx (36.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Любые варианты

Например, расширенным фильтром

Автор - Pelena
Дата добавления - 23.08.2016 в 09:46
vermut Дата: Вторник, 23.08.2016, 10:35 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
расширенным фильтром

простите никак не пойму, как фильтром? у меня он как картинка без функционала(
 
Ответить
Сообщение
расширенным фильтром

простите никак не пойму, как фильтром? у меня он как картинка без функционала(

Автор - vermut
Дата добавления - 23.08.2016 в 10:35
SLAVICK Дата: Вторник, 23.08.2016, 10:40 | Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
у меня он как картинка без функционала(

Так это Pelena, Вам просто показала настройки фильтра.
Сам фильтр вызвать так:
Данные -- Сортировка и фильтр -- Дополнительно
или сочетанием клавишь так: Alt ЫЛ :D


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
у меня он как картинка без функционала(

Так это Pelena, Вам просто показала настройки фильтра.
Сам фильтр вызвать так:
Данные -- Сортировка и фильтр -- Дополнительно
или сочетанием клавишь так: Alt ЫЛ :D

Автор - SLAVICK
Дата добавления - 23.08.2016 в 10:40
vermut Дата: Вторник, 23.08.2016, 10:43 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
Так это Pelena
Спасибо огромное.
 
Ответить
Сообщение
Так это Pelena
Спасибо огромное.

Автор - vermut
Дата добавления - 23.08.2016 в 10:43
sv2014 Дата: Вторник, 23.08.2016, 18:23 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 0% ±

Excel 2013
vermut, добрый вечер,вариант макроса(запускать с активным Лист1), с выводом результата на Лист2,кнопки use и очистка

[vba]
Код
Sub test1()
   Dim z1, z, m&, i&: z = Range("A3:C" & Range("A" & Rows.Count).End(xlUp).Row).Value
   ReDim z1(1 To UBound(z), 1 To 1)
   With CreateObject("scripting.dictionary"): .CompareMode = 1
   For i = 1 To UBound(z)
  .Item(z(i, 1)) = .Item(z(i, 1)) + 1
   Next
   For i = 1 To UBound(z)
   .Item(z(i, 3)) = .Item(z(i, 3)) + 1
   Next
  For i = 1 To UBound(z)
  If .Item(z(i, 1)) = 1 Then m = m + 1:  z1(m, 1) = z(i, 1)
   Next
   Sheets("Лист2").Range("A3").Resize(m, 1).Value = z1
End With
End Sub
[/vba]

[vba]
Код
Sub test2()
   Dim z1, z2, z, i&: z = Range("A3:C" & Range("A" & Rows.Count).End(xlUp).Row).Value
   ReDim z1(1 To UBound(z), 1 To 1)
  With CreateObject("scripting.dictionary"): .CompareMode = 1
   For i = 1 To UBound(z)
    .Item(z(i, 3)) = .Item(z(i, 3)) + 1
   Next
   For i = 1 To UBound(z)
    .Item(z(i, 1)) = .Item(z(i, 1)) + 1
   Next
  For i = 1 To UBound(z)
    If .Item(z(i, 3)) = 1 Then m = m + 1:  z1(m, 1) = z(i, 3)
   Next
   Sheets("Лист2").Range("B3").Resize(m, 1).Value = z1
End With
End Sub
[/vba]

[vba]
Код
Sub use()
  test1
  test2
End Sub
[/vba]

[vba]
Код
Sub очистка()
Sheets("Лист2").Range("A3:B" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
End Sub
[/vba]
К сообщению приложен файл: example_23_08_2.xls (42.5 Kb)
 
Ответить
Сообщениеvermut, добрый вечер,вариант макроса(запускать с активным Лист1), с выводом результата на Лист2,кнопки use и очистка

[vba]
Код
Sub test1()
   Dim z1, z, m&, i&: z = Range("A3:C" & Range("A" & Rows.Count).End(xlUp).Row).Value
   ReDim z1(1 To UBound(z), 1 To 1)
   With CreateObject("scripting.dictionary"): .CompareMode = 1
   For i = 1 To UBound(z)
  .Item(z(i, 1)) = .Item(z(i, 1)) + 1
   Next
   For i = 1 To UBound(z)
   .Item(z(i, 3)) = .Item(z(i, 3)) + 1
   Next
  For i = 1 To UBound(z)
  If .Item(z(i, 1)) = 1 Then m = m + 1:  z1(m, 1) = z(i, 1)
   Next
   Sheets("Лист2").Range("A3").Resize(m, 1).Value = z1
End With
End Sub
[/vba]

[vba]
Код
Sub test2()
   Dim z1, z2, z, i&: z = Range("A3:C" & Range("A" & Rows.Count).End(xlUp).Row).Value
   ReDim z1(1 To UBound(z), 1 To 1)
  With CreateObject("scripting.dictionary"): .CompareMode = 1
   For i = 1 To UBound(z)
    .Item(z(i, 3)) = .Item(z(i, 3)) + 1
   Next
   For i = 1 To UBound(z)
    .Item(z(i, 1)) = .Item(z(i, 1)) + 1
   Next
  For i = 1 To UBound(z)
    If .Item(z(i, 3)) = 1 Then m = m + 1:  z1(m, 1) = z(i, 3)
   Next
   Sheets("Лист2").Range("B3").Resize(m, 1).Value = z1
End With
End Sub
[/vba]

[vba]
Код
Sub use()
  test1
  test2
End Sub
[/vba]

[vba]
Код
Sub очистка()
Sheets("Лист2").Range("A3:B" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
End Sub
[/vba]

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

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