Как посчитать уникальные значения в строках?

[Bercut]

Уважаемые кодеры, нужна Ваша помощь!
Суть проблемы такова

У меня в excele есть определенный список, например

яблоко
апельсин
яблоко
апельсин
груша

мне надо из этого получить запись такого вида

яблоко 2
апельсин 2
груша 1


Подскажите как можно это воплотить

[alibek]

Сводная таблица тебе поможет.

[Bercut]

Сводная таблица тебе поможет.

может я не совсем понял, но кажется сводная таблица мне не поможет...
мне бы средствами VBA

[alibek]

Именно сводная таблица тебе и поможет.
Но если так хочется средствами VBA, то пожалуйста.
Сортируешь список, ищешь число повторений (для сортированного списка это просто), затем выводишь результаты.

[Bercut]

а как потом удалить все лишнее?
я имею в виду если у меня 10 полей со словом яблоко, как оставить только одно?

[alibek]

Удалить все и создать из полученных результатов. Это будет проще всего.

[Bercut]

спасибо, суть понял...
а вот если бы Вы еще и пример кода привели, я бы прыгал от радости

[Bercut]

Именно сводная таблица тебе и поможет.
Но если так хочется средствами VBA, то пожалуйста.
Сортируешь список, ищешь число повторений (для сортированного списка это просто), затем выводишь результаты.

как-то не очень просто, ничего не получается

[GSerg]

Пример кода по созданию таки сводной таблицы спасёт отца русской демократии?

[KL]

Код: Выделить всё

Sub Test()
    Dim pt As PivotTable, rng As Range
    With ActiveSheet
        Set rngTab = .[A1:A6]
        Set rngDest = .[A10]
        Set pt = ActiveSheet.PivotTableWizard(SourceType:=xlDatabase, _
           SourceData:=rngTab, TableDestination:=rngDest)
        With pt
            .AddFields RowFields:="Список"
            .PivotFields("Список").Orientation = xlDataField
        End With
    End With
End Sub

[uhm]

Может, обойтись функцией СУММЕСЛИ, а?

[Woodsman]

Уважаемые кодеры, нужна Ваша помощь!
Суть проблемы такова

У меня в excele есть определенный список, например

яблоко
апельсин
яблоко
апельсин
груша

мне надо из этого получить запись такого вида

яблоко 2
апельсин 2
груша 1


Подскажите как можно это воплотить

судя по условию, то так
=СЧЁТЕСЛИ(D28:S28;"яблоко")
и.т.д.