Поиск уникальных значений из массива данных

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

Поиск уникальных значений из массива данных (Формулы/Formulas)

122334boss

Дата: Понедельник, 10.04.2017, 12:47 | Сообщение № 1

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

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

Сообщений: 200

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

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

Добрый день)

Есть массив данных, нужно найти уникальные значения и их количество.
Пример прикреплен.

Не селен в Excel, если решение будет без макросов, буду очень благодарен.

Заранее спасибо))

К сообщению приложен файл: 3332634.xlsx (10.7 Kb)

Ответить

skais675

Дата: Понедельник, 10.04.2017, 14:12 | Сообщение № 2

Группа: Заблокированные

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

Сообщений: 138

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

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

Excel 2010

Для начала решение с макросомТут

Vlad
skype: skais675
email: skais675@mail.ru

Ответить

122334boss

Дата: Понедельник, 10.04.2017, 14:50 | Сообщение № 3

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

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

Сообщений: 200

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

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

skais675,
спасибо, но на сколько я смог разобраться, выборка делается только по одному столбцу, а у меня их много.

Ответить

122334boss

Дата: Вторник, 11.04.2017, 09:13 | Сообщение № 4

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

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

Сообщений: 200

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

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

Вариантов нет?
Нужно руками все делать?

Ответить

sboy

Дата: Вторник, 11.04.2017, 11:19 | Сообщение № 5

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

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

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Руки всегда нужны, например нажать на кнопку
[vba]

Код

Sub unik_()
For c = 1 To 4
    ir = Cells(Rows.Count, 9).End(xlUp).Row
    If ir = 1 Then ir = 3
    Range(Cells(4, c), Cells(7, c)).Copy Range(Cells(ir + 1, 9), Cells(ir + 5, 9))
    Next c
Range(Cells(4, 9), Cells(ir + 5, 9)).RemoveDuplicates Columns:=1
ir = Cells(Rows.Count, 9).End(xlUp).Row
Range(Cells(4, 10), Cells(ir, 10)).FormulaR1C1 = "=COUNTIF(R4C1:R" & ir & "C4,RC[-1])"
End Sub

[/vba]

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

Яндекс: 410016850021169

Ответить

122334boss

Дата: Вторник, 11.04.2017, 11:53 | Сообщение № 6

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

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

Сообщений: 200

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

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

sboy,
спасибо работает)

вот только я не селен в макросах, а размер массива гораздо больше примерно 20 на 1000, не могу понять как увеличить диапазон...

Ответить

sboy

Дата: Вторник, 11.04.2017, 11:55 | Сообщение № 7

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

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

Сообщений: 2566

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

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

Excel 2010

122334boss, Приложите пример данных, нужно для понимания шапки и подвала таблицы

Яндекс: 410016850021169

Ответить

122334boss

Дата: Вторник, 11.04.2017, 12:07 | Сообщение № 8

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

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

Сообщений: 200

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

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

sboy,
вот такой

К сообщению приложен файл: 123.xlsx (82.8 Kb)

Ответить

sboy

Дата: Вторник, 11.04.2017, 13:32 | Сообщение № 9

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

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

Сообщений: 2566

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

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

Excel 2010

кнопка на листе2
[vba]

Код

Sub unik_()
Set sh1 = Sheets(1)
Set sh2 = Sheets(2)
With sh1
    ilr = .Cells(Rows.Count, 1).End(xlUp).Row
    ilc = .Cells(1, Columns.Count).End(xlToLeft).Column
        For c = 1 To ilc
        ir = sh2.Cells(Rows.Count, 1).End(xlUp).Row
        If ir = 1 Then ir = 0
        .Range(.Cells(1, c), .Cells(ilr, c)).Copy sh2.Range(Cells(ir + 1, 1), Cells(ir + ilr, 1))
        Next c
sh2.Range(Cells(1, 1), Cells(ir + 1 + ilr, 1)).RemoveDuplicates Columns:=1
ir = sh2.Cells(Rows.Count, 1).End(xlUp).Row
sh2.Range(Cells(1, 2), Cells(ir, 2)).FormulaR1C1 = "=COUNTIF(Лист1!R1C1:R" & ilr & "C" & ilc & ",RC[-1])"
End With
End Sub

[/vba]

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

Яндекс: 410016850021169

Ответить

122334boss

Дата: Вторник, 11.04.2017, 14:01 | Сообщение № 10

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

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

Сообщений: 200

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

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

sboy,
спасибо огромное))

Ответить

_Boroda_

Дата: Среда, 12.04.2017, 18:10 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата 122334boss, 10.04.2017 в 12:47, в сообщении № 1 ()

если решение будет без макросов, буду очень благодарен

Вариант без макросов, как просили

Код

=ЕСЛИ(СЧЁТЗ(A$4:D$7)=СУММ(СЧЁТЕСЛИ(A$4:D$7;I$3:I3));"";ИНДЕКС(A$4:D$7;МИН(ЕСЛИ(СЧЁТЕСЛИ(A$4:D$7;A$4:D$7)*ЕНД(ПОИСКПОЗ(A$4:D$7;I$3:I3;));СТРОКА(A$4:D$7)-СТРОКА(A$4)+1));ОСТАТ(МИН(ЕСЛИ(СЧЁТЕСЛИ(A$4:D$7;A$4:D$7)*ЕНД(ПОИСКПОЗ(A$4:D$7;I$3:I3;));СТРОКА(A$4:D$7)+СТОЛБЕЦ(A$4:D$7)%));1)/1%+0,1))

К сообщению приложен файл: 3332634_1.xlsx (12.2 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

122334boss

Дата: Пятница, 14.04.2017, 11:43 | Сообщение № 12

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

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

Сообщений: 200

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

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

_Boroda_,
Спасибо огромное))

Ответить

Поиск уникальных значений из массива данных (Формулы/Formulas)

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