Как найти сумму одинаковых значений в excel

Как сложить и удалить дубли в Excel.

​Смотрите также​​ Step -1​Name_Wb_I = Workbooks.Item(Int(InputBox(s,​​Call Toolbar(CInt(Sh), CInt(Sh_Ob))​ понял.​ я бы применил​Option Explicit​ $F3 , а​: А сводная, промежду​ так, чтобы количество​5​ помощью функции​
​Формулы​. Используйте диапазон​ приводим ссылку на​ сводную таблицу, читайте​
​ на другом листе,​
​Рассмотрим,​If Arr_I(0, i)​ «Выбрать номер книги»))).Name​​Next i​​Я решил свою​ штатное средство «удалить​​Function Ran(i As​
​ ведь их необходимо​ прочим, у ТС​ просуммировалось.​1 и т.д.​ЧАСТОТА​в группе​ уникальных значений, которые​ оригинал (на английском​ в статье «Сводные​ то в диалоговом​как сложить и удалить​ = «1» Then​Workbooks.Item(Name_Wb_I).Activate​
​MisterYu​ задач своим путем,​ дубликаты» и потом​ Integer, j As​ сначала туда вывести(((​ уже есть -​Например, в таблице​мне нужна сумма​можно, например, подсчитать​Зависимости формул​ были скопированы в​ языке) .​​ таблицы Excel».​
​ окне консолидации в​ дубли в Excel​Rows(i).Delete​Range(Cells(1, 1), Cells(1,​
​: Полный код если​ которым мне понятнее​ подсчет суммы для​ Integer) As String​Михаил С.​ на Лист 2​ 3 раза встречается​ по Ане, Мане,​ количество результатов тестирования,​
​нажмите кнопку​ качестве аргумента, за​Предположим, что требуется определить​Но мы сделаем​ строке «создавать связи​
​. Как выделить дубли​End If​
​ 1)).Select​ кому нужно​ и скорость работы​
​ каждого из источника​If Range(Cells(i, j),​: Сводная здесь лучше​ …​ товар Y000001 (1​
​ Тане и т.д.​ попадающих в определенные​
​Показывать формулы​ исключением заголовок столбца.​ количество уникальных значений​ проще и быстрее.​
​ с исходными данными»​ в Excel, читайте​Sh = Sh​Col_I = Cells(Rows.Count,​Option Explicit​ меня устраивает.​and_evg​ Cells(i, j)).Text =​ всего справится.​Юрий М​ шт., 2 шт.​Длина столбца огромная,​ интервалы. Поскольку данная​.​ Например если диапазон​ в диапазоне, содержащем​ Выделяем таблицу, нажимаем​​ поставили галочку. Теперь,​ в статье «Как​ + 1​ 2).End(xlUp).Row​Dim Col As​Если кому интересно,​: Или воспользоваться сводной​
​ «» Then​
​Serge 007, я​: Я и не​ и 3 шт.).​
​ повторяющиеся значения вразнобой​ функция возвращает массив,​1​ уникальных значений B2:B45,​ повторяющиеся значения. Например,​ сочетание клавиш Ctrl​ если в столбце​ выделить повторяющиеся значения​Call Toolbar(CInt(Sh), CInt(Sh_Ob))​
​Nomer_Str_I = Int(InputBox(«Введите​ Integer​ то напишу как​ таблицей​Ran = 0​ правильно понял? :)​ посмотрел )) Вот​ Нужно сделать так,​
​ и разные по​ ее необходимо вводить​2​
​ введите​ если столбец содержит:​ + T (английская​
​ В изменятся цифры,​ в Excel» тут.​Next i​ номер строки по​
​Dim s As​ решил.​MisterYu​Else​Юрий М​ файл с макросом​ чтобы дубли удалились​ количеству (может быть​ как формулу массива.​​3​=ROWS(B2:B45)​числа 5, 6, 7​
​ на любой раскладке).​ то и в​ Как удалить повторяющиеся​Application.Calculation = xlCalculationAutomatic​ которому будет идти​
​ String​1 этап​: Прилагаю.​Ran = Range(Cells(i,​: Пока Prist добирается​
​ и диаграммой.​ и осталась только​ две Ани и​
​Функция​
​4​.​ и 6, будут​ Получилась такая сводная​ этой таблице данные​ значения, смотрите в​Application.ScreenUpdating = True​ сверка», «Окно ввода​
​Dim wb As​Загоняем данную таблицу​Упс файл 1,1​ j), Cells(i, j)).Value​ домой.​Arkadius​ 1 строка с​ пять Саш…)​ПОИСКПОЗ​5​
​К началу страницы​ найдены три уникальных​

​ таблица с фильтрами.​ пересчитаются автоматически. Проверяем​ статье «Как удалить​Application.EnableEvents = True​ по реєстру для​

excel-office.ru

Подсчет повторяющихся значений (Дубликатов) в MS EXCEL

​ Workbook​ в массив:​ мб. а тут​End If​ot kaz​

​: спасибо, покурил немного​ товаром Y000001. Но​​на выходе мне​​выполняет поиск указанного​6​Для выполнения этой задачи​ значения — 5, 6​ Внизу столбца В​ – изменим цифру​ дубли в Excel».​​Application.DisplayStatusBar = True​​ книги » +​

​Dim Name_Wb As​For i =​​ ограничение​​End Function​: The_Prist, браво!!!​ разных тем и​ чтобы его количество​

​ в идеале, чтобы​ элемента в диапазоне​7​ используйте комбинацию функций​ и 7;​ установили автосумму.​

​ 12 в ячейке​

​Итак, нам нужно​End Sub​ Name_Wb_I))​ String​ Nomer_Str_I To Col_I​

​Максимальный размер файла​
​Sub Base()​Только коректировка нужна,​ действительно через сводную​ было 6 шт.​ было​ ячеек и возвращает​8​ЕСЛИ​строки «Руслан», «Сергей», «Сергей»,​

excel2.ru

Подсчет количества уникальных значений среди повторяющихся

​Выберем фильтром дубли 1.​​ В2 основной таблицы​ перед удалением дублей,​Sub Макрос6()​Nomer_Col_I = Int(InputBox(«Введите​Public Stop_Pr As​If Stop_Pr Then​ 100 Kb​Dim Name_Wb_I, Name_Wb_J​ а именно с​ таблицу вывел сколько​ (суммой всех строк​Аня 46​ относительную позицию этого​9​,​ «Сергей», будут найдены​ Получилось так.​ на цифру 2.​ их сложить. Рассмотрим​Call Wb_Books​ номер колонки по​

​ Boolean​Exit For​Обрежу таблицу.​ As String​ СУММА ЧИСЕЛ.. то​

• ​ раз повторяется та​ этого товара).​Маня 32​ элемента в диапазоне.​10​

• ​СУММ​ два уникальных значения —​Как написать данные одновременно​ Получилось так.​

​ несколько способов.​UserForm1.Show​ которому будет идти​

В этой статье

​Function Ran(i As​End If​

​П.С. Добавил​Dim Col_I, Col_J​

Подсчет количества уникальных значений с помощью фильтра

​ есть в Вашем​​ или иная дата.​​И совсем в​Ксюша 15 и​ Например, если диапазон​A​,​ «Руслан» и «Сергей».​​ в нескольких ячейках,​​Как работать с таблицей​Первый способ.​Call Base​

1. ​ сверка», «Окно ввода​ Integer, j As​Arr_I(1, i) =​Hugo​

   ​ As Integer​ решении.. лист Result​ Теперь вот вопрос.​

2. ​ идеале, чтобы оставалась​​ т.д.​​ A1:A3 содержит значения​​B​​ЧАСТОТА​​Существует несколько способов подсчета​​ смотрите в статье​

   ​ консолидации, как объединить​​Самый простой способ​​End Sub​

3. ​ по реєстру для​​ Integer) As String​ i​​: Покажите рабочий код.​

4. ​Dim Nomer_Str_I, Nomer_Col_I,​​Столбец Часы1 Строка​​ К примеру у​ строка с наименьшей​

   ​т.е. первый столбец​​ 5, 25 и​ ​Данные​,​ количества уникальных значений​ «Как заполнить ячейки​​ несколько таблиц в​ ​ – это использовать​

5. ​MisterYu​​ книги » +​​If Range(Cells(i, j),​​Arr_I(2, i) =​​Может он был​

   ​ Nomer_I_X, Nomer_Str_J, Nomer_Col_J,​ Физика не 1,​ меня 3 раза​ ценой.​ — идентификационный номер,​​ 38, то формула​​Данные​

6. ​ПОИСКПОЗ​ среди повторяющихся.​ в Excel одновременно».​​ одну консолидацией, читайте​​ функцию​: Кстати название темы​ Name_Wb_I))​ Cells(i, j)).Text =​ Ran(CInt(i), CInt(Nomer_Col_I))​ в файле, не​ Nomer_J_X, Nomer_J_X1 As​ 5, 8, а​​ повторилось 07.02.13, 4​​На примере того​

​ второй столбец сумма​

Подсчет количества уникальных значений с помощью функций

​=ПОИСКПОЗ(25,A1:A3,0)​986​​и​​Подсчет количества уникальных значений​​Произведем подсчет всех повторяющихся​​ в статье «Как​​«Консолидация» в Excel​​ не соответствует задаче.​​Nomer_I_X = Int(InputBox(«Введите​​ «» Then​​Arr_I(3, i) =​​ знаю — у​

• ​ Integer​ нужна СУММА этих​ раза 08.02.13 и​​ же товара Y000001.​​ повторяющихся значений.​

• ​возвращает значение 2,​​Руслан​​ДЛСТР​

• ​ с помощью фильтра​ значений в списке,​​ объединить таблицы в​​. У нас такая​​Суть задачи такова:​​ номер колонки начала​Ran = 0​ CDbl(Ran(CInt(i), CInt(Nomer_I_X)))​ меня админы код​Dim i, j​ чисел то есть​ другие даты разное​ У него разные​jakim​ поскольку элемент 25​

• ​Дмитрий​.​Подсчет количества уникальных значений​​ содержащем повторы. Диапазон​​ Excel».​ таблица​ поиск в столбце​​ записи данных», «Окно​​Else​Arr_I(4, i) =​ режут. Но тот,​

• ​ As Integer​ 14!​​ кол-во раз. Как​​ цены 10 грн,​: Консолидацией, сводной таблицей.​

Пример

​ является вторым в​563​Назначьте значение 1 каждому​ с помощью функций​

​ может содержать текстовые​

1. ​Второй способ.​.​

2. ​ одинаковых значений, при​ ввода по реєстру»))​

   ​Ran = Range(Cells(i,​​ Ran(CInt(i), CInt(Nomer_Col_I) +​ что в теме​

   

   ​Dim Num, S1,​

3. ​ot kaz​

4. ​ это свести в​ 11 грн и​KuklP​

5. ​ диапазоне.​67​ из истинных условий​С помощью диалогового окна​ значения и числа.​Сложить все дубли​​Нам нужно сложить все​​ нахождении которых удалить​​Application.ScreenUpdating = False​​ j), Cells(i, j)).Value​​ 2)​​ — не работает.​

​ S2 As String​ ​: Да! То что​ ​ график?​ ​ 12 грн. Чтобы​ ​: Как раз она-то​ ​Функция​ ​789​ ​ с помощью функции​ ​Расширенный фильтр​ ​Если исходный список содержит:​

​ с помощью формул.​ ​ числа в столбце​ ​ одинаковые строки при​ ​Application.Calculation = xlCalculationManual​ ​End If​ ​Sh = Sh​ ​И вообще зачем​ ​Dim Arr_I(3, 17000)​ ​ нужно, буду тестить​ ​Z​ ​ оставалась минимальная цена​ ​ лучше всего и​ ​ДЛСТР​ ​235​ ​ЕСЛИ​ ​можно извлечь уникальные​ ​ {​ ​ Таблица та же.​ ​ В по каждому​ ​ этом просуммировать значение​ ​Application.EnableEvents = False​ ​End Function​ ​ + 1​ ​ в файле 1000​ ​ As String​ завтра отпишусь ;)​: См.​ 10 грн. Но​ подходит. Или объясните​ ​возвращает число символов​ ​Руслан​.​ значения из столбца​11212​Принцип такой. Создаем​ дублю из столбца​ ​ соседнего столбца.​ ​Application.DisplayStatusBar = False​Private Sub Wb_Books()​Call Toolbar(CInt(Sh), CInt(Sh_Ob))​ строк? Достаточно и​Dim Check As​Serge​

​ot kaz​​ это уже совсем​

• ​ почему.​ в текстовой строке.​Дмитрий​Вычислите сумму, используя функцию​ данных и вставить​}. Тогда количество значений,​ дополнительный столбец, в​

• ​ А – отдельно​Пример​Workbooks.Item(Name_Wb_I).Activate​Col = 0​Next i​​ десяти.​​ Boolean​​: Естественно:-)​​: Господа,помогите решить проблему.​​ в идеале -​​tamriko11​

Описание функций

• ​Функция​​689​​СУММ​ их в новое​ которые повторяются будет​ ячейках которого будем​ все ячейки с​​11 10,0​​Sh_Ob = Col_I​s = «»​2 этап​А так да,​Dim SumAs Double​ot kaz​Имею таблицу в​

• ​ если это сильно​​: сводная таблица не​​СУММ​789​.​ местоположение. С помощью​ равно 5, т.е.​ писать название дубля,​ цифрой 1, отдельно​11 15,0​ — (Nomer_Col_I -​​For Each wb​​Ищу одинаковые значение​ сводная, или удалить​Application.ScreenUpdating = False​: 2The_Prist. Donate на​

• ​ три столбца (№)​​ сложно, то не​​ подходит, потому что​вычисляет сумму всех​

• ​Дмитрий​​Подсчитайте количество уникальных значений​​ функции​ {1, 1, 2,​ который нужно сложить.​ все ячейки с​22 20,0​ 1)​ In Workbooks​ в массиве по​ на копии дубликаты​​Application.Calculation = xlCalculationManual​​ ЯД.​ (Вид) (Часы)​ обязательно.​ сумму «итого» по​

• ​ чисел, указанных в​​143​​ с помощью функции​ЧСТРОК​ 1, 2} (значения​ Мы будем писать​ цифрой 2, т.д.​11 5,0​Sh = 0​

​Col = Col​

support.office.com

Суммирование повторяющихся значений

​ Arr_I(2, i).​​ и просуммировать формулой.​Application.EnableEvents = False​По делу..​1. Как решить​Чего-то подобного на​
​ идентификационному номеру мне​
​ качестве аргументов. Каждый​
​56​
​ЧАСТОТА​
​можно подсчитать количество​
​ в исходном массиве​
​ дубли в ячейках​
​ Мы не знаем,​
​22 5,0​
​For i =​
​ + 1​
​После нахождению суммирую​
​Или как вариант:​
​Application.DisplayStatusBar = False​
​Все в принципе​
​ задачу суммирования значений​
​ форуме не нашёл,​
​ надо подставить в​
​ аргумент может быть​
​237​
​. Функция​
​ элементов в новом​
​ выделены​
​ С2, С3, С4,​
​ сколько и какие​
​Результат​
​ Nomer_Str_I To Col_I​If wb.Name =​ значение соответственно Arr_I(3,​
​Sub tt()​Check = False​ работает замечательно. Вот​ (Часы) по одинаковым​ поэтому обращаюсь к​ другую таблицу с​
​ диапазоном, ссылкой на​67​ЧАСТОТА​
​ диапазоне.​
​жирным​
​ С5.​ у нас дубли​
​11 30,0​If Stop_Pr Then​ «» Then​ i) и записываю​

​Dim a, i&,​​Sum = 0​

​ только заполнил 100​​ значениям (Вид)?​ Вам.​ помощью ВРП​ ячейку, массивом, константой,​

​235​​пропускает текстовые и​Выделите диапазон ячеек или​).​А в следующем​ в большой таблице.​22 25,0​Exit For​
​wb.Close True​ признак повторения (​ ii&, s$​Stop_Pr = False​

​ строк значениями из​​2. Можно ли​buchlotnik​
​а как из​
​ формулой или результатом​Формула​

​ нулевые значения. Для​​ убедитесь в том,​Если исходный список значений​ столбце напишем формулу,​

​На новом листе​​sboy​End If​

​Else​​ у меня «1»)​

​With [c1].CurrentRegion​​Nomer_Col_I=3​ другой таблицы(копировать-вставить-специальная вставка-значения)​ дополнительно при суммировании​: сводная устроит?​
​ сводной таблицы потом​ выполнения другой функции.​Описание (результат)​

​ первого вхождения заданного​​ что активная ячейка​ находится в диапазоне​ которая будет искать​ делаем активной ячейку.​: Добрый день.​Arr_I(1, i) =​

planetaexcel.ru

Удаление дубликатов строк с суммированием значений (Формулы/Formulas)

​Name_Wb = wb.Name​​ в массив Arr_I(0,​a = .Value:​For i =​
​ в итоге при​ в столбце (№)​frion​ воспользоваться ВРП я​ Например, функция​=СУММ(ЕСЛИ(ЧАСТОТА(A2:A10,A2:A10)>0,1))​ значения эта функция​ находится в таблице.​
​А7:А16 ​ дублирующие данные в​ Мы, в нашем​Вам конечно с​
​ i​s = s​ j) = «1»​ .Clear​ Nomer_Str_I To Col_I​ нажатии на «создать​ вывести номера строк​: Спасибо большое! Результат​ не знаю​СУММ(A1:A5)​Подсчет количества уникальных числовых​ возвращает число, равное​Убедитесь в том, что​(см. файл примера), то​
​ первом столбце и​ примере, сделаем активной​ этим работать, но​Arr_I(2, i) =​
​ + Name_Wb +​Код​End With​If Stop_Pr Then​ отчет» процесс обсчета​ которые сумировались.​ мне подходит. Всё​Lyco​вычисляет сумму всех​ значений в диапазоне​ общему количеству его​ диапазон ячеек содержит​ число повторяющихся значений​
​ складывать цифры по​ ячейку Е2 на​ на мой взгляд​ Ran(CInt(i), CInt(Nomer_Col_I))​

​ » =» +​​For i =​

​With GetObject(«New:{EE09B103-97E0-11CF-978F-00A02463E06F}»)​​Exit For​ занимает примерно 2​Пример прикреплен.​ просто, а такая​

​: 1. Данные -​​ чисел в ячейках​

​ A2:A10 без учета​​ вхождений. Для каждого​ заголовок столбца.​

excelworld.ru

сумма повторяющихся значений

​ можно вычислить с​​ дублям из второго​ этом же листе.​ очень не оптимально​
​Arr_I(3, i) =​ Str(Col) + vbCrLf​ Nomer_Str_I To Col_I​For i =​End If​ мин.​В какую сторону​ большая экономия времени!​ Удалить дубликаты.​ от A1 до​ пустых ячеек и​ последующего вхождения того​На вкладке​ помощью формулы =СУММПРОИЗВ(—(СЧЁТЕСЛИ(A7:A16;A7:A16)>1))​ столбца.​ На закладке «Данные»​Вот как я​ CDbl(Ran(CInt(i), CInt(Nomer_I_X)))​End If​For j =​ 1 To UBound(a)​

​For j =​​Это нормально? Или​ хоть копать, подскажите?​
​Stics​

​2. СУММЕСЛИ.​​ A5.​ текстовых значений (4)​ же значения функция​Данные​Формула хороша тем, что​

​В ячейке D2​​ в разделе «Работа​ предлагал в сообщении№2,​Arr_I(4, i) =​Next wb​ i + 1​

​s = a(i,​​ i + 1​ с форматами у​Заранее спасибо за​: можно и формулами​

​Или я чего-то​​Функция​=СУММ(ЕСЛИ(ЧАСТОТА(ПОИСКПОЗ(B2:B10,B2:B10,0),ПОИСКПОЗ(B2:B10,B2:B10,0))>0,1))​ возвращает ноль.​в группе​ производит подсчет и​ пишем такую формулу.​ с данными» нажимаем​ тоже не оптимизировал,​ Ran(CInt(i), CInt(Nomer_Col_I) +​End Sub​ To Col_I​ 1)​ To Col_I​ меня че не​ помощь.​

​frion​​ не понимаю?​

planetaexcel.ru

Суммирование одинаковых значений в списке?

​ЕСЛИ​​Подсчет количества уникальных текстовых​
​Узнайте номер позиции текстового​Сортировка и фильтр​ текстовых и числовых​
​ =СУММЕСЛИ(A2:A9;C2;B2:B9)​ на кнопку функции​ но на большом​ 2)​
​Sub Toolbar(k As​If Arr_I(2, i)​If .exists(s) Then​If Ran(CInt(i), CInt(Nomer_Col_I))​ так?​
​ot kaz​
​: Спасибо! С формулами​The_Prist​
​возвращает одно значение,​ и числовых значений​

​ она игнорирует пустые​​ пишем такую формулу.​ окно.​

​ ощутите в разы​​ + 1​ Integer)​ And Arr_I(2, i)​ a(.Item(s), 2) +​ Then​Юрий М​
​ скорую помощь!​Arkadius​ что-то новое. Наверное,​ дает в результате​ который не должен​ПОИСКПОЗ​.​ ячейки.​ =СУММЕСЛИ(A3:A9;C3;B3:B9)​Заполнили его так:​Sub Макрос2()​Call Toolbar(CInt(Sh), CInt(Sh_Ob))​

​With UserForm1​​ <> «0» Then​ a(i, 2)​
​Sum = Sum​: У меня практически​

​Тоже бился с​​: Здравствуйте, уважаемые знатоки.​ ВПР?​

​ значение ИСТИНА, и​​ содержать пустые ячейки​
​. Возвращенное значение затем​Появится диалоговое окно​ ​По такому принципу​В строке «Функция»​
​Application.ScreenUpdating = False​Next i​.Frame1.Caption = «Процесс​Sum = Sum​Else​ + CDbl(Ran(j, CInt(Nomer_I_X)))​

​ мгновенно.​​ СУММЕСЛИ, но видимо​ Помогите решить несложную​jakim​

​ другое, если условие​​ (7)​

​ выделены с помощью​​ других ячейках столбца​ Можно выбрать другие​

planetaexcel.ru

Просуммировать ячейки для повторяющихся значений (Макросы/Sub)

​ЧАСТОТА​​Установите переключатель​
​ Условного форматирования (см. статью​ D. Получилось так.​ действия.​
​Set r1 =​Stop_Pr = False​ + Str(Full)​ «1»​ = ii​j = j — 1​ книга.​
​Строк в таблице​ повторяющимися датами. Необходимо​Nic70y​
​К началу страницы​ и числовых значений​
​, что позволяет определить​скопировать результат в другое​ Выделение повторяющихся значений​Эту же формулу можно​

​В строке «Ссылка»​
​ Range(Cells(1, 3), Cells(1,​Sh = 0​.Label2.Caption = Str(100​
​Check = True​a(ii, 1) =​Col_I = Col_I​
​Если она закрыта​
​ может быть до​
​ подсчитать сколько раз​: формулы:​
​tamriko11​
​ в диапазоне A2:A10​
​ количество вхождений текстовых​
​ место​ в MS EXCEL).​
​ написать, вызвав диалоговое​ поставили диапазон нашей​
​ 3).End(xlDown))​For i =​ * Round(k /​End If​
​ a(i, 1): a(ii,​ - 1​
​ то считает моментально!​ 200.​
​ повторяется каждая уникальная​tamriko11​
​: Добрый день, подскажите,​ без учета пустых​
​ значений.​
​.​
​СОВЕТ:​
​ окно функции «СУММЕСЛИ».​
​ таблицы. У нас​
​Set r2 =​
​ Nomer_Str_I To Col_I​
​ Full, 2)) +​
​Next j​
​ 2) = a(i,​Check = True​
​А вот этой​
​Против макроса ничего​
​ дата. Проблема заключается​
​: Jakim спасибо большое,​ пожалуйста, как в​ ячеек и текстовых​
​Найдите пустые ячейки с​В поле​Решение обратной задачи​
​ Она расположена на​ указан фиксированный размер​
​ r1.Offset(0, 1)​For j =​
​ "%"​
​If Check Then​ 2)​
​End If​
​ вариант работает прекрасно​
​ не имею, главное​
​ в том, что​
​ А скажите, пожалуйста,​ Экселе просуммировать повторяющиеся​ значений (6)​
​ помощью функции​
​Копировать​
​ по подсчету неповторяющихся​
​ закладке «Формулы» в​
​ диапазона с абсолютными​
​shn = ActiveSheet.Name​
​ i + 1​
​.Label2.Width = Int(200​
​Range(Cells(i, CInt(Nomer_I_X)), Cells(i,​
​End If​


​Next j​​ и при открытой​
​ наглядно отобразить под​ в ячейке с​ как вы создали​
​ значения. Сводная таблица​Примечания​
​ДЛСТР​введите ссылку на​ значений можно найти​
​ разделе «Библиотека функций»​ ссылками и названием​adr2 = «‘»​ To Col_I​ * (k /​ CInt(Nomer_I_X))).Value = CDbl(Arr_I(3,​

​Next​​If Check Then​ книге! А чем​

​ какими номерами строки​​ датой есть еще​
​ этот файл.​ не подходит.​    ​
​. Пустые ячейки имеют​ ячейку.​
​ здесь:  Подсчет неповторяющихся​
​ нажимаем функцию «Математические»,​

​ столбцов. Можно написать​​ & shn &​
​If Arr_I(2, i)​ Full))​ i)) + Sum​End With​Range(Cells(i, Nomer_I_X), Cells(i,​ он хуже первого?​ суммировались. Поможите?​
​ и время. Время​выделяете таблицу -​пример​Формулы в этом примере​
​ нулевую длину.​Кроме того нажмите кнопку​ значений. Вообще, если​ выбираем «СУММЕСЛИ». Заполним​
​ диапазон с относительными​
​ "'!" & r2.Address(ReferenceStyle:=xlR1C1)​
​ = Arr_I(2, j)​End With​
​Check = False​
​[c1].Resize(ii, 2) =​ Nomer_I_X)).Value = CDbl(Ran(CInt(i),​
​ Проблемы какие могут​
​p.s.Действительно считаю, что​
​ меня не интересует,​ консолидация - а​
​Столбец А​ должны быть введены​
​Чтобы этот пример проще​
​Свернуть диалоговое окно​ от общего количества​ диалоговое окно так.​
​ ссылками.​
​Sheets.Add.Activate​ And Arr_I(2, i)​DoEvents​
​Sum = 0​ a​ CInt(Nomer_I_X))) + Sum​ быть?​
​ в данном случае​
​ нужно подсчитать только​
​ дальше что?​
​Аня​ как формулы массива.​
​ было понять, скопируйте​

​временно скрыть диалоговое​​ значений отнять число​

​В строке «Диапазон» указываем​​Подробнее о видах​With Range(«C1»).Resize(r1.Count, 1)​ <> «0» Then​End Sub​End If​End Sub​Check = False​MisterYu​ СПАСИБО мало будет​
​ количество повторений каждой​tamriko11​

​Маня​​ Выделите все ячейки,​ его на пустой​
​ окно, выберите ячейку​ повторяющихся, то получим​ диапазон столбца А​ ссылок читайте в​
​.Value = r1.Value​Sum = Sum​Sub Base()​Sh = Sh​MisterYu​
​Sum = 0​: Доброго времени суток.​ )))​
​ из дат. В​
​: — спасибо большое,​Таня​

​ содержащие формулу, нажмите​ лист.​
​ на листе и​
​ количество неповторяющихся значений.​
​ с дублями.​
​ статье «Относительные и​.RemoveDuplicates Columns:=1, Header:=xlNo​
​ + CDbl(Arr_I(3, j))​Dim Name_Wb_I, Name_Wb_J​
​ + 1​: Как бы вот.​
​End If​Есть таблица размерностью​Serge​
​ идеале получить еще​ я такое конечно​
​Маня​
​ клавишу F2, а​

​Копирование примера​
​ затем нажмите кнопку​Примечание:​В строке «Критерий»​
​ абсолютные ссылки в​End With​Arr_I(0, j) =​ As String​Call Toolbar(CInt(Sh), CInt(Sh_Ob))​Hugo​Call Toolbar(CInt(i), CInt(Col_I))​
​ 15000 строк и​
​: Ну, тогда не​ и диаграмму которая​
​ бы никогда не​Аня​ затем — клавиши CTRL+SHIFT+ВВОД.​
​Создайте пустую книгу или​Развернуть диалоговое окно​Мы стараемся как​ указываем ячейку столбца​
​ Excel» здесь.​With Range(Cells(1, 3),​
​ «1»​Dim Col_I, Col_J​
​Next i​
​: Ну я ведь​
​Next i​
​ 6 колонок.​
​ лезу :-)​ по одной оси​ составила, но, когда​
​Ксюша​
​Чтобы просмотреть процесс вычисления​
​ лист.​
​.​ можно оперативнее обеспечивать​
​ С, в которой​
​Поставили галочки у​
​ Cells(1, 3).End(xlDown)).Offset(0, 1)​
​Check = True​ As Integer​3 этап​ писал — такое​Application.Calculation = xlCalculationAutomatic​
​Суть макроса в​
​ot kaz​ будет показывать дату​ уже сделано, формулы​
​Аня​ функции по шагам,​
​Выделите пример в разделе​
​Установите флажок​
​ вас актуальными справочными​ будем писать название​
​ слов:​
​adr1 = .Offset(0,​

​End If​​Dim Nomer_Str_I, Nomer_Col_I,​Прохожу обратным циклом​

​ "вот" мне без​
​Application.ScreenUpdating = True​ том что бы​
​: Во вложении полная​ а по другой​
​ понятны​Маня​
​ выделите ячейку с​ справки.​
​Только уникальные записи​ материалами на вашем​
​ дубля.​«подписи верхней строки»​ -1).Address(ReferenceStyle:=xlR1C1)​
​Next j​ Nomer_I_X, Nomer_Str_J, Nomer_Col_J,​ и удаляю строки​
​ толку... Ну да​
​Application.EnableEvents = True​
​ по 3 столбцу​ структура таблицы, сумируются​
​ число повторений этой​
​frion​
​Саша​
​ формулой, а затем​
​Примечание:​
​и нажмите кнопку​ языке. Эта страница​
​В строке «Диапазон​ – это название​
​.FormulaR1C1 = "=SUMIF("​If Check Then​
​ Nomer_J_X, Nomer_J_X1 As​
​ соответствующие признаку в​
​ ладно, выше добавил​
​Application.DisplayStatusBar = True​ искать повторяющиеся значение,​ значения из столбцов​ даты в указанном​
​: Здравствуйте уважаемые знатоки.​
​Паша​
​ на вкладке​
​ Не выделяйте заголовки строк​ОК​ переведена автоматически, поэтому​
​ суммирования» указываем диапазон​
​ столбцов;​ & adr1 &​Range(Cells(i, CInt(Nomer_I_X)), Cells(i,​ Integer​
​ массиве Arr_I(0, j)​ макрос. Если нужно​End Sub​ при найденном просуммировать​
​ Часы1 и Часы2.​ диапазоне. Пример прикладываю​ Столкнулся с такой​
​Глаша​
​Формулы​
​ или столбцов.​
​.​
​ ее текст может​ столбца В, числа​
​«значения левого столбца»​ ",RC[-1]," & adr2​
​ CInt(Nomer_I_X))).Value = CDbl(Arr_I(3,​Dim i, j​ = "1"​ сохранить формат -​
​sboy​ значение 4 столбца​
​ Таблица неизменна только​Z​
​ ситуацией:​Паша​
​в группе​Выделение примера в справке​
​Уникальные значения из выделенного​ содержать неточности и​
​ из ячеек которого​ - это значит,​
​ & ")"​ i)) + Sum​
​ As Integer​
​Код​ можно добавить апостроф​
​: Добрый день.​ для найденных.​
​ таких строк 200.​: Сводная диаграмма с​Есть таблица с​Саша​Зависимости формул​Нажмите клавиши CTRL+C.​ диапазона будут скопированы​
​ грамматические ошибки. Для​ нужно сложить.​ что искать дубли​.Value = .Value​Check = False​Dim Num, S1,​For i =​
​ в строке​Думаю, что нужно​После удалить повторяющиеся​И еще, я​
​ группировкой по ДНЯМ...​
​ перечнем товаров. У​
​Аня​
​нажмите кнопку​
​Выделите на листе ячейку​
​ в новое место,​ нас важно, чтобы​В строке формул​
​ в левом первом​
​End With​Sum = 0​
​ S2 As String​
​ Col_I To Nomer_Str_I​
​a(ii, 1) = "'"​
​ переименовать тему (в​ строки и поставить​
​ как то сразу​см. -​
​ каждого товара есть​Столбец В​
​Вычисление формулы​ A1 и нажмите​ начиная с ячейки,​
​ эта статья была​ сразу видна получившаяся​
​ столбце.​
​'Sheets(shn).Delete​
​End If​
​Dim Arr_I(4, 17000)​
​ Step -1​
​ & a(i, 1)​
​ суть макроса)​ общую сумму.​
​ недопонял, в Вашем​Юрий М​ своя цена и​
​1​.​ клавиши CTRL+V.​ указанной в поле​
​ вам полезна. Просим​ формула.​
​Нажимаем «ОК». Поучилось​'ActiveSheet.Name = shn​
​Sh = Sh​
​ As String​
​If Arr_I(0, i)​
​MisterYu​
​и приложите файл-пример​Данный код не​ решении в итоговой​
​: Получаем к-во по​
​ количество. Но в​
​4​
​Функция​Чтобы переключиться между просмотром​
​Копировать​
​ вас уделить пару​
​Третий способ.​
​ так.​Application.ScreenUpdating = True​ + 1​
​Dim Check As​ = "1" Then​
​: Спасибо Вам за​
​ с данными.​
​ оптимизирован.​ таблице в столбцеF​
​ датам, а уже​
​ табличке есть товары,​
​2​
​ЧАСТОТА​
​ результатов и просмотром​
​.​
​ секунд и сообщить,​
​Создать таблицу с​
​Если таблицу консолидации делаем​
​Application.DisplayAlerts = True​
​Call Toolbar(CInt(Sh), CInt(Sh_Ob))​
​ Boolean​


​Rows(i).Delete​​ помощь.​Чтобы ускорить код,​
​Прошу Вас мне​ значения ведь уже​ по этим данным​ которые дублируются. (пример​4​вычисляет частоту появления​ формул, возвращающих эти​
​В пустую ячейку под​
​ помогла ли она​
​ фильтром. Внизу столбца​
​ на другом листе,​
​’MsgBox Format(Timer -​
​Next i​
​Dim Sum, Sum1​
​End If​
​Я не настолько​

​ нужно написать новый​​ подсказать на мои​
​ стоят и в​ построить диаграмму не​ таблички я прикрепил).​6​
​ значений в диапазоне​ результаты, нажмите клавиши​ последней ячейки в​ вам, с помощью​ В установить автосумму.​ то получится такая​
​ t, "0.00000") &​
​Sh = 0​
​ As Double​
​Sh = Sh​
​ силен в программированию.​ =)​ ошибки по данному​
​ формуле Вы на​ проблема.​
​Нужно удалить дубли​
​3​ и возвращает вертикальный​ CTRL+` (знак ударения)​
​ диапазоне введите функцию​
​ кнопок внизу страницы.​
​ Выбирать фильтром нужные​
​ таблица.​
​ "sec"​
​For i =​Dim Sh, Sh_Ob​
​ + 1​ Ваш код частично​
​Судя по описанию,​ коду.​ них ссылаетесь напр.​Z​
​ из таблицы, но​
​2​
​ массив чисел. С​
​ или на вкладке​
​СТРОК​
​ Для удобства также​
​ дубли. Как сделать​Когда мы делали консолидацию​End Sub​
​ Col_I To Nomer_Str_I​


excelworld.ru

​ As Integer​

Простые логические функции такие как ЕСЛИ обычно предназначены для работы с одним столбцом или одной ячейкой. Excel также предлагает несколько других логических функций служащих для агрегирования данных. Например, функция СУММЕСЛИ для выборочного суммирования диапазона значений по условию.

Примеры формулы для суммы диапазонов с условием отбора в Excel

Ниже на рисунке представлен в таблице список счетов вместе с состоянием по каждому счету в виде положительных или отрицательных чисел. Допустим нам необходимо посчитать сумму всех отрицательных чисел для расчета суммарного расхода по движению финансовых средств. Этот результат будет позже сравниваться вместе с сумой положительных чисел с целью верификации и вывода балансового сальдо. Узнаем одинаковые ли суммы доходов и расходов – сойдется ли у нас дебит с кредитом. Для суммирования числовых значений по условию в Excel применяется логическая функция =СУММЕСЛИ():

Функция СУММЕСЛИ анализирует каждое значение ячейки в диапазоне B2:B12 и проверяет соответствует ли оно заданному условию (указанному во втором аргументе функции). Если значение меньше чем 0, тогда условие выполнено и данное число учитывается в общей итоговой сумме. Числовые значения больше или равно нулю игнорируются функцией. Проигнорированы также текстовые значения и пустые ячейки.

В приведенном примере сначала проверяется значения ячейки B2 и так как оно больше чем 0 – будет проигнорировано. Далее проверяется ячейка B3. В ней числовое значение меньше нуля, значит условие выполнено, поэтому оно добавляется к общей сумме. Данный процесс повторяется для каждой ячейки. В результате его выполнения суммированы значения ячеек B3, B6, B7, B8 и B10, а остальные ячейки не учитываются в итоговой сумме.

Обратите внимание что ниже результата суммирования отрицательных чисел находится формула суммирования положительных чисел. Единственное отличие между ними — это обратный оператор сравнения во втором аргументе где указывается условие для суммирования – вместо строки » 0″ (больше чем ноль). Теперь мы можем убедиться в том, что дебет с кредитом сходится балансовое сальдо будет равно нулю если сложить арифметически в ячейке B16 формулой =B15+B14.

Пример логического выражения в формуле для суммы с условием

Другой пример, когда нам нужно отдельно суммировать цены на группы товаров стоимости до 1000 и отдельно со стоимостью больше 1000. В таком случае одного оператора сравнения нам недостаточно ( =1000) иначе мы просуммируем сумму ровно в 1000 – 2 раза, что приведет к ошибочным итоговым результатам:

Это очень распространенная ошибка пользователей Excel при работе с логическими функциями!

Внимание! В первом примере нулевые значения нам необязательно было учитывать, так как на балансовое сальдо это никак не повлияло бы, но во втором случаи нужно составлять критерий условия суммирования иначе, чтобы не допустить ошибочных просчетов.

Второй аргумент функции СУММЕСЛИ, то есть условие, которое должно быть выполнено, записывается между двойными кавычками. В данном примере используется символ сравнения – «меньше» ( ) меньше ( ), больше или равно (>=), меньше или равно ( Таблица правил составления критериев условий:

Чтобы создать условие	Примените правило	Пример
Значение равно заданному числу или ячейке с данным адресом.	Не используйте знак равенства и двойных кавычек.	=СУММЕСЛИ(B1:B10;3)
Значение равно текстовой строке.	Не используйте знак равенства, но используйте двойные кавычки по краям.	=СУММЕСЛИ(B1:B10;»Клиент5″)
Значение отличается от заданного числа.	Поместите оператор и число в двойные кавычки.	=СУММЕСЛИ(B1:B10;»>=50″)
Значение отличается от текстовой строки.	Поместите оператор и число в двойные кавычки.	=СУММЕСЛИ(B1:B10;»<>выплата»)
Значение отличается от ячейки по указанному адресу или от результата вычисления формулы.	Поместите оператор сравнения в двойные кавычки и соедините его символом амперсант (&) вместе со ссылкой на ячейку или с формулой.	=СУММЕСЛИ(A1:A10;» «&СЕГОДНЯ())
Значение содержит фрагмент строки	Используйте операторы многозначных символов и поместите их в двойные кавычки	=СУММЕСЛИ(A1:A10;»*кг*»;B1:B10)

Во втором аргументе критериев условий можно использовать разные функции и формулы. Ниже на рисунке изображен список дат и присвоенных им значений. Важно отметить что сегодня на момент написания статьи дата – «03.11.2018». Чтобы суммировать числовые значения только по сегодняшней дате используйте формулу:

Чтобы суммировать только значения от сегодняшнего дня включительно и до конца периода времени воспользуйтесь оператором «больше или равно» (>=) вместе с соответственной функцией =СЕГОДНЯ(). Формула c операторам (>=):

=»&СЕГОДНЯ();B2:B10)/B11′ >

Суммирование по неточному совпадению в условии критерия отбора

Во втором логическом аргументе критериев условий функции СУММЕСЛИ можно применять многозначные символы – (?)и(*) для составления относительных неточных запросов. Знак вопроса (?) – следует читать как любой символ, а звездочка (*) – это строка из любого количества любых символов или пустая строка. Например, нам необходимо просуммировать только защитные краски-лаки с кодом 3 английские буквы в начале наименования:

Суммируются все значения ячеек в диапазоне B2:B16 в соответствии со значениями в ячейках диапазона A2:A16, в которых после третьего символа фрагмент строки «-защита».

Таким образом удалось суммировать только определенную группу товаров в общем списке отчета по складу. Данный фрагмент наименования товара должен встречаться в определенном месте – 3 символа от начала строки. Нет необходимости использовать сложные формулы с функцией =ЛЕВСИМВ() и т.д. Достаточно лишь воспользоваться операторами многозначных символов чтобы сформулировать простой и лаконичный запрос к базе данных с минимальными нагрузками на системные ресурсы.

Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке).

Допустим, вам нужно узнать, сколько уникальных значений есть в диапазоне, содержащем повторяющиеся значения. Например, если столбец включает в себя следующее:

Значения 5, 6, 7 и 6 выводятся в виде трех уникальных значений: 5, 6 и 7.

Значения «Кирилл», «Сергей», «Сергей», «Сергей», результат — это два уникальных значения — «Кирилл» и «Сергей».

Существует несколько способов подсчета уникальных значений среди повторяющихся.

С помощью диалогового окна » Расширенный фильтр » можно извлекать уникальные значения из столбца данных и вставлять их в новое место. Затем с помощью функции ЧСТРОК можно подсчитать количество элементов в новом диапазоне.

Выделите диапазон ячеек или убедитесь в том, что активная ячейка находится в таблице.

Убедитесь, что диапазон ячеек содержит заголовок столбца.

На вкладке Данные в группе Сортировка и фильтр нажмите кнопку Дополнительно.

Откроется диалоговое окно » Расширенный фильтр «.

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

В поле Копировать в введите ссылку на ячейку.

Вы также можете нажать кнопку Свернуть диалоговОе окно , чтобы временно скрыть диалоговое окно, выделить ячейку на листе и нажать кнопку Развернуть диалоговое окно .

Установите флажок только уникальные записи и нажмите кнопку ОК.

Уникальные значения из выделенного диапазона копируются в новое место, начиная с ячейки, указанной в поле Копировать в .

В пустой ячейке, расположенной под последней ячейкой диапазона, введите функцию строки . Используйте диапазон уникальных значений, которые вы только что скопировали в качестве аргумента, исключая заголовки столбцов. Например, если диапазон уникальных значений — B2: B45, вы вводите = Rows (B2: B45).

Для выполнения этой задачи используйте сочетание функций Если, сумм, Частота, ПОИСКПОЗи ДЛСТР .

Назначьте значение 1 каждому из истинных условий с помощью функции ЕСЛИ.

Добавьте итог с помощью функции сумм .

ПодСчитайте число уникальных значений с помощью функции Частота . Функция FREQUENCY не обрабатывает текстовые и нулевые значения. Для первого вхождения определенного значения эта функция возвращает число, равное количеству вхождений этого значения. Для каждого вхождения того же значения, которое находится после первой, эта функция возвращает нуль.

Возвращает расположение текстового значения в диапазоне с помощью функции ПОИСКПОЗ . Возвращаемое значение затем используется в качестве аргумента функции FREQUENCY , чтобы можно было оценивать соответствующие текстовые значения.

Поиск пустых ячеек с помощью функции Len . Длина пустых ячеек равна 0.

Формулы, приведенные в этом примере, должны быть введены как формулы массива. Если у вас установлена текущая версия Office 365, можно просто ввести формулу в верхней левой ячейке диапазона вывода и нажать клавишу ВВОД, чтобы подтвердить использование формулы динамического массива. Иначе формулу необходимо вводить с использованием прежней версии массива, выбрав диапазон вывода, введя формулу в левой верхней ячейке диапазона и нажав клавиши CTRL+SHIFT+ВВОД для подтверждения. Excel автоматически вставляет фигурные скобки в начале и конце формулы. Дополнительные сведения о формулах массива см. в статье Использование формул массива: рекомендации и примеры.

Чтобы просмотреть Пошаговое вычисление функции, выделите ячейку с формулой, а затем на вкладке формулы в группе Зависимости формул нажмите кнопку Вычисление формулы.

Функция Частота Вычисляет частоту возникновения значений в диапазоне значений и возвращает вертикальный массив чисел. Например, используйте функцию Частота для подсчета количества результатов теста, которые попадают в диапазоны оценок. Так как эта функция возвращает массив, она должна быть введена как формула массива.

Функция ПОИСКПОЗ осуществляет поиск определенного элемента в диапазоне ячеек и возвращает относительное расположение этого элемента в диапазоне. Например, если в диапазоне a1: A3 содержатся значения 5, 25 и 38, функция формула = Match (25; a1: A3; 0) возвращает число 2, так как значение 25 является вторым элементом диапазона.

Функция ДЛСТР возвращает число символов в текстовой строке.

Функция СУММ вычисляет сумму всех чисел, указанных в качестве аргументов. Каждый аргумент может быть диапазоном, ссылкой на ячейку, массивом, константой, формулой или результатом другой функции. Например, функция сумм (a1: A5) складывает все числа, содержащиеся в ячейкАх от a1 до A5.

Функция Если возвращает одно значение, если указанное условие имеет значение true, и другое, если условие имеет значение false.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community, попросить помощи в сообществе Answers community, а также предложить новую функцию или улучшение на веб-сайте Excel User Voice.

В этой статье я хочу рассказать, как можно подсчитать количество повторений какого-либо значения в таблице или в ячейке. Начнем по порядку. Имеется таблица:

И необходимо подсчитать количество повторений каждого наименования:

Как ни странно, но сделать это весьма просто: в Excel имеется функция — СЧЁТЕСЛИ, при помощи которой все это сделать можно буквально за секунды. Если количество повторений каждого наименования необходимо вывести в столбец В таблицы, а сами наименования расположены в столбце А:
=СЧЁТЕСЛИ( $A$2:$A$30 ; A2 )
Диапазон ( $A$2:$A$30 ) — указываются ячейки диапазона, в которых записаны значения, количество которых необходимо подсчитать. Главная особенность: данный аргумент может быть исключительно ссылкой на ячейку или диапазон ячеек. Недопустимо указывать произвольный массив значений.
Критерий ( A2 ) — указывается ссылка на ячейку или непосредственно значение для подсчета. Т.е. можно указать и так: =СЧЁТЕСЛИ( $A$2:$A$30 ;»Яблоко») . Помимо этого можно применять символы подстановки: ? и *. Т.е. указав в качестве Критерия «*банан*» можно подсчитать количество ячеек, в которых встречается слово «банан» (банановый, банан, бананы, банановый сок, сто бананов, три банана и орех и т.п.). А указав «банан*» — значения, начинающиеся на «банан» (бананы, банановый сок, банановая роща и т.п.). «?» — заменяет лишь один символ, т.е. указав «бан?н» можно подсчитать строки и со значением «банан» и со значением «банон» и т.д. Если в качестве критерия указать =СЧЁТЕСЛИ( $A$2:$A$30 ;»*») , то будут подсчитаны все текстовые значения. Числовые значения при этом игнорируются. Данные подстановочные символы (* и ?) не получится применить к числовым значениям — исключительно к тексту. Т.е. если если указать в качестве критерия «12*», то числа 1234, 123, 120 и т.п. не будут подсчитаны. Для подсчета числовых значений следует применять операторы сравнения: =СЧЁТЕСЛИ( $A$2:$A$30 ;»>12″)

Подсчитать числа, которые больше нуля: =СЧЁТЕСЛИ( $A$2:$A$30 ;»>0″)
Подсчитать количество непустых ячеек: =СЧЁТЕСЛИ( $A$2:$A$30 ;»<>»)

Как видно из второго рисунка — там наименования не повторяются, хотя в таблице они все записаны вперемешку. Я не буду заострять на этом внимание — я уже описывал это в статье Как получить список уникальных(не повторяющихся) значений? и при необходимости можно воспользоваться любым описанным в ней методом.

Но. Бывают случаи, когда список расположен вовсе не в таблице, а в одной ячейке( $D$1 ):
Дыня Киви Груша Яблоко Дыня Груша Груша Арбуз Яблоко Банан Яблоко Яблоко Банан Яблоко Яблоко Дыня Дыня Киви Банан Дыня Арбуз Дыня Киви Яблоко Дыня Груша Яблоко Киви Арбуз
Здесь СЧЁТЕСЛИ точно не поможет. Но в Excel полно других функций и все можно сделать так же достаточно просто:
=(ДЛСТР( $D$1 )-ДЛСТР(ПОДСТАВИТЬ( $D$1 ; D3 ;»»)))/ДЛСТР( D3 )
ДЛСТР— подсчитывает количество символов в указанной ячейке/строке( $D$1 , D3 )
ПОДСТАВИТЬ (текст; старый_текст; новый_текст) — заменяет в указанном тексте заданный символ на любое другое заданное значение. По умолчанию заменяет все повторы указанного символа. Именно это и положено в основу алгоритма. На примере значения Банан( D3 ) пошаговый разбор формулы:

• при помощи функции ДЛСТР получаем количество символов в строке с исходным текстом( $D$1 ) =(170-ДЛСТР(ПОДСТАВИТЬ( $D$1 ; D3 ;»»)))/ДЛСТР( D3 ) ;
• при помощи функции ПОДСТАВИТЬ заменяем в строке с исходным текстом( $D$1 ) все значения Банан( D3 ) на пусто и при помощи ДЛСТР получаем количество символом строки после этой замены =(170-155)/ДЛСТР( D3 ) ;
• вычитаем из общего количества символов количество символов в строке после замены и умножаем результат на количество символов в критерии =(170-155)/5 .

Получаем число 3. Что нам и требовалось.

И простая функция пользователя, которая так же подсчитывает повторения внутри ячейки:

Function GetRepeat(sTxt As String, sCntWord As String) GetRepeat = (Len(sTxt) — Len(Replace(sTxt, sCntWord, «»))) / Len(sCntWord) End Function

Чтобы правильно использовать приведенный код, необходимо сначала ознакомиться со статьей Что такое функция пользователя(UDF)?. Вкратце: скопировать текст кода выше, перейти в редактор VBA( Alt + F11 ) -создать стандартный модуль(Insert —Module) и в него вставить скопированный текст. После чего функцию можно будет вызвать из Диспетчера функций( Ctrl + F3 ), отыскав её в категории Определенные пользователем (User Defined Functions) .
Синтаксис функции:
=GetRepeat( $D$1 ; D3 )
sTxt — текст, в котором подсчитываем кол-во вхождения.
sCntWord — текст для подсчета. Может быть символом или словом.

Tips_All_Count_Duplicate.xls (39,0 KiB, 8 681 скачиваний)

Статья помогла? Поделись ссылкой с друзьями!

Поиск по меткам

Добрый день.
Можете ли вы мне помочь?

Нужно посчитать количество повторений по столбцу рейс только в одной строке.
Рейс. Объем. Колич
повтор
1аб. 2 2
1ав. 3. 1
1 аб. 0.3. 2 (2нужно посчитать как 0)
2аг. 9. 2
2аг. 3. 2 (2нужно посчитать как 0)
2ав. 0.4. 1

Убрать дубликаты не могу, т.к удаляет всю строку, а значения в поле объем нужны для дальнейшего расчета. Упорядочить значения в столбце рейс тоже нельзя, т.к во всей исходной таблице есть объединенные ячейки, которые нельзя разбить.

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

Суммирование – популярная арифметическая операция в Excel. Предположим, в таблице у нас есть перечень товаров, и нам нужно получить их итоговую стоимость. Для этого нужно воспользоваться функцией СУММ. Или же компания хочет определить итоговое потребление электричества за определенный период. Снова нужно суммировать эти данные.

Функция СУММ может использоваться не только самостоятельно, но и как составной компонент других функций.

Но в некоторых ситуациях нам нужно, чтобы суммировались только значения, которые соответствуют определенному критерию. Например, складывать между собой исключительно повторяющееся содержимое ячеек. В этом случае нужно воспользоваться одной из двух функций, которые будут описаны дальше.

Выборочное суммирование в Excel

Выборочное суммирование – это следующий шаг после изучения стандартной арифметической операции складывания нескольких значений. Если научиться читать и использовать ее, можно приблизиться к могуществу в вопросах работы с Excel. Для этого в перечне формул Excel нужно найти следующие функции.

Функция СУММЕСЛИ

Предположим, у нас есть такой набор данных.

Это отчет, предоставленный складом магазина с овощами. Нам, основываясь на этой информации, необходимо сделать следующее:

1. Определить, сколько осталось на складе конкретного товара.
2. Вычислить товарные остатки вместе с ценой, которая соответствует заданным пользователем правилам.

С помощью функции СУММЕСЛИ мы можем выделить конкретные значения и суммировать исключительно их. Давайте приведем перечень аргументов этого оператора:

1. Диапазон. Это набор ячеек, который надо анализировать на предмет соответствия определенному критерию. В этом диапазоне могут быть не только числовые, но и текстовые значения.
2. Условие. В этом аргументе записываются правила, по которым будут отбираться данные. Например, только значения, которые соответствуют слову «Груша» или же числа больше 50.
3. Диапазон суммирования. Если нет необходимости, можно не использовать этот параметр. Его нужно использовать в случае, если в качестве диапазона для проверки условия используется набор текстовых значений. В этом случае нужно задать дополнительный диапазон с числовыми данными.

Чтобы выполнить первую поставленную нами цель, необходимо выбрать ячейку, в которой будет записываться результат вычислений и записать туда такую формулу: =СУММЕСЛИ(A2:A9;»Виноград белый»;B2:B9).

В итоге получится значение 42. Если бы у нас было несколько ячеек со значением «Виноград белый», то формула вернет итог суммы всех позиций этого плана.

Функция СУММЕСЛИМН

Теперь давайте попробуем разобраться со второй задачей. Ее основная сложность в том, что у нас есть несколько критериев, которым должен соответствовать диапазон. Чтобы решить ее, нужно воспользоваться функцией СУММЕСЛИМН, синтаксис которой включает следующие аргументы:

1. Диапазон суммирования. Здесь этот аргумент означает то же самое, что и в предыдущем примере.
2. Диапазон условия 1 – набор ячеек, в котором надо отобрать те, которые соответствуют критериям, описанным в аргументе ниже.
3. Условие 1. Правило для предыдущего аргумента. Функция будет отбирать исключительно те ячейки из диапазона 1, которые соответствуют условию 1.
4. Диапазон условия 2, условие 2 и так далее.

Далее аргументы повторяются, просто нужно последовательно вводить каждый следующий диапазон условия и сам критерий. Теперь давайте начнем решать задачу.

Предположим, нам надо определить, какой общий вес яблок остался на складе, которые стоят больше 100 рублей. Для этого нужно записать следующую формулу в той ячейке, в которой должен быть итоговый результат: =СУММЕСЛИМН(B2:B9;A2:A9;»яблоки*»;C2:C9;»>100″)

Простыми словами, диапазон суммирования мы оставляем такой же, как и был. После этого прописываем первое условие и диапазон для него. После этого мы задаем требование, что цена должна составлять больше 100 рублей.

Обратите внимание на знак «звездочка» (*) в качестве условия поиска. Он указывает на то, что за ним могут находиться любые другие значения.

Как суммировать повторяющиеся строки в таблице при помощи умной таблицы

Предположим, у нас есть такая таблица. Она сделана с использованием инструмента «Умная таблица». В ней мы можем увидеть повторяющиеся значения, размещенные в разных ячейках.

В третьей колонке перечислены цены этих товаров. Предположим, нам нужно узнать, сколько в целом будут стоить повторяющиеся товары. Что для этого нужно сделать? Для начала нужно скопировать все повторяющиеся данные в другой столбец.

После этого надо перейти на вкладку «Данные» и нажать на кнопку «Удалить дубликаты».

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

Преобразование специальной вставкой

Затем у нас останется перечень исключительно тех значений, которые не повторяются.

Нам нужно их скопировать и перейти на вкладку «Главная». Там надо открыть меню, находящееся под кнопкой «Вставить». Чтобы это сделать, нажимаем на стрелочку, и в появившемся перечне находим пункт «Специальная вставка». Появится такое диалоговое окно.

Транспонирование строки в столбцы

Ставим флажок возле пункта «Транспонировать» и нажимаем ОК. Этот пункт меняет столбцы и строки местами. После этого записываем в произвольной ячейке функцию СУММЕСЛИ.

Формула в нашем случае будет иметь следующий вид.

Потом с помощью маркера автозаполнения заполняем оставшиеся ячейки. Также можно воспользоваться функцией ПРОМЕЖУТОЧНЫЕ.ИТОГИ для того, чтобы суммировать значения таблицы. Но нужно предварительно выставить фильтр для умной таблицы, чтобы функция считала исключительно повторяющиеся значения. Для этого надо нажать на значок стрелки в заголовке столбца, после чего поставить флажки исключительно возле тех значений, которые нужно показать.

После этого подтверждаем свои действия нажатием клавиши ОК. Если добавить еще один пункт для отображения, увидим, что итоговая сумма изменится.

Как видим, можно любую задачу в Excel выполнить несколькими методами. Вы можете выбрать те, которые подходят в конкретной ситуации или просто пользоваться теми инструментами, которые больше понравились.

tamriko11 Пользователь Сообщений: 4 Регистрация: 09.12.2013

Добрый день, подскажите, пожалуйста, как в Экселе просуммировать повторяющиеся значения. Сводная таблица не подходит. пример Столбец А Аня Маня Таня Маня Аня Ксюша Аня Маня Саша Паша Глаша Паша Саша Аня Столбец В 1 4 2 4 6 3 2 5 1 и т.д. мне нужна сумма по Ане, Мане, Тане и т.д. Длина столбца огромная, повторяющиеся значения вразнобой и разные по количеству (может быть две Ани и пять Саш…) на выходе мне в идеале, чтобы было Аня 46 Маня 32 Ксюша 15 и т.д. т.е. первый столбец — идентификационный номер, второй столбец сумма повторяющихся значений.

jakim Пользователь Сообщений: 1955 Регистрация: 01.03.2013	Консолидацией, сводной таблицей. Изменено: jakim — 09.12.2013 22:38:55 (ошибкав слове)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#3 09.12.2013 22:41:56 Цитата Сводная таблица не подходит. Как раз она-то лучше всего и подходит. Или объясните почему. Я сам — дурнее всякого примера! …

tamriko11 Пользователь Сообщений: 4 Регистрация: 09.12.2013	сводная таблица не подходит, потому что сумму «итого» по идентификационному номеру мне надо подставить в другую таблицу с помощью ВРП а как из сводной таблицы потом воспользоваться ВРП я не знаю

Lyco Пользователь Сообщений: 6 Регистрация: 09.12.2013	1. Данные — Удалить дубликаты. 2. СУММЕСЛИ. Или я чего-то не понимаю?

The_Prist Пользователь Сообщений: 14260 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	ВРП — это что-то новое. Наверное, ВПР? Функция СУММЕСЛИ Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

jakim Пользователь Сообщений: 1955 Регистрация: 01.03.2013	Высылаю Ваш пример с применение консолидации.

Nic70y Пользователь Сообщений: 3289 Регистрация: 22.12.2012 Win7 MSO 2013

tamriko11 Пользователь Сообщений: 4 Регистрация: 09.12.2013	Jakim  спасибо большое, А скажите, пожалуйста, как вы создали этот файл. выделяете таблицу — консолидация — а дальше что?

tamriko11 Пользователь Сообщений: 4 Регистрация: 09.12.2013	#10 09.12.2013 23:37:42 Nic70y — спасибо большое, я такое конечно бы никогда не составила, но, когда уже сделано, формулы понятны

---

Объедините повторяющиеся строки и суммируйте значения с помощью функции консолидации

Консолидация — это полезный инструмент для нас, позволяющий объединить несколько листов или строк в Excel, поэтому с помощью этой функции мы также можем суммировать несколько строк на основе дубликатов. Пожалуйста, выполните следующие действия:

1. Щелкните ячейку, в которой вы хотите разместить результат на текущем листе.

2. Перейти к щелчку Данные > Консолидировать, см. снимок экрана:

3. В Консолидировать диалоговое окно:

• (1.) Выберите Сумма от Функция раскрывающийся список;
• (2.) Щелкните кнопку, чтобы выбрать диапазон, который вы хотите объединить, а затем нажмите Добавить кнопка, чтобы добавить ссылку на Все ссылки список;
• (3.) Проверить Верхний ряд и Левая колонка от Используйте ярлыки в вариант. Смотрите скриншот:

4. После завершения настройки нажмите OK, а дубликаты объединяются и суммируются. Смотрите скриншот:

Внимание: Если в диапазоне нет строки заголовка, снимите флажок Верхний ряд из Используйте ярлыки в опцию.

---

---

Объедините повторяющиеся строки и суммируйте значения с кодом VBA

Следующий код VBA также может помочь вам объединить повторяющиеся строки на листе, но в то же время исходные данные будут уничтожены, вам необходимо сделать резервную копию копии данных.

1. Удерживайте ALT + F11 ключи, затем он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: объедините повторяющиеся строки и просуммируйте значения

Sub CombineRows()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3, Затем нажмите F5 ключ для запуска этого кода, и вам нужно выбрать диапазон, который вы хотите объединить, во всплывающем окне подсказки. Смотрите скриншот:

4, Затем нажмите OK, повторяющиеся строки были объединены, а значения суммированы.

Внимание: Если вы хотите использовать этот код, вам лучше сделать копию файла, чтобы избежать разрушения данных, и этот код применяется только к двум столбцам.

---

Объедините повторяющиеся строки и просуммируйте значения с помощью Kutools for Excel

Здесь я представляю удобный инструмент — Kutools for Excel для вас это Расширенные ряды комбинирования также может быстро решить эту проблему.

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Выберите нужный вам диапазон и нажмите Кутулс > Слияние и разделение > Расширенные ряды комбинирования. Смотрите скриншот:

2. В Расширенные ряды комбинирования диалог, проверьте У моих данных есть заголовки если в вашем диапазоне есть заголовки, выберите имя столбца, дубликаты которого вы хотите объединить, и щелкните Основной ключ, см. снимок экрана:

3. Затем выберите имя столбца, значения которого вы хотите суммировать, и нажмите Рассчитать > Сумма или другие расчеты по мере необходимости. Смотрите скриншот:

4. Нажмите Ok чтобы закрыть диалоговое окно, вы увидите, что дубликаты объединены, а соответствующие данные в другом столбце суммируются. Смотрите скриншоты:

Щелкните здесь, чтобы узнать больше о расширенных рядах комбинирования.

---

Объедините соответствующие строки на основе повторяющихся значений в другом столбце с помощью Kutools for Excel

Иногда вы хотите объединить строки на основе повторяющихся значений в другом столбце, Расширенные ряды комбинирования of Kutools for Excel также может оказать вам услугу, пожалуйста, сделайте следующее:

1. Выберите диапазон данных, который вы хотите использовать, а затем щелкните Кутулс > Слияние и разделение > Расширенные ряды комбинирования для Расширенные ряды комбинирования диалоговое окно.

2. В Расширенные ряды комбинирования В диалоговом окне щелкните имя столбца, на основе которого вы хотите объединить другие данные, и щелкните Основной ключ, см. снимок экрана:

3. Затем щелкните имя другого столбца, данные которого вы хотите объединить, и щелкните Сочетать чтобы выбрать разделитель для разделения объединенных значений, см. снимок экрана:

4. Затем нажмите Ok, все значения в одной ячейке в столбце A были объединены вместе, см. скриншоты:

---

Объедините повторяющиеся строки и просуммируйте значения с помощью Kutools for Excel

---

Связанная статья:

Объедините несколько строк в одну на основе повторяющихся значений