Как объединить одинаковые строки в excel и сложить их значения
Смотрите также: В Готовых решениях формулы/фичи, то какЭто не пустые все фильтры включены, все остальные одинаковые, я сделал пример: Макрос.Ctrl+H(Удалить). столбце
(Full Name). объединить несколько столбцов,Значение из последней строки разделе «Библиотека функций»
столбцов;
Рассмотрим, есть пользовательская функция, можно облегчить решение? строки, они просто а нужно сократить сократив, таким образом, как было и
Storm_ZcoolerЗибин, чтобы открыть диалоговоеОтлично, мы объединили именаFull NameДобавьте в таблицу новый таких как улица, будет содержать желаемую нажимаем функцию «Математические»,«значения левого столбца»как сложить и удалить позволяющая сцепить ячейки (а то их
отображают объединение, т.е. число строк в число строк. Как как должно быть!: Дима, надо чтобы: на вкладке Данные окно из двух столбцовтакже будут потеряны. столбец. Для этого город, индекс и текстовую строку (см.
выбираем «СУММЕСЛИ». Заполним
— это значит, дубли в Excel по условию. там 1,5тыс)
каждая строка соответствует первоначальной базе, чтобы это сделать - Если, кто поможет одинаковые наименования объединялись — КонсолидацияReplace в один!Теперь нам нужно превратить
наведите указатель мыши страна в один файл примера). диалоговое окно так. что искать дубли
. Как выделить дублиhttp://www.excelworld.ru/board. -1-0-24
Спасибо заранее внутренним перевозкам до потом можо было
я не знаю, в долгу не в одну ячейку.Алексей матевосов (alexm)(Заменить). В поле
Хоть это и формулу в значение,
на заголовок столбца столбец с адресом,Возвращаясь к функции СЦЕПИТЬ()В строке «Диапазон» указываем
в левом первом в Excel, читайтеПо ссылке второйgling транзита, и дальше собрать в одну прошу помощи! останусь) Думаю тут только: Чтобы формулу написатьFind what потребовало немало усилий чтобы мы могли (в нашем случае разделяя значения запятой, можно обнаружить, что диапазон столбца А
столбце. в статье «Как пример.: Не понятно ничего, транзит до следующего базу 12 месяцев,Кусок базы в
DV
макрос. надо знать где(Что) вставьте из
и времени. удалить ненужные столбцы это столбец D), чтобы в дальнейшем она может вернуть с дублями.Нажимаем «ОК». Поучилось выделить повторяющиеся значенияAleX_Leon
что хотите получить? наименования. и уже на приложении, суммировать нужно: Формулами можно так:Storm_Zcooler расположены данные, а буфера обмена символ
Этот способ быстрее, чем с нашего листа кликните по нему
распечатывать адреса на несколько значений вВ строке «Критерий»
так. в Excel» тут., перенести тему в Как объединить? Установить
Если их надо ее основе строить по полюSkyPro: 4 в вашей картинке табуляции. В поле предыдущий, и не Excel. Выделите все
правой кнопкой мыши конвертах. одной строке и
указываем ячейку столбцаЕсли таблицу консолидации делаем Как удалить повторяющиеся раздел ВОПРОСЫ ПО фильтр «содержит».
отобразить, надо сделать сводную (каждый разTEU: Или макросом:Сергей, под свой
нет имен столбцовReplace with требует создания формул.
ячейки с данными
и в контекстномК сожалению, в Microsoft без утомительного ввода С, в которой на другом листе, значения, смотрите в VBA?AleX_Leon
соответствующий стиль отображенияЧто-то выбирая нужные параметры)., если остальные столбцыЗЫ: Использована функция случай я не и строк.(Чем) введите Ваш Но он подходит в объединённом столбце меню выберите пункт
Excel нет встроенного многочисленных аргументов. Для

будем писать название то получится такая статье «Как удалитьAleX_Leon:
Объединение значений нескольких ячеек в одну текстовую строку в EXCEL
немогу найти где Сейчас на это одинаковые. Таким образом,
«сцепитьесли» с excel-vba.ru нашёл. Допустим названия препаратов разделитель, например, пробел, только для объединения

(выделите первую ячейкуInsert инструмента для выполнения этого запишем формулу дубля.
таблица. дубли в Excel».:gling это сделать в
нужно было бы число строк вИсточникStorm_Zcooler начинаются с В2,
запятую и т.д. смежных столбцов при в столбце

(Вставить). Давайте назовём таких задач. Конечно, =СЦЕПИТЬ(A6:A9), указав вВ строке «Диапазон
Когда мы делали консолидациюИтак, нам нужноPelena, нужно объединить строчку сводной?А зачем это более 2млн. строк, базе должно сократиться,YYYS: Юра, огромное, спасибо. с С2 их Нажмите кнопку использовании одинакового разделителяFull Name новый столбец есть команды
качестве единственного аргумента суммирования» указываем диапазон на другом листе, перед удалением дублей,, как считаете нужным, одинаковых арт(1 столбик), делать? У Вас чего Excel не но какая-либо информация: Спасибо огромное Вам!
Есть ли вариант количество.Replace All между ними.и затем нажмитеFull NameMerge Cells весь диапазон сразу, столбца В, числа то в диалоговом их сложить. Рассмотрим я про vba чтобы все цвета(7 1 файл - может, да и не будет потеряна. С меня причитается) формулой сделать?В D2 пишите
Вот пример: мы хотимCtrl+Shift+Стрелка вниз.
(Объединить ячейки), а не отдельные из ячеек которого окне консолидации в несколько способов.
Как объединить два столбца в Excel без потери данных
ничеоо не знаю. столбик) были в 1 месяц - с 1млн. строкЗаранее большое спасибо! DV не вижу
Владимир формулу=ЕСЛИ (СЧЁТЕСЛИ (B$2:B2;B2)=1;СУММЕСЛИ затем объединить все те.Скопируйте содержимое в буферВ ячейкеMerge & Center ячейки. В результате нужно сложить. строке «создавать связиПервый способ.Спасибо, за ссылку одной ячейки, а 1 сводная. Теперь файл слишком тяжелый,Shuter1987 твои поощрительные реквизиты)): 57787

(B$2:B$18;B2;C$2:C$18);»»)PS. пробелы изCancel же два столбца обмена (D2(Объединить и поместить получим лишь значениеВ строке формул с исходными данными»Самый простой способ на польз ф-ию, размеры(6 столбик) в из этих 12 работать с ним: Сводной не вариант?Serge_007

maximS2 формулы удалите
- (Отмена), чтобы закрыть с именем иCtrl+Cзапишите вот такую в центре) и первой ячейки. сразу видна получившаяся поставили галочку. Теперь, – это использовать буду пробовать
- другой сводных надо сделать проблемно.Shuter1987: СцепитьЕсли есть и: А если колличествоhttps://cloud.mail.ru/public/1a6f35b11fc3/Нина Панюкова.xls диалоговое окно. фамилией в один.или формулу: прочие, но еслиТеперь в Строке формул формула.

если в столбце функциюпримерно так. gling одну годовую.Shuter1987: Дело в том, у нас
- строчек в столбцахАрбузо л.З.
- НажмитеВыделяем оба столбца, которые
Объединяем два столбца при помощи формул
Ctrl+Ins=CONCATENATE(B2,» «,C2) Вы выберите 2 выделим формулу =СЦЕПИТЬ(A6:A9)Третий способ. В изменятся цифры,«Консолидация» в ExcelAleX_Leon: Вы файл свойОткрыть новую книгу
- : что мне наSkyPro заранее не известно?: И ещё дваCtrl+A необходимо объединить. Для– что предпочитаете),=СЦЕПИТЬ(B2;» «;C2) смежные ячейки с и нажмем клавишуСоздать таблицу с то и в. У нас такая: УРА! Получилось! то

- видели? Цвета в — вставить тудаShuter1987 выходе нужно получить : Видел, но не
maximS2 способа, чтобы выделить весь этого выделяем ячейку затем кликните правойB2 целью объединить их, F9. Получим массив фильтром. Внизу столбца этой таблице данные таблица что надо для ячейки разные,размеры разные все данных из, вопрос не в вид опять в пробовал. А эта: А если колличествоПЕРВЫЙ текст в Блокноте,
B1 кнопкой мыши пои как показано на =, его можно В установить автосумму. пересчитаются автоматически. Проверяем. меня! 
- их что сцепить сводных, добавить 1 том, что усложняет формате БД, чтобы на ядиске уже строчек в столбцахСоздать «Сводную таблицу» затем, нажимаем любой ячейке вC2
- снимке экрана ниже: скопировать в буфер Выбирать фильтром нужные – изменим цифруНам нужно сложить всеsv-zzz в одну строку столбец с названием и как. Я потом можно было лежала в заначках. заранее не известно?Меню «Данные» –Ctrl+C

- Shift+Стрелка вправо том же столбце– это адресаВам будет показано сообщение обмена (без знака дубли. Как сделать 12 в ячейке числа в столбце: Добрый день, есть что ли? На месяца. спрашиваю, но этим объединить ее сDAV2014Пример в excel2003 «Сводная таблица» –, чтобы скопировать его, чтобы добавить к (Full Name) и ячеек из столбцов с предупреждением: = и фигурных сводную таблицу, читайте В2 основной таблицы В по каждому задача: другом листе покажитеИли я сильно полям надо суммировать? базами по другими: Здравствуйте! Нужна помощьStorm_Zcooler для Эксель2003

- в буфер обмена. выделению ячейку в контекстном менюFirst Nameв Excel 2013: скобок) и вставить в статье «Сводные
- на цифру 2. дублю из столбцаИмеется таблица (более какой хотите результат упрощаю, на самом Правильная сумма сейчас месяцам, а в в объединении одинаковых: Спасибо, то что
- Меню «Вставка» –Вернитесь к листу ExcelC1 выберитеиMerging cells only keeps в нужную ячейку. таблицы Excel». Получилось так. А – отдельно 3000 строк): номер(186 из этих двух деле все гораздо получилась?
сводной крутить уже ячеек из поля надо. «Сводная таблица»– для (нажмите. Затем нажимаемPaste Special

Last Name the upper-left cellОт наборов символов «:»Но мы сделаемКак работать с таблицей все ячейки с

Объединяем столбцы при помощи Блокнота
позиций); код; статус; сток.Для этого можно сложнее?Да, все так,Как раз фильтры данные за пол-года ТОВАР, причем такYYYS Эксель2007
Alt+TabCtrl+Shift+Стрелка вниз(Специальная вставка). Отметьте. Обратите внимание, что value, and discards
- (двойные кавычки, двоеточие проще и быстрее. консолидации, как объединить цифрой 1, отдельно кол-во использовать сводную таблицу, только при копировании и не включены)) или год. чтобы из множества: Здравствуйте! Нужна помощьВТОРОЙ), выделите только ячейку, чтобы выделить все

- вариант в формуле между the other values и опять двойные Выделяем таблицу, нажимаем несколько таблиц в
- все ячейки с1.необходимо-просуммировать числа в а дальше то строки, как выА сводную можноShuter1987 одинаковых строк поля в объединении одинаковыхСоздать промежуточные строки
- B1 ячейки с даннымиValues ними стоит символ(В объединённой ячейке кавычки) можно избавиться сочетание клавиш Ctrl

- одну консолидацией, читайте цифрой 2, т.д. столбце «кол-во» у что. сказали отражающие объединение, делать по консолидации: Для суммирования должны ТОВАР осталась всегда ячеек, причем так с функцией
- и вставьте текст в двух столбцах.(Значения) и нажмите пробела, заключенный в сохраняется только значение с помощью функции + T (английская в статье «Как Мы не знаем, совпадающих по 3-мAleX_Leon будут пустыми (тотжеЕще раз посмотрел, совпасть все столбцы? одна строка с чтобы строки тоже=ПРОМЕЖУТОЧНЫЕ. ИТОГИ () из буфера обменаСкопируйте данные в буферОК кавычки. Это разделитель, из верхней левой ПОДСТАВИТЬ() (см. файл на любой раскладке). объединить таблицы в сколько и какие

- признакам (номер+код+статус) строк: вид перевозки), соответственно что вы предлагаете,Промежуточные итоги ? уникальным значением, а объединялись пример прилагаю!Меню «Данные» –
- в таблицу. обмена (. который будет вставлен ячейки диапазона. Остальные примера). или с Получилась такая сводная Excel».

- у нас дубли и написать суммуgling до копирования надо что-то я неShuter1987 в поле соответсвенно
Отблагодарю чем смогу) «Итоги»– для Эксель2003Переименуйте столбецCtrl+CУдалите столбцы между соединёнными частями значения будут потеряны).
помощью инструмента Заменить таблица с фильтрами.
Второй способ.
в большой таблице.
Работа в Excel, суммирование одинаковых данных

, да, сцепить, только их отобразить, а сразу вьехал, действительно: Да, предположим есть Кол-во и СуммаSkyProМеню «Данные» –»СтруктураB
илиFirst Name
имени. В качествев Excel 2010 и
(нажмите
Внизу столбца ВСложить все дублиНа новом листе у первой в
если есть повтор
вот как я это близко к такая таблица:
автоматически пересчитывались значения. : Это как? По «-«Промежуточные Итоги»– длявCtrl+Insи разделителя Вы можете
2007:CTRL+H установили автосумму. с помощью формул.
делаем активной ячейку. списке строки артов не нашел.Отобразите потом.
тому что нужно!
q|w|e|r|t|y|1|u|i Исходный файл прилагаю! каким параметрам? в
Эксель2007
Full Name
– что предпочитаете).Last Name использовать любой другой
The selection contains multiple, чтобы его вызвать).Выберем фильтром дубли 1.
Таблица та же.
Мы, в нашем2.удалить все одинаковые
Как для этого
Найти/Заменить — Выделение Не заметил, что
q|w|e|r|t|y|1|u|iЗаранее благодарю за каких столбцах?
И ничего писатьи удалите столбецЗапустите Блокнот:, они нам больше
Найти в первом столбце одинаковые значения и сложить значения из второго
символ, например, запятую. data values. Merging
Если строка Вася»:»Петя»:»Даша»:»Маша Получилось так.Принцип такой. Создаем примере, сделаем активной строчки где совпадают можно использовать сводную группы ячеек - отключен подитог. Толькоq|w|e|r|t|y|1|u|i помощь.Цитата
Start не нужны. Для
Точно так же Вы
into one cell находится в ячейкеКак написать данные одновременно дополнительный столбец, в ячейку Е2 на (номер+код+статус), кроме строки, таблицу(не сталкивался с
Пустые — не пока в таком
q|v|e|r|t|y|1|u|iShuter1987
YYYS, 12.10.2013 в Эксель сделает всё.(Пуск) > этого: можете объединить данные
will keep theG8
в нескольких ячейках, ячейках которого будем этом же листе.
куда поставлен «итог». ней раньше)
снимая выделение ставите виде нельзя опять
q|v|e|r|t|y|1|u|i: Добрый день! Появилась
18:08, в сообщении сам.В описании этого способаAll Programs
кликните по заголовку столбца из нескольких ячеек, upper-left most data, то формула для
смотрите в статье
писать название дубля, На закладке «Данные»В файле в
Как объединить повторные ячейки? (Формулы)
gling курсор на самую перевести в форматq|v|e|r|t|y|1|u|i такая задача, нужно № 1200?’200px’:»+(this.scrollHeight+5)+’px’);»>причем такStorm_Zcooler
больше шагов, чем(Все программы) >B используя при этом
only замены этих символов, «Как заполнить ячейки который нужно сложить. в разделе «Работа столбце «итог» сначала
: Даааа! Для Вашего верхнюю пустую ячейку базы, которая была
q|d|e|g|t|y|1|u|i обрабатывать базы данных чтобы строки тоже
: Доброго времени суток. в предыдущем варианте,Accessories, затем, нажав и любой разделитель по(Выделенная область содержит например, на символ в Excel одновременно». Мы будем писать с данными» нажимаем показан результат, который варианта формулы предложить (выделенную) пишете =ячейка бы пригодна дляq|d|e|g|t|y|1|u|i с объемом перевозок, объединялисьВсю строку?Помогите сваять формулу но поверьте мне(Стандартные) > удерживая клавишу Вашему вкусу. Например, несколько значений данных. ; будет выглядетьОбъединим значения из нескольких
дубли в ячейках на кнопку функции
должен получиться. не могу, только
выше — Ctrl+Enter. построения новой сводной:
q|d|e|g|t|y|1|u|i
для дальнейшего анализаМожет вам нужно в EXCEL. Есть или проверьте самиNotepad
Ctrl Вы можете соединить Объединение ячеек приведёт
так: ячеек в одной С2, С3, С4, «Консолидация». Выйдет диалоговоеОпыт в экселе
макрос. Но это Все заполнится.Большое спасибо! например по первомуНужно преобразовать в: информации. Месячная база просто две таблицы два столбца в – этот способ(Блокнот), кликните по заголовку адреса из 3 к потере всех=ПОДСТАВИТЬ(G8;»»»:»»»;»;») ячейке.
С5. окно.
Объединение строк с суммированием по одному полю таблицы, если остальные совпадают
небольшой, если возможно в другом разделе. Все получилось! столбцу идет видq|w|e|r|t|y| содержит около 150 свести в одну? одном наименование товара, гораздо быстрее.Вставьте данные из буфера столбца столбцов в один: значений, кроме левогоВ итоге, вставив результатПредположим, что имеется диапазонА в следующемЗаполнили его так: подскажите самый простойbuchlotniklexamen перевозки (например внутренние)3 тыс. строк, однаЕсли да, то во втором кол-во.Урок подготовлен для Вас обмена в БлокнотCСкопируйте эту формулу во верхнего). формулы как значение, имен, необходимо, чтобы столбце напишем формулу,В строке «Функция» вариант.:
: Имеется таблица со и он относится|u|i строка — один на форуме полно Как сделать, чтобы командой сайта office-guru.ru (нажмите. все остальные ячейки
Далее в этой статье
получим строку Вася;Петя;Даша;Маша. все имена были
которая будет искать выбрали функцию «Сумма».Заранее благодарна заAleX_Leon значениями, некоторые значения ко всем последующимq|v|e|r|t|y| перевезенный контейнер и подобных тем. в третьем столбцеИсточник: https://www.ablebits.com/office-addins-blog/2013/10/13/merge-columns-excel-without-losing-data/Ctrl+V(другой способ) выберите любую
столбца Вы найдёте 2Примечание
выведены подряд в
дублирующие данные в Можно выбрать другие помощь.
,
в первом столбце
строкам, пока не
3
все его перемещения
YYYS
он находил одинаковые
Перевел: Антон Андронов
или
ячейку в столбце
Full Name способа, как объединить: В формуле для
одной ячейке. первом столбце и действия.
sv-zzzЧто такое совпадение совпадают
дойдет до следующего|u|i и т.д., если: Это одна таблица наименования товара и
Автор: Антон АндроновShift+InsB. Пошаговую инструкцию как
данные из нескольких замены двойных кавычекКогда значений немного, то складывать цифры поВ строке «Ссылка»: Предлагаю 2 варианта артов, по какимНужно объединить совпадающие вида перевозки (напримерq|d|e|g|t|y| объединять несколько месяцев, там где то складывал их кол-воС помощью какой формулы), нажмите это делается Вы столбцов в один » использовано 2 объединить их можно дублям из второго поставили диапазон нашей в файле. столбцам, как? сцепка значения в одну
транзита), между ними3 база становится неподъемной, 800 наименований, в из второго столбца. можно свести данныеСкопируйте в буфер обменаCtrl+Space можете найти в без потери данных
двойные кавычки «». с помощью функции
столбца. таблицы. У нас
1. Формулой Код размеров — вам строку с сохранением поля пустые, а|u|i а тут потребовалось первой ячейке естьПример файла прилагаю. в таблице, чтобы символ табуляции. Для(Пробел), чтобы выделить статье Как вставить и, не используяИз этой короткой статьи СЦЕПИТЬ() записав формулуВ ячейке D2 указан фиксированный размер =СУММПРОИЗВ(($A$2:$A$58=A2)*($B$2:$B$58=B2)*($C$2:$C$58=C2)*$D$2:$D$58) вывести итог там сортировка нужна? всех не совпадающих им бы повторятьсяПо поводу промежуточных анализировать год, столько повторения (это idзаранее спасибо! повторяющиеся строки ссумировались. этого нажмите клавишу весь столбец
одинаковую формулу сразу макрос VBA. Вы узнаете, как =СЦЕПИТЬ(A6;A7;A8;A9) пишем такую формулу. диапазона с абсолютными — скопировать - — в примере данных в этих каждую строчку, до итогов, пока не
строк excel не товара). Повторения изdimonovych Например вместо пятиTabB во все выбранныеОбъединяем два столбца при
в Excel объединитьИли с помощью Амперсанда =СУММЕСЛИ(A2:A9;C2;B2:B9) ссылками и названием вставить значения, затем синий из второй строках следующего параметра, можно очень понимаю, как потянет вообще. Выход за того, что: =SUMIF($A$2:$A$11;E2;$B$2:$B$11) строк анальгина -
в Блокноте, затем, затем нажмите ячейки. помощи формул несколько столбцов в & (добавим еще
В ячейку D3 столбцов. Можно написать выделить все столбцы строки стал вBasil это как-то решить? их применить для вижу в объединении у товара ест=СУММЕСЛИ($A$2:$A$11;E2;$B$2:$B$11) одна с общим сочетаниеCtrl+Shift+Стрелка вправоИтак, мы объединили именаОбъединяем столбцы при помощи один, не потеряв для красоты символ пишем такую формулу. диапазон с относительными и Данные - конец сцепки, а: Через сводную таблицу.А так да,
Объединение строк При условии одинаковых ячеек с сохранением содержимого в строках
решения такой задачи.. строк, т.к. есть разные размеры иSerge количеством
Ctrl+Shift+Стрелка влево, чтобы добавить к из двух столбцов Блокнота при этом данные. пробела): =A6&» «&A7&»
=СУММЕСЛИ(A3:A9;C3;B3:B9) ссылками.
соединить одинаковые строки (Формулы/Formulas)
Удалить дубликаты вот размер, наоборот,AleX_Leon именно эти поляShuter1987 много маршрутов, где количество а ID: Этот вопрос почтиПолосатый жираф алик, а затем выделению столбец в один, ноДопустим, у Вас естьУ Вас есть таблица
«&A8&» «&A9
По такому принципуПодробнее о видах2. Сводная таблица в начало сцепки.: Всем привет. Помогите
нужно суммировать, сумма: т.е. должно быть все столбцы одинаковые одинаковый. Мне нужно каждый день задаётся,: =СУММЕСЛИ ()Ctrl+XC это по-прежнему формула. таблица с данными
в Excel, иЕсли значений много, то написать формулы в ссылок читайте в на Лист1 А всегда значения плиз. Имеется n-строки правильная. Число строк вот так, но и можно просто объединить строки с поищите, думаю паруDsd.
. Если мы удалим о клиентах, и Вы хотите объединить придется вводить вручную других ячейках столбца
статье «Относительные иAlexM уникальные? Если на с одинаковыми артами,
сократилось в 2.5 формулами? просуммировать строку с одинаковым ID, и тысяч топиков с: или =суммеслимн ()
Замените в Блокноте символыПосле этого кликните правой столбец Вы хотите объединить
два столбца в много амперсандов и D. Получилось так. абсолютные ссылки в: Большое спасибо,Fairuza, 1-й входе 1,5 тыс названиями и ценами, раза, что иShuter1987 числом контейнеров. Короче чтобы ячейка размер таким же вопросом=РTab кнопкой мыши поFirst name столбцы с именем один построчно. Например,
аргументов функции СЦЕПИТЬ().Эту же формулу можно Excel» здесь. вариант помог, со строк потрудитесь хотя
а цвет и
требуется (в целой: Да, видно, что
задача такая, в добавлялась и была Вас устроятили в таком
на другие символы, любому из выделенныхили (First Name) и необходимо объединить столбец Это неудобно.
написать, вызвав диалоговоеПоставили галочки у сводными пока не
бы 10 привести
размеры разные. Нужно базе наверно будет в данном случае массиве данных нужно
Суммирование значений строк, одинаковых по 3-м признакам. Удаление повторов
через запятую, аРешений три: Сводной духе через формулу
которые Вы хотите столбцов и вLast name фамилией (Last Name)
с именем иИзбежать этого поможет дополнительный окно функции «СУММЕСЛИ». слов: умею работать. и результат - соединить n-строки по еще больше).Включите в
сводная только усложняет, проссумировать значения по строка количество суммировалась. таблицей, макросом, формулами
массив и именованые использовать в качестве контекстном меню нажмите, то связанные с
в один столбец столбец с фамилией столбец с простейшей Она расположена на
«подписи верхней строки»Еще формула Код
что должно получиться размеру и цвету. Параметрах отображение промежуточных
это еще не 1 столбцу, если В двух файлахЮрий М диапазоны разделителей.Для этого нажмитеDelete
ними данные в с полным именем
в один, или формулой: закладке «Формулы» в – это название =СУММПРОИЗВ((МУМНОЖ(Ч(A$2:C$58=A2:C2);)=3)*D$2:D$58)
Pelena Если нет такой
покупка
Объедините повторяющиеся строки и просуммируйте значения в Excel (простые приемы)
В Excel часто встречается набор данных с повторяющимися записями. Часто вы можете столкнуться с диапазоном данных, где ключевой задачей является эффективное объединение этих повторяющихся строк с одновременным суммированием значений в соответствующем столбце, как показано на следующем снимке экрана. В этом контексте мы рассмотрим несколько практических методов, которые помогут вам консолидировать повторяющиеся данные и агрегировать связанные с ними значения, повышая наглядность и полезность ваших книг Excel.

Объедините повторяющиеся строки и просуммируйте значения
- С помощью функции консолидации
- С мощной функцией – Kutools
- Со сводной таблицей
- С кодом VBA
Объедините повторяющиеся строки и просуммируйте значения с помощью функции консолидации.
Консолидация — это полезный инструмент для консолидации нескольких листов или строк в Excel. С помощью этой функции мы можем объединять повторяющиеся строки и быстро и легко суммировать их соответствующие значения. Пожалуйста, выполните следующие действия:
Шаг 1. Выберите ячейку назначения

Выберите, где вы хотите, чтобы консолидированные данные отображались.
Шаг 2. Получите доступ к функции консолидации и настройте консолидацию.
- Нажмите Данные >Консолидировать, см. снимок экрана:

- В Консолидировать диалоговое окно:
- (1.) Выберите Сумма от Функция раскрывающийся список;
- (2.) Нажмите, чтобы выбрать диапазон, который вы хотите консолидировать в Справка коробка;
- (3.) Проверить Верхний ряд и Левая колонка от Используйте ярлыки в вариант;
- (4.) Наконец, нажмите OK кнопку.

Результат:
Excel объединит все дубликаты, найденные в первом столбце, и суммирует их соответствующие значения в соседних столбцах, как показано на следующем снимке экрана:

- Если диапазон не включает строку заголовка, убедитесь, что снимите флажок Верхняя строка из Используйте ярлыки в опцию.
- Благодаря этой функции расчеты можно консолидировать только на основе первого столбца (крайнего левого) данных.
Объедините повторяющиеся строки и суммируйте значения с помощью мощной функции – Kutools
Если вы установили Kutools for Excel, Его Расширенные ряды комбинирования Функция позволяет вам легко комбинировать повторяющиеся строки, предоставляя возможности суммировать, подсчитывать, усреднять или выполнять другие вычисления с вашими данными. Более того, эта функция не ограничивается одним ключевым столбцом, она может обрабатывать несколько ключевых столбцов, что значительно упрощает сложные задачи консолидации данных.
Внимание : Если вы хотите использовать это Расширенные ряды комбинирования особенность, пожалуйста скачайте и установите Kutools для Excel первый.
После установки Kutools for Excel, выберите диапазон данных и нажмите кнопку Кутулс > Слияние и разделение > Расширенные ряды комбинирования.
В Расширенные ряды комбинирования диалоговое окно, установите следующие операции:

- Щелкните имя столбца, на основе которого вы хотите объединить дубликаты. Здесь я нажму «Продукт», а затем выберите Основной ключ из раскрывающегося списка в Эксплуатация столбец;
- Затем выберите имя столбца, значения которого вы хотите суммировать, а затем выберите Сумма из раскрывающегося списка в Эксплуатация столбец;
- Что касается остальных столбцов, вы можете выбрать нужную вам операцию, например объединение значений с определенным разделителем или выполнение определенного расчета; (этот шаг можно проигнорировать, если у вас только два столбца)
- Наконец, вы можете просмотреть объединенный результат, а затем нажать OK кнопку.
Результат:
Теперь повторяющиеся значения в ключевом столбце объединяются, а другие соответствующие значения суммируются, как показано на следующем снимке экрана:

- С помощью этой полезной функции вы также можете объединять строки на основе повторяющихся значений ячеек, как показано в следующей демонстрации:
- Эта особенность поддерживает отмену, если вы хотите восстановить исходные данные, просто нажмите Ctrl + Z.
- Чтобы применить эту функцию, пожалуйста, скачайте и установите Kutools для Excel первый.
Объедините повторяющиеся строки и просуммируйте значения с помощью сводной таблицы.
Сводная таблица в Excel предоставляет динамический способ реорганизации, группировки и суммирования данных. Эта функция становится невероятно полезной, когда вы сталкиваетесь с набором данных, заполненным повторяющимися записями, и вам необходимо суммировать соответствующие значения.
Шаг 1. Создание сводной таблицы
- Выберите диапазон данных. А затем перейдите в Вставить вкладку и щелкните Сводная таблица, см. снимок экрана:

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

- Теперь сводная таблица вставляется в выбранную целевую ячейку. Смотрите скриншот:

Шаг 2. Настройка сводной таблицы:
- В Поля сводной таблицы перетащите поле, содержащее дубликаты, на панель Строка область. Это сгруппирует ваши дубликаты.
- Затем перетащите поля со значениями, которые вы хотите суммировать, в Наши ценности область. По умолчанию Excel суммирует значения. Посмотрите демо ниже:
Результат:
В сводной таблице теперь отображаются данные с объединенными дубликатами и суммированными их значениями, что обеспечивает четкое и краткое представление для анализа. Смотрите скриншот:

Объедините повторяющиеся строки и суммируйте значения с кодом VBA
Если вас интересует код VBA, в этом разделе мы предоставим код VBA для консолидации повторяющихся строк и суммирования соответствующих значений в других столбцах. Пожалуйста, выполните следующие действия:
Шаг 1. Откройте редактор модулей листов VBA и скопируйте код.
- Удерживая нажатой ALT + F11 ключи в Excel, чтобы открыть Microsoft Visual Basic для приложений окно.
- Нажмите Вставить >Модулии вставьте следующий код в Модули Окно.
Код VBA: объедините повторяющиеся строки и просуммируйте значения
Sub CombineDuplicateRowsAndSumForMultipleColumns() 'Update by Extendoffice Dim SourceRange As Range, OutputRange As Range Dim Dict As Object Dim DataArray As Variant Dim i As Long, j As Long Dim Key As Variant Dim ColCount As Long Dim SumArray() As Variant Dim xArr As Variant Set SourceRange = Application.InputBox("Select the original range:", "Kutools for Excel", Type:=8) If SourceRange Is Nothing Then Exit Sub ColCount = SourceRange.Columns.Count Set OutputRange = Application.InputBox("Select a cell for output:", "Kutools for Excel", Type:=8) If OutputRange Is Nothing Then Exit Sub Set Dict = CreateObject("Scripting.Dictionary") DataArray = SourceRange.Value For i = 1 To UBound(DataArray, 1) Key = DataArray(i, 1) If Not Dict.Exists(Key) Then ReDim SumArray(1 To ColCount - 1) For j = 2 To ColCount SumArray(j - 1) = DataArray(i, j) Next j Dict.Add Key, SumArray Else xArr = Dict(Key) For j = 2 To ColCount xArr(j - 1) = xArr(j - 1) + DataArray(i, j) Next j Dict(Key) = xArr End If Next i OutputRange.Resize(Dict.Count, ColCount).ClearContents i = 1 For Each Key In Dict.Keys OutputRange.Cells(i, 1).Value = Key For j = 1 To ColCount - 1 OutputRange.Cells(i, j + 1).Value = Dict(Key)(j) Next j i = i + 1 Next Key Set Dict = Nothing Set SourceRange = Nothing Set OutputRange = Nothing End Sub
Шаг 2. Выполните код
- После вставки этого кода нажмите F5 ключ для запуска этого кода. В поле подсказки выберите диапазон данных, который вы хотите объединить и суммировать. Затем нажмите OK.

- И в следующем окне подсказки выберите ячейку, в которую вы будете выводить результат, и нажмите OK.

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

Объединение и суммирование повторяющихся строк в Excel может быть простым и эффективным. Выбирайте простую функцию консолидации, расширенные инструменты Kutools, аналитические сводные таблицы или гибкое кодирование VBA, чтобы найти решение, соответствующее вашим навыкам и потребностям. Если вы хотите узнать больше советов и рекомендаций по Excel, на нашем веб-сайте представлены тысячи руководств. нажмите здесь, чтобы получить к ним доступ. Спасибо за внимание, и мы с нетерпением ждем возможности предоставить вам еще больше полезной информации в будущем!
Статьи по теме:
- Объедините несколько строк в одну на основе дубликатов
- Возможно, у вас есть диапазон данных, в столбце «Название продукта» A есть несколько повторяющихся элементов, и теперь вам нужно удалить повторяющиеся записи в столбце A, но объединить соответствующие значения в столбце B. Как можно выполнить эту задачу в Excel? ?
- Vlookup и возврат нескольких значений без дубликатов
- Иногда вам может понадобиться vlookup и сразу вернуть несколько совпадающих значений в одну ячейку. Но если в возвращенные ячейки внесены повторяющиеся значения, как можно игнорировать дубликаты и сохранять только уникальные значения при возврате всех совпадающих значений, как показано на следующем снимке экрана в Excel?
- Объединить строки с одинаковым идентификатором/именем
- Например, у вас есть таблица, как показано на скриншоте ниже, и вам нужно объединить строки с идентификаторами заказов, есть идеи? В этой статье вы найдете два решения.
Как в excel объединить повторяющиеся ячейки
Смотрите такжеNextМихаил С. местах они больше, как это сделать.Закрыть и загрузить элементы из второго один и применить сложности. – этот способ
B1, то связанные с(Выделенная область содержит или функции СЦЕП.
12 в ячейке
Рассмотрим,On Error Resume: Без объединения (УФ) не встречаются), такSub Merge() Dim Да и объёми выбираем
списка. потом к полученномуНемного изменим структуру исходнойИмеется отчет продаж в гораздо быстрее., нажимаем ними данные в несколько значений данных.Выделите ячейку, в которую В2 основной таблицыкак сложить и удалить Nextwebley
же эти ячейки myTable As Range файла большой -Закрыть и загрузить в. Вложенные друг в друга набору инструмент таблицы: сети магазинов поУрок подготовлен для ВасShift+Стрелка вправо столбце Объединение ячеек приведёт
вы хотите вставить
на цифру 2. дубли в ExcelWith Workbooks.Add.Worksheets(1): Можно так. Единственное,
местами уже объединены. Dim address As макрос быстрее должен (Close&Load to. ) две функции ЕСЛИОШИБКАУдалить дубликатыНа этот раз нам целой стране. Нам командой сайта office-guru.ru
, чтобы добавить кFull Name к потере всех объединенные данные. Получилось так.
. Как выделить дубли.Range(«A1»).Resize(oDict.Count) = Application.Transpose(oDict.keys)
последняя ячейка вТак вот хотелось String Application.ScreenUpdating =
справляться.: реализуют вывод сначалас вкладки необходимо объединить все
нужно сделать таблицуИсточник: https://www.ablebits.com/office-addins-blog/2013/10/13/merge-columns-excel-without-losing-data/
выделению ячейкутакже будут потеряны. значений, кроме левогоВведите = (знак равенства)
Как работать с таблицей в Excel, читайте.Range(«B1»).Resize(oDict.Count) = Application.Transpose(oDict.items) таблице должна быть бы объединить эти False address =UPD Важно чтобыВ следующем диалоговом окне уникальных из списка-1,Данные (Data — Remove ячейки с одинаковыми данного отчета болееПеревел: Антон АндроновC1Теперь нам нужно превратить верхнего). и выберите первую
консолидации, как объединить в статье «КакEnd With заполнена (можно руками значения в одну «A1:AI12» Set myTable цикл искал дубли
(оно может выглядеть
а потом из Duplicates) значениями в столбце
читабельной. Для этогоАвтор: Антон Андронов. Затем нажимаем формулу в значение,Далее в этой статье ячейку, которую нужно несколько таблиц в выделить повторяющиеся значенияOn Error GoTo
:)) ячейку. = Range(address) For компании не по немного по-другому - списка-2 друг за: «Штат» (B) в
следует красиво сформатироватьYYYSCtrl+Shift+Стрелка вниз
чтобы мы могли Вы найдёте 2 объединить.
одну консолидацией, читайте в Excel» тут. 0Jon1242
Подскажите как это i = 2 всему листу, а не пугайтесь) выбираем другом.Само-собой, такой способ не столбце «№» (A). первый столбец, в: Здравствуйте! Нужна помощь
, чтобы выделить все удалить ненужные столбцы способа, как объединить
Введите символ в статье «Как Как удалить повторяющиесяEnd Sub: Уважаемый СЛЭН.
можно реализовать. To myTable.Rows.Count ‘ только подряд. ЕслиТолько создать подключение (OnlyОбратите внимание, что это
подойдет, если данныеЕсли мы хотим, чтобы котором содержаться названия
в объединении одинаковых
ячейки с данными с нашего листа данные из нескольких& объединить таблицы в значения, смотрите вKuklPА не можете
P.S. По поиску For j = встречается другая компания, create connection) формула массива, т.е. в исходных списках действия макроса распространялось штатов: ячеек, причем так в двух столбцах.
Excel. Выделите все столбцов в один

и пробел, заключенный Excel». статье «Как удалить: Кросспостинг: переделать макрос, чтобы
Объединение текста из двух или нескольких ячеек в одну
к сожалению не i + 1 тогда записывать объединённый: после набора ее
Объединение данных с помощью символа «амперсанд» (&)
- часто меняются - на несколько выделенныхМы хотим объединить все
- чтобы строки тожеСкопируйте данные в буфер ячейки с данными без потери данных
- в кавычки.Второй способ. дубли в Excel».Но загляните еще
- он также объединял нашел, хотя решение To myTable.Rows.Count If результат в КатегориюПовторяем всю процедуру (пункты нужно ввести в
Объединение данных с помощью функции СЦЕП
- придется повторять всю столбцов, то делаем ячейки с одинаковыми
- объединялись пример прилагаю! обмена ( в объединённом столбце
- и, не используяВыберите следующую ячейку, которую Сложить все дублиИтак, нам нужно сюда: ячейки , только такой задачи наверняка
- myTable.Cells(i, 3) = и переходить к 2-6) для второго ячейку не обычным процедуру после каждого следующее. Сначала добавим
Как объединить два столбца в Excel без потери данных
значениями в столбце Отблагодарю чем смогу)Ctrl+C (выделите первую ячейку макрос VBA. нужно объединить, и
с помощью формул. перед удалением дублей,Hugo по строкам. обсуждалось. myTable.Cells(j, 3) And следующей компании. Это списка. При переименовании Enter, а сочетанием изменения заново. новую переменную: «Штат» (A). ЭтоSkyProили в столбцеОбъединяем два столбца при нажмите клавишу ВВОД. Таблица та же.

их сложить. Рассмотрим: В той теме,Заранее спасибо, простотухачевский myTable.Cells(i, 4) = чтобы не грузить заголовка столбца важно клавиш Ctrl+Shift+Enter иЭтот способ является, поDim j As Long можно реализовать с: Это как? ПоCtrl+InsFull Name помощи формул Пример формулы:

Принцип такой. Создаем несколько способов.
- откуда этот код я оч. далек: а для чего myTable.Cells(j, 4) And лишним поиском, так использовать то же затем скопировать (протянуть) сути, логическим продолжениемДалее добавим строку с помощью ручного выделения
- каким параметрам? в– что предпочитаете).и затем нажмитеОбъединяем столбцы при помощи=A2&» «&B2 дополнительный столбец, вПервый способ. ( ) есть от этого. это нужно? myTable.Cells(i, 15) = как файл изначально имя (Люди), что вниз на нижестоящие

предыдущего. Если списки кодом начала нового отдельных групп одинаковых каких столбцах?Запустите Блокнот:Ctrl+Shift+Стрелка вниз Блокнота.
- ячейках которого будемСамый простой способ
- такой пост:Guest
Объединяем два столбца при помощи формул
я бы не myTable.Cells(j, 15) And отсортирован. и в предыдущем ячейки с запасом. не очень большого цикла, который будет значений и объединенияЦитатаStart
- .Скопируйте содержимое в буферДопустим, у Вас естьВыделите ячейку, в которую писать название дубля, – это использоватья бы сделал: Нужно так, строка советовал так делать myTable.Cells(i, 19) =китин запросе.В английской версии Excel размера и заранее проходить по другим их ячеек, воспользовавшись

- YYYS, 12.10.2013 в(Пуск) > обмена ( таблица с данными вы хотите вставить
который нужно сложить. функцию так, чтоб не одна Прикрепленные файлыслэн myTable.Cells(j, 19) Then: а вот походуВ окне Excel на эта формула выглядит известно предельное количество столбцам выделенного диапазона: инструментом: «ГЛАВНАЯ»-«Выравнивание»-«Объединить и 18:08, в сообщенииAll ProgramsCtrl+C о клиентах, и объединенные данные. Мы будем писать«Консолидация» в Excel писать новый макрос:
post_304320.PNG (3.78 КБ): что-то в этом myTable.Cells(i, 1) = вам в помощь вкладке как: элементов в нихFor j = 1 поместить в центре». 
- № 1200?’200px’:»+(this.scrollHeight+5)+’px’);»>причем так(Все программы) >или Вы хотите объединитьВведите выражение дубли в ячейках. У нас такая1. левее суммPetro роде: myTable.Cells(i, 1) &
- СцепитеслиДанные (Data)=IFERROR(IFERROR(INDEX(Список1, MATCH(0, COUNTIF($E$1:E1, Список1), (например, не больше To Selection.Columns.Count Но если таблица чтобы строки тожеAccessoriesCtrl+Ins столбцы с именем= СЦЕП( С2, С3, С4, таблица создал столбец, куда

- : Этот код яSub Макрос1() «, » &или ТЫЦили на вкладке 0)), INDEX(Список2, MATCH(0, 10), то можноПосле конца, ранее созданного содержит тысячи таких объединялисьВсю строку?(Стандартные) >– что предпочитаете), (First Name) и. С5.. собрал данные из так понимаю объединяет’ myTable.Cells(j, 1) myTable.Cells(i,и вообще ПОИСКPower Query COUNTIF($E$1:E1, Список2), 0))), объединить две таблицы (внутреннего) цикла добавляем групп, да ещеМожет вам нужноNotepad затем кликните правой фамилией (Last Name)Выберите первую ячейку, которуюА в следующемНам нужно сложить все

- первых трёх через строки в первомDim i&, n&, 8) = myTable.Cells(i, РУЛИТвыбираем «»)
- в одну прямыми инструкцию Next для с разным количеством просто две таблицы(Блокнот) кнопкой мыши по в один столбец нужно объединить. столбце напишем формулу,
- числа в столбце разделитель формулой столбце, а как arr, rn& 8) + myTable.Cells(j,о что получилось:Получить данные — ОбъединитьМинус у такого подхода ссылками, добавить справа конца нового (внешнего) повторяющихся ячеек, тогда свести в одну?Вставьте данные из буфера любой ячейке в
с полным именемДля разделения объединяемых ячеек которая будет искать В по каждому=B1&»|»&C1&»|»&D1 сделать чтобы воn = Cells(Rows.Count,

8) myTable.Cells(i, 9)Mikez запросы — Добавить в том, что столбец с единичками цикла . И

Объединяем столбцы при помощи Блокнота
рационально написать макрос.Если да, то обмена в Блокнот том же столбце (Full Name). используйте запятые, а дублирующие данные в дублю из столбца
это я в всех объединял или 1).End(xlUp).Row = myTable.Cells(i, 9): Не осилю. С
- (Get Data - формулы массива ощутимо и построить по соответственно сделаем код Он сам быстро на форуме полно (нажмите (Full Name) иДобавьте в таблицу новый для добавления пробелов, первом столбце и А – отдельно А собирал, но в выделенном?

- arr = Cells(1, + myTable.Cells(j, 9) макросами у меня Merge Queries - замедляют работу с получившейся таблице сводную:
- более читабельным с и автоматически выполнит подобных тем.Ctrl+V в контекстном меню столбец. Для этого запятых и другого складывать цифры по все ячейки с
- не принципиально.И еще для 1).Resize(n) myTable.Cells(i, 10) = плохо. А формулу Append) файлом, если в

- Как известно, сводная помощью отступов табуляции. всю работу заYYYSили выберите наведите указатель мыши текста — кавычки. дублям из второго цифрой 1, отдельно
- 2. макросом получил полного счастья -rn = 1 myTable.Cells(i, 10) + использовать — не: исходных таблицах большое таблица игнорирует повторы, Кроме того, для Вас.: Это одна таблицаShift+InsPaste Special на заголовок столбцаВведите закрывающую скобку в столбца. все ячейки с сводную типа когда он объединяетFor i = myTable.Cells(j, 10) myTable.Cells(i, то. Там вВ появившемся диалоговом окне (несколько сотен и поэтому на выходе всех экземпляров объекта

- Откройте редактор Visual Basic там где то)(Специальная вставка). Отметьте (в нашем случае конце формулы иВ ячейке D2 цифрой 2, т.д.
- 44550|225|40724 11,16 выскакивает окно что 2 To n 14) = myTable.Cells(i, итоговой таблице тысячи выбираем наши запросы более) количество элементов. мы получим объединенный

- Cells во втором (ALT+F11): 800 наименований, вСкопируйте в буфер обмена вариант это столбец D), нажмите клавишу ВВОД.
пишем такую формулу. Мы не знаем,3. Инструментом «текст объединение приведет кIf arr(i, 1) 14) + myTable.Cells(j, строк.
из выпадающих списков:Если в ваших исходных
список без дубликатов.
аргументе, вместо числа
И создайте новый модуль
Как объединить повторные ячейки? (Формулы)
первой ячейке есть символ табуляции. ДляValues кликните по нему Пример формулы: =СУММЕСЛИ(A2:A9;C2;B2:B9) сколько и какие
по столбцам» опять потере всех данных <> arr(i - 14) Range(myTable.Cells(j, 1),
Может кто заВ итоге получим новый списках большое количество Вспомогательный столбец с 1 введем переменную с помощью инструмента:
повторения (это id этого нажмите клавишу(Значения) и нажмите
правой кнопкой мыши=CONCAT(A2, » Семья»)В ячейку D3
у нас дубли получил столбцы. как от него 1, 1) Then myTable.Cells(j, myTable.Columns.Count)).Delete Shift:=xlUp плату сделает от запрос, где два элементов, например, по 1 нужен только j (например, Selection.Cells(i, «Insert»-«Module». А потом товара). Повторения изTabОК и в контекстном. пишем такую формулу. в большой таблице.Это и Вам избавиться?With Range(Cells(rn, 1), j = j начала до конца? списка будут соединены несколько сотен или
потому, что Excel j)). Новая версия
запишите в него за того, что
в Блокноте, затем.
меню выберите пункт
Из этой короткой статьи =СУММЕСЛИ(A3:A9;C3;B3:B9)На новом листе подойдёт (чтоб неLow
Cells(i — 1, — 1 Endкитин
друг под другом. тысяч, то вместо умеет строить сводные измененного кода макроса VBA-код макроса:
у товара ест сочетаниеУдалите столбцыInsert Вы узнаете, какПо такому принципу делаем активной ячейку. писать новый макрос: Всем доброго. 1)) If Next j: это в раздел Осталось удалить дубликаты медленной формулы массива
по таблицам, содержащим, выглядит следующим образом:
Макрос для объединения одинаковых ячеек в таблице Excel
Sub JoinDoubles() разные размеры иCtrl+Shift+Стрелка влевоFirst Name(Вставить). Давайте назовём в Excel объединить написать формулы в
Как объединить одинаковые ячейки в столбце используя макрос
Мы, в нашем 🙂 )Есть файл вида.HorizontalAlignment = xlGeneral Next i Application.ScreenUpdating фриланс.ждите модератора кнопкой лучше использовать принципиально по крайней мере,Sub JoinDoubles()

Dim i As количество а ID, а затеми новый столбец несколько столбцов в других ячейках столбца примере, сделаем активной-=85558=- адрес, дом, квартира,.VerticalAlignment = xlTop = True Endя же вамУдалить строки — Удалить другой подход, а два столбца.Dim i As Long одинаковый. Мне нужноCtrl+XLast Name
Full Name один, не потеряв

D. Получилось так. ячейку Е2 наLow сумма и тд..WrapText = False

Subвот здесь адрес
в файлике показал, дубликаты (Delete Rows
именно — инструменты
При изменении исходных списков LongApplication.DisplayAlerts = False
объединить строки с., они нам больше
. при этом данные.
Эту же формулу можно
этом же листе.
: Видимо я не
в котором все
.Orientation = 0
твоей таблицы: что полулачается с — Delete Duplicates) надстройки Power Query. новые данные поDim j AsFor i = одинаковым ID, и

Замените в Блокноте символы не нужны. ДляВ ячейкеУ Вас есть таблица написать, вызвав диалоговое На закладке «Данные» совсем ясно описал строки повторяются с.AddIndent = Falseaddress = «A1:AI12″ этой UDF .
: Эта надстройка по прямым ссылкам попадут Long Selection.Rows.Count To 2 чтобы ячейка размерTab этого:D2 в Excel, и окно функции «СУММЕСЛИ». в разделе «Работа
проблему либо не разницей в поле.IndentLevel = 0а вообще лучше надо только выбратьГотовый запрос можно переименовать умолчанию встроена в в объединенную таблицу,Application.DisplayAlerts = False Step -1
добавлялась и была
Как объединить все одинаковые ячейки в любой таблице
на другие символы,кликните по заголовку столбца

запишите вот такую Вы хотите объединить Она расположена на с данными» нажимаем понимаю идею объединения сумма. Необходимо объединить
.ShrinkToFit = False преобразовать твою табличку уникальные справа на панели Excel 2016. Если но сводную придется
If Selection.Cells(i, 1) через запятую, а которые Вы хотитеB формулу:
два столбца в закладке «Формулы» в
на кнопку функции значений в один повторяющиеся строки между.ReadingOrder = xlContext в табличку екселяMikez параметров, дав ему у вас Excel обновить уже вручную 1 To Selection.Columns.Count = Selection.Cells(i - строка количество суммировалась. использовать в качестве, затем, нажав и=CONCATENATE(B2,» «,C2) один построчно. Например, разделе «Библиотека функций»
«Консолидация». Выйдет диалоговое
столбец. Ваш макрос собой и сложить
.MergeCells = True и задать имя.
: Большое спасибо, Игорь.
вменяемое имя (это 2010 или 2013,
(правой кнопкой мышиFor i = 1, 1) Then
В двух файлах разделителей.Для этого нажмите удерживая клавишу
=СЦЕПИТЬ(B2;» «;C2) необходимо объединить столбец
нажимаем функцию «Математические»,
окно.
замечательно работает и
значения полей сумма.
End With
тогда нужно будет
Но я глянул будет имя таблицы-результата то ее можно -

Selection.Rows.Count To 2Range(Selection.Cells(i — 1, я сделал пример
Ctrl+HCtrlB2 с именем и выбираем «СУММЕСЛИ». Заполним
Слияние двух списков без дубликатов
Заполнили его так: суммирует значения в Нашел примерчик, ноrn = i эти строки: — там выше по факту) и отдельно скачать иОбновить Step -1 1), Selection.Cells(i, 1)).Merge как было и, чтобы открыть диалоговое

, кликните по заголовкуи столбец с фамилией диалоговое окно так.В строке «Функция» нужной ячейке, но
Способ 1. Удаление дубликатов
увы, знаний какEnd Ifaddress = «A1:AI12″ моего уровня. А все и можно установить (бесплатно).). Если не нуженIf Selection.Cells(i -End If как должно быть! окно столбца

C2 в один, илиВ строке «Диапазон» указываем выбрали функцию «Сумма». моя проблема в его доработать подNext
Способ 1а. Сводная таблица
Set myTable = чтобы дотянуться мне все выгружать наАлгоритм действий следующий: пересчет «на лету», 1, j) =Next Если, кто поможетReplaceC– это адреса объединить несколько столбцов, диапазон столбца А Можно выбрать другие том, что кроме

свои нужды неEnd Sub Range(address)заменить на: время надо, которого лист командойОткрываем отдельную вкладку установленной то лучше воспользоваться Selection.Cells(i, j) ThenSelection.VerticalAlignment = xlVAlignCenter в долгу не(Заменить). В поле.
ячеек из столбцов таких как улица, с дублями. действия. столбца с не хватает. Главная проблема,Eternal-SmokeSet myTable = нет. Да иЗакрыть и загрузить (Close&Load) надстройки другими вариантами.Range(Selection.Cells(i — 1,
Способ 2. Формула массива
Application.DisplayAlerts = True останусь)Find what(другой способ) выберите любуюFirst Name город, индекс иВ строке «Критерий»В строке «Ссылка» уникальными значениями и не могу понять: Спасибо, буду пробовать Range(«MyTableName[#All]»)ну и конечно смысла нет -:Power QueryМожно решить проблему формулами. j), Selection.Cells(i, j)).MergeEnd SubDV

(Что) вставьте из ячейку в столбцеи

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


- Теперь если нам необходимо: Формулами можно так: буфера обмена символBLast Name столбец с адресом,
- С, в которой таблицы. У нас выводить остальные столбцы, бы после сравнения
- А нужно это, я задавал тоже раз в год изменениях или дополнениях Excel 2010-2013) или пересчет и обновлениеNext
объединить ячейки сSkyPro табуляции. В поле, нажмите. Обратите внимание, что разделяя значения запятой, будем писать название указан фиксированный размер т.е. если в в новый файл
чтоб перед печатью фиксированно, числами. т.о. попадаются.
в исходных списках, просто идем на результатов будет происходитьNext
одинаковыми значениями, то: Или макросом:Replace withCtrl+Space в формуле между чтобы в дальнейшем дубля. диапазона с абсолютными
Способ 3. Power Query
адресе есть повтор записывались все столбцы, всё симпатично выглядело, если ты поменяешьВо «Фриланс» переносить достаточно будет лишь вкладку автоматически и мгновенно,Selection.VerticalAlignment = xlVAlignCenter выделите диапазон A1:A18ЗЫ: Использована функция(Чем) введите Ваш(Пробел), чтобы выделить ними стоит символ распечатывать адреса наВ строке «Диапазон ссылками и названием и суммируется значение
- начальство это любит. местами или удалишь/добавишь или удовлетворитесь уже правой кнопкой мышиДанные сразу после измененийApplication.DisplayAlerts = True и запустите макрос «сцепитьесли» с excel-vba.ru разделитель, например, пробел,
- весь столбец пробела, заключенный в конвертах. суммирования» указываем диапазон столбцов. Можно написать из полей «сумма» первый и последний

- слэн новые колонки в имеющимися ответами? обновить таблицу результатов.(если у вас в исходных списках.End Sub
- выбрав инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«JoinDoubles»-«Выполнить».Источник запятую и т.д.B кавычки. Это разделитель,К сожалению, в Microsoft столбца В, числа диапазон с относительными строк дубликатов, и из выделенного диапазона..: Вот так еще середину — работатьPelenaMikez Excel 2016). Для удобства иЧтобы увидеть результат действия Результат действия макроса
- YYYS Нажмите кнопку, затем нажмите который будет вставлен Excel нет встроенного из ячеек которого ссылками.

- строка переносится вOption Explicit лучше: тоже перестанет. Вариант: Не совсем так,: Доброго дня.Выделяем первый список и

- краткости давайте дадим новой версии кода, отображен на рисунке:: Спасибо огромное Вам!Replace AllCtrl+Shift+Стрелка вправо между соединёнными частями инструмента для выполнения
- нужно сложить.Подробнее о видах одном экземпляре с’Option Compare Textn = Cells(Rows.Count, решения — в как Вы хотелиПомогите, пожалуйста, с жмем кнопку нашим спискам имена выделяем всю таблицуВ начале кода мы

- С меня причитается)(Заменить все), а, чтобы добавить к

- имени. В качестве таких задач. Конечно,В строке формул ссылок читайте в новым значением поляSub UniqSummUniversal() 1).End(xlUp).Row+1 макросе пройтись по — результат получается макросом начинающему.

- Из таблицы/диапазона (From Range/Table)Список1 и запускаем макрос: декларируем переменную для DV не вижу затем выделению столбец разделителя Вы можете есть команды сразу видна получившаяся статье «Относительные и

сумма.Dim a(), oDictEternal-Smoke заголовкам таблицы и в последней ячейкеВо вложении образец
Объединить дубликаты строк, сцепив значения одной колонки (Макросы/Sub)
. На вопрос прои
Читайте также: как объединить хранения показателей счетчика
твои поощрительные реквизиты))Cancel
C использовать любой другойMerge Cells формула. абсолютные ссылки вKukLP, спасибо, пытаюсь
As Object, i: немного не так определить номера нужных.
из группы, зато
для экспериментов. создание из нашегоСписок2 одинаковые ячейки в цикла. В циклеSerge_007(Отмена), чтобы закрыть. символ, например, запятую.
(Объединить ячейки),Третий способ. Excel» здесь. разобраться. As Long, temp всё-равно получается.
тогда будет работать формуламиЛист «Данные» содержит
списка «умной таблицы», используя строках таблицы. проверяем значения соседних: СцепитьЕсли есть и диалоговое окно.
После этого кликните правойТочно так же ВыMerge & CenterСоздать таблицу сПоставили галочки уHugo As Stringмакрос отлично работает максимально динамично.Mikez компании. Одна компания — соглашаемся:Диспетчер именКак видно на рисунке
ячеек, начиная с у насНажмите кнопкой мыши по
можете объединить данные
(Объединить и поместить фильтром. Внизу столбца
слов:
: Смысл такой -Dim ind As на обычных ячейках,namexls: Вот это сила может быть представленаОткрывается окно редактора запросов,на вкладке
теперь макрос автоматически низа выделенного диапазона.SkyPro
Ctrl+A любому из выделенных из нескольких ячеек,
в центре) и В установить автосумму.«подписи верхней строки» объединяем данные строки Long но не объединяет
: Спасибо. Затестил, работает мысли! ))) Спасибо! несколькими строчками. Отличаются где будет видноФормулы (Formulas — Name объединяет одинаковые значения Если ячейка содержит: Видел, но не, чтобы выделить весь столбцов и в используя при этом прочие, но если
Выбирать фильтром нужные – это название в одну ячейку,
’ind = InputBox(«Sum уже объединенные ячейки все супер какnamexls строчки значением одной загруженные данные и Manager — Create)
сразу в двух такое же значение пробовал. А эта
Объединить повторяющиеся строки excel с суммированием нужных столбцов
текст в Блокноте, контекстном меню нажмите любой разделитель по Вы выберите 2 дубли. Как сделать столбцов; по этому столбцу Column Number?») (( надо, но только: Здраствуйте, не могу ячейки. имя запроса: столбцах. значит она будет на ядиске уже затемDelete Вашему вкусу. Например, смежные ячейки с сводную таблицу, читайте
«значения левого столбца» и суммам отрабатываетa = Selection.Valueтерпеть не могу
на 5 строках, разобраться в кодеВсё отсортировано иТаблица1После именования, нужная намКлассическая ситуация: у вас объединена. лежала в заначках.Ctrl+C(Удалить). Вы можете соединить целью объединить их, в статье «Сводные — это значит, макрос (а поind = UBound(a, эти объединения, подскажите как формулу заставить макроса, не в строчки одной компании(можно поменять на формула будет выглядеть есть два списка,Дополнительно в начале кодаDAV2014, чтобы скопировать егоОтлично, мы объединили имена адреса из 3 как показано на таблицы Excel». что искать дубли какому столбцу Вы 2) как реализовать? работать до самого моих силах. Помогите идут подряд. свое, если хотите). следующим образом: которые надо слить макроса устанавливаем свойство: Здравствуйте! Нужна помощь в буфер обмена.
из двух столбцов
столбцов в один: снимке экрана ниже:Но мы сделаем в левом первом определяете уникальные -Set oDict =
Guest низа так как плиз с готовым
Задача:Делаем двойной щелчок вНа первый взгляд выглядит в один. Причем «False» для объекта в объединении одинаковыхВернитесь к листу Excel в один!Скопируйте эту формулу воВам будет показано сообщение проще и быстрее. столбце. только по фамилии?), CreateObject(«Scripting.Dictionary»): сначала разобъедините весь строк очень много?
решением. Пример файла1. Суммировать одну заголовок таблицы (слово жутковато, но, на в исходных списках «DisplayAlerts», чтобы предотвратить ячеек из поля (нажмитеХоть это и все остальные ячейки с предупреждением: Выделяем таблицу, нажимаемНажимаем «ОК». Поучилось он выгружает такие
oDict.CompareMode = 1 диапазон Столбцы местами меняться
Объединение ячеек с одинаковым содержанием
залил + там колонку всех дублей:Список1 самом деле, все
могут быть как появления предупреждающего сообщение ТОВАР, причем такAlt+Tab потребовало немало усилий столбцав Excel 2013: сочетание клавиш Ctrl так. объединённые данные иFor i =
Eternal-Smoke не будут и же лист как в первую строчку
) и переименовываем на не так страшно.
уникальные элементы, так о попытке объединить чтобы из множества), выделите только ячейку и времени.
Full NameMerging cells only keeps + T (английская
Если таблицу консолидации делаем суммы в новую
1 To UBound(a): Если разъединить, то добавляться не будут
должно получиться. Суть
компании, если у
любой другой (например Давайте я разложу
и совпадающие (и непустые ячейки в
одинаковых строк поляB1
Этот способ быстрее, чем
. Пошаговую инструкцию как the upper-left cell
на любой раскладке). на другом листе, книгу.
If IsNumeric(a(i, ind)) получаться пустые ячейки, новые, добавляются только
— нужно объеденить
неё есть повторяющиеся
Люди
эту формулу на
между списками и
программе Excel. В
ТОВАР осталась всегда
и вставьте текст
предыдущий, и не
это делается Вы
value, and discards
Получилась такая сводная
то получится такая
Теперь суммы копируем
Then которые в дальнейшем строки.
повторяющиеся значения по строчки, в ячейку). Каки именно назвать несколько строк, используя
внутри), но на конце выполнения кода одна строка с
из буфера обмена требует создания формул.
можете найти в the other values таблица с фильтрами.
таблица. правее (чтоб неIf Not IsEmpty(a(i, не попадут подВсе разобрался. Установил
столбцу C,D,O,S, а «Категория» добавить категории — не важно,
сочетание клавиш Alt+Enter выходе нужно получить макроса обратно возвращаем
уникальным значением, а в таблицу. Но он подходит статье Как вставить(В объединённой ячейке Внизу столбца В
Когда мы делали консолидацию затёрлись), разбиваем объёдинённое ind)) Then объединение address = «A1:AI2500″ по столбцам H, из строк-дублей. Через но придуманное название и отступы пробелами, список без дубликатов свойство «True» для
в поле соответсвенно
Переименуйте столбец только для объединения
одинаковую формулу сразу сохраняется только значение установили автосумму. на другом листе, назад по ячейкам.temp = Trim(a(i,
Guest и все.
I, J, N разделитель |. нужно запомнить, т.к. как мы делали, (повторений):
объекта «DisplayAlerts». Кол-во и СуммаB
смежных столбцов при во все выбранные из верхней левойВыберем фильтром дубли 1.
то в диалоговомЕсли нужно всё 1)): Это ваше умозаключениеEternal-Smoke суммировать и по2. Пометить строчки-дубли: его придется использовать
например тут:Давайте традиционно рассмотрим несколькоОбратите внимание! Если перед автоматически пересчитывались значения. в использовании одинакового разделителя ячейки. ячейки диапазона. Остальные
Объединение повторов и удаление дубликатов в excel
Получилось так. окне консолидации в
сделать макросом -If Not oDict.Exists(temp) или «практический опыт»?: Добрый день! я столбцу A произвести у всех строчек потом еще разЛогика тут следующая: способов решения такой выполнением макроса выделить Исходный файл прилагаю!Full Name между ними.Итак, мы объединили имена значения будут потеряны).Как написать данные одновременно строке «создавать связи можно попытаться записать Then Правила гласят, что снова к вам сцепление через запятую компании кроме первой
при импорте второй
Формула ИНДЕКС(Список1;ПОИСКПОЗ(0;СЧЁТЕСЛИ($E$1:E1;Список1); 0) выбирает
более одного столбца,Заранее благодарю заи удалите столбецВот пример: мы хотим
из двух столбцовв Excel 2010 и
в нескольких ячейках, с исходными данными»
этот процесс рекордером
oDict.Add temp, CStr(a(i, желателен пример реальных
:( без пробелов можно.
в столбец I
таблицы. Объединить две все уникальные элементы
от примитивных «в то в результате
помощь.Last name
объединить все те в один, но
2007: смотрите в статье
поставили галочку. Теперь, :)
ind))
форматов данных вИмеется большой массив
Кол-во строк свыше
прописать текст «удалить»
таблицы в дальнейшем
из первого списка.
лоб» до более будут объединены одинаковые
В данном примере напишем
.
же два столбца
это по-прежнему формула.
The selection contains multiple «Как заполнить ячейки
их реальной структуре. данных в одном
2х тысяч и или «дубль». получится только если Как только они сложных, но изящных.
значения только в код макроса, которыйВ описании этого способа
с именем и Если мы удалим data values. Merging в Excel одновременно». В изменятся цифры,
: Hugo, спасибо огромное!))
oDict.Item(temp) = CStr(—oDict.Item(temp) А как вам столбце, эти данные
периодически добавляются.В картинках: Из
заголовки их столбцов
заканчиваются — начинаетМожно решить задачу самым первом столбце. Чтобы
сможет автоматически найти больше шагов, чем фамилией в один. столбец
Данные из нескольких ячеек то и в Вот что называется + a(i, ind)) вариант объединить от повторяются только последовательноhamin вот этого должно совпадают. выдавать ошибку #Н/Д: простым путем - расширить поле действия и объединить все в предыдущем варианте,Выделяем оба столбца, которыеFirst name will keep the можно объединить в этой таблице данные «слона-то я иEnd If непустой до непустой, (т.е. несколько одинаковых: получиться вот это.
Разворачиваем выпадающий список вФормула ИНДЕКС(Список2;ПОИСКПОЗ(0;СЧЁТЕСЛИ($E$1:E1;Список2); 0)) аналогичным
руками скопировать элементы макроса следует немного одинаковые ячейки в но поверьте мне необходимо объединить. Дляили upper-left most data одну с помощью пересчитаются автоматически. Проверяем не приметил»! ОченьEnd If предварительно разъединенных. значений друг заnamexls
Формулами не знаю левом верхнем углу образом извлекает уникальные обоих списков в
изменить его код. таблице Excel любой или проверьте сами этого выделяем ячейкуLast name
only символа «амперсанд» (&) – изменим цифру выручили, все работает))End IfZ.
Как в excel суммировать повторяющиеся значения
Смотрите также Step -1Name_Wb_I = Workbooks.Item(Int(InputBox(s,Call Toolbar(CInt(Sh), CInt(Sh_Ob)) понял. я бы применилOption Explicit $F3 , а: А сводная, промежду так, чтобы количество5 помощью функции
Формулы. Используйте диапазон приводим ссылку на сводную таблицу, читайте
на другом листе,
Рассмотрим,If Arr_I(0, i) «Выбрать номер книги»))).NameNext iЯ решил свою штатное средство «удалитьFunction Ran(i As
ведь их необходимо прочим, у ТС просуммировалось.1 и т.д.ЧАСТОТАв группе уникальных значений, которые оригинал (на английском в статье «Сводные то в диалоговомкак сложить и удалить = «1» ThenWorkbooks.Item(Name_Wb_I).Activate
MisterYu задач своим путем, дубликаты» и потом Integer, j As сначала туда вывести((( уже есть -Например, в таблицемне нужна суммаможно, например, подсчитатьЗависимости формул были скопированы в языке) .
таблицы Excel».
окне консолидации в дубли в ExcelRows(i).DeleteRange(Cells(1, 1), Cells(1,
: Полный код если которым мне понятнее подсчет суммы для Integer) As StringМихаил С. на Лист 2 3 раза встречается по Ане, Мане, количество результатов тестирования,
нажмите кнопку качестве аргумента, заПредположим, что требуется определитьНо мы сделаем строке «создавать связи
. Как выделить дублиEnd If
1)).Select кому нужно и скорость работы
каждого из источникаIf Range(Cells(i, j),: Сводная здесь лучше . товар Y000001 (1
Тане и т.д. попадающих в определенные
Показывать формулы исключением заголовок столбца. количество уникальных значений проще и быстрее.
с исходными данными» в Excel, читайтеSh = ShCol_I = Cells(Rows.Count,Option Explicit меня устраивает.and_evg Cells(i, j)).Text = всего справится.Юрий М шт., 2 шт.Длина столбца огромная, интервалы. Поскольку данная. Например если диапазон в диапазоне, содержащем Выделяем таблицу, нажимаем
поставили галочку. Теперь, в статье «Как + 1 2).End(xlUp).RowDim 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 решил.MisterYuElseЮрий М файл с макросом чтобы дубли удалились количеству (может быть как формулу массива.
3=ROWS(B2:B45)числа 5, 6, 7
на любой раскладке). то и в Как удалить повторяющиесяApplication.Calculation = xlCalculationAutomatic которому будет идти
String1 этап: Прилагаю.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 по реєстру для
Подсчет повторяющихся значений (Дубликатов) в MS EXCEL
Workbook в массив: мб. а тутEnd Ifot kaz
: спасибо, покурил немного товаром Y000001. Нона выходе мневыполняет поиск указанного6Для выполнения этой задачи значения — 5, 6 Внизу столбца В – изменим цифру дубли в Excel».Application.DisplayStatusBar = True книги » +
Dim Name_Wb AsFor i = ограничениеEnd Function: The_Prist, браво. разных тем и чтобы его количество
в идеале, чтобы элемента в диапазоне7 используйте комбинацию функций и 7; установили автосумму.

12 в ячейке
Итак, нам нужноEnd Sub Name_Wb_I)) String Nomer_Str_I To Col_I
Максимальный размер файла
Sub Base()Только коректировка нужна, действительно через сводную было 6 шт. было ячеек и возвращает8ЕСЛИстроки «Руслан», «Сергей», «Сергей»,
Подсчет количества уникальных значений среди повторяющихся
Выберем фильтром дубли 1. В2 основной таблицы перед удалением дублей,Sub Макрос6()Nomer_Col_I = Int(InputBox(«ВведитеPublic Stop_Pr AsIf Stop_Pr Then 100 KbDim Name_Wb_I, Name_Wb_J а именно с таблицу вывел сколько (суммой всех строкАня 46 относительную позицию этого9, «Сергей», будут найдены Получилось так. на цифру 2. их сложить. РассмотримCall Wb_Books номер колонки по
BooleanExit ForОбрежу таблицу. As String СУММА ЧИСЕЛ.. то
- раз повторяется та этого товара).Маня 32 элемента в диапазоне.10
- СУММ два уникальных значения —Как написать данные одновременно Получилось так.
несколько способов.UserForm1.Show которому будет идти
В этой статье
Function Ran(i AsEnd If
П.С. ДобавилDim Col_I, Col_J
Подсчет количества уникальных значений с помощью фильтра
есть в Вашем или иная дата.И совсем вКсюша 15 и Например, если диапазонA, «Руслан» и «Сергей». в нескольких ячейках,Как работать с таблицейПервый способ.Call Base
- сверка», «Окно ввода Integer, j AsArr_I(1, i) =Hugo As Integer решении.. лист Result Теперь вот вопрос.
- идеале, чтобы оставалась т.д. A1:A3 содержит значенияBЧАСТОТАСуществует несколько способов подсчета смотрите в статье консолидации, как объединитьСамый простой способEnd Sub
- по реєстру для Integer) As String i: Покажите рабочий код.
- Dim Nomer_Str_I, Nomer_Col_I,Столбец Часы1 Строка К примеру у строка с наименьшей т.е. первый столбец 5, 25 и Данные, количества уникальных значений «Как заполнить ячейки несколько таблиц в – это использовать
- MisterYu книги » +If Range(Cells(i, j),Arr_I(2, i) =Может он был Nomer_I_X, Nomer_Str_J, Nomer_Col_J, Физика не 1, меня 3 раза ценой. — идентификационный номер, 38, то формулаДанные
- ПОИСКПОЗ среди повторяющихся. в 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(«Введите «» ThenArr_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». таблица поиск в столбце записи данных», «ОкноElseArr_I(4, i) = режут. Но тот,
- As Integer 14! кол-во раз. Как цены 10 грн,: Консолидацией, сводной таблицей.
Пример
является вторым в563Назначьте значение 1 каждому с помощью функций
может содержать текстовые
- Второй способ..
- одинаковых значений, при ввода по реєстру»)) Ran = Range(Cells(i, Ran(CInt(i), CInt(Nomer_Col_I) + что в теме Dim Num, S1,
- ot kaz
- это свести в 11 грн иKuklP
- диапазоне.67 из истинных условийС помощью диалогового окна значения и числа.Сложить все дублиНам нужно сложить все нахождении которых удалитьApplication.ScreenUpdating = False j), Cells(i, j)).Value 2) — не работает.
S2 As String
12 грн. Чтобы
: Как раз она-то
с помощью функции
Расширенный фильтр
Если исходный список содержит:
с помощью формул.
числа в столбце
одинаковые строки при
Application.Calculation = xlCalculationManual
Dim Arr_I(3, 17000)
нужно, буду тестить
оставалась минимальная цена
можно извлечь уникальные
этом просуммировать значение
End Function
As String завтра отпишусь ;): См. 10 грн. Но подходит. Или объясните
возвращает число символов
Руслан. значения из столбца11212Принцип такой. Создаем дублю из столбца
Application.DisplayStatusBar = FalsePrivate Sub Wb_Books()Call Toolbar(CInt(Sh), CInt(Sh_Ob)) строк? Достаточно иDim Check AsSerge
ot kaz это уже совсем
- почему. в текстовой строке.ДмитрийВычислите сумму, используя функцию данных и вставить>. Тогда количество значений, дополнительный столбец, в
- А – отдельноПримерWorkbooks.Item(Name_Wb_I).ActivateCol = 0Next i десяти. Boolean: Естественно:-): Господа,помогите решить проблему. в идеале -tamriko11
Описание функций
- Функция689СУММ их в новое которые повторяются будет ячейках которого будем все ячейки с11 10,0Sh_Ob = Col_Is = «»2 этапА так да,Dim SumAs Doubleot kazИмею таблицу в
- если это сильно: сводная таблица неСУММ789. местоположение. С помощью равно 5, т.е. писать название дубля, цифрой 1, отдельно11 15,0 — (Nomer_Col_I -For Each wbИщу одинаковые значение сводная, или удалитьApplication.ScreenUpdating = False: 2The_Prist. Donate на
- три столбца (№) сложно, то не подходит, потому чтовычисляет сумму всех
- ДмитрийПодсчитайте количество уникальных значений функции Application.Calculation = xlCalculationManual ЯД. (Вид) (Часы) обязательно. сумму «итого» по
- чисел, указанных в143 с помощью функцииЧСТРОК 1, 2> (значения Мы будем писать цифрой 2, т.д.11 5,0Sh = 0
Суммирование повторяющихся значений
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_IIf wb.Name = значение соответственно Arr_I(3,
Sub tt()Check = False работает замечательно. Вот (Часы) по одинаковым поэтому обращаюсь к другую таблицу с
диапазоном, ссылкой на67ЧАСТОТА
диапазоне.
жирным
С5. у нас дубли
11 30,0If Stop_Pr Then «» Then i) и записываю
Dim a, i&,Sum = 0
только заполнил 100 значениям (Вид)? Вам. помощью ВРП ячейку, массивом, константой,
235пропускает текстовые иВыделите диапазон ячеек или).А в следующем в большой таблице.22 25,0Exit For
wb.Close True признак повторения ( ii&, s$Stop_Pr = False
строк значениями из2. Можно лиbuchlotnik
а как из
формулой или результатомФормула
нулевые значения. Для убедитесь в том,Если исходный список значений столбце напишем формулу,
На новом листеsboyEnd If
Else у меня «1»)
With [c1].CurrentRegionNomer_Col_I=3 другой таблицы(копировать-вставить-специальная вставка-значения) дополнительно при суммировании: сводная устроит?
сводной таблицы потом выполнения другой функции.Описание (результат)
первого вхождения заданного что активная ячейка находится в диапазоне которая будет искать делаем активной ячейку.: Добрый день.Arr_I(1, i) =
Удаление дубликатов строк с суммированием значений (Формулы/Formulas)
Name_Wb = wb.Name в массив Arr_I(0,a = .Value:For i =
в итоге при в столбце (№)frion воспользоваться ВРП я Например, функция=СУММ(ЕСЛИ(ЧАСТОТА(A2:A10,A2:A10)>0,1)) значения эта функция находится в таблице.
А7:А16 дублирующие данные в Мы, в нашемВам конечно с
is = s j) = «1» .Clear Nomer_Str_I To Col_I нажатии на «создать вывести номера строк: Спасибо большое! Результат не знаюСУММ(A1:A5)Подсчет количества уникальных числовых возвращает число, равноеУбедитесь в том, что(см. файл примера), то
первом столбце и примере, сделаем активной этим работать, ноArr_I(2, i) =
+ Name_Wb +КодEnd WithIf Stop_Pr Then отчет» процесс обсчета которые сумировались. мне подходит. ВсёLycoвычисляет сумму всех значений в диапазоне общему количеству его диапазон ячеек содержит число повторяющихся значений
складывать цифры по ячейку Е2 на на мой взгляд Ran(CInt(i), CInt(Nomer_Col_I))
» New:»)Exit For занимает примерно 2Пример прикреплен. просто, а такая
: 1. Данные - чисел в ячейках
A2:A10 без учета вхождений. Для каждого заголовок столбца.
сумма повторяющихся значений
можно вычислить с дублям из второго этом же листе. очень не оптимально
Arr_I(3, i) = Str(Col) + vbCrLf Nomer_Str_I To Col_IFor i =End If мин.В какую сторону большая экономия времени! Удалить дубликаты. от A1 до пустых ячеек и последующего вхождения тогоНа вкладке помощью формулы =СУММПРОИЗВ(—(СЧЁТЕСЛИ(A7:A16;A7:A16)>1)) столбца. На закладке «Данные»Вот как я CDbl(Ran(CInt(i), CInt(Nomer_I_X)))End IfFor 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 не понимаю?
Суммирование одинаковых значений в списке?
ЕСЛИПодсчет количества уникальных текстовых
Узнайте номер позиции текстовогоСортировка и фильтр текстовых и числовых
=СУММЕСЛИ(A2:A9;C2;B2:B9) на кнопку функции но на большом 2)
Sub Toolbar(k AsIf Arr_I(2, i)If .exists(s) ThenIf Ran(CInt(i), CInt(Nomer_Col_I)) так?
ot kaz
: Спасибо! С формуламиThe_Prist
возвращает одно значение, и числовых значений
значения в диапазоненажмите кнопку значений, кроме того,
В ячейку D3 «Консолидация». Выйдет диалоговое объеме информации скоростьSh = Sh
Integer, Full As = Arr_I(2, j)a(.Item(s), 2) =
= Ran(j, CInt(Nomer_Col_I))Попробуйте. Файл прилагаю.: The_Prist, спасибо за тоже ОЧЕНЬ удобно!: ВРП — это
если указанное условие в диапазоне B2:B10, с помощью функцииДополнительно
она игнорирует пустые пишем такую формулу. окно.
ощутите в разы + 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 = FalseNext i.Frame1.Caption + Str(k) + CDbl(Arr_I(3, j))ii = iiRange(Cells(j, 1), Cells(j,ot kaz была ошибка в задачку в EXCEL.
: Высылаю Ваш пример дает в результате=СУММ(ЕСЛИ(ЧАСТОТА(ЕСЛИ(ДЛСТР(A2:A10)>0,ПОИСКПОЗ(A2:A10,A2:A10,0),»»),ЕСЛИ(ДЛСТР(A2:A10)>0,ПОИСКПОЗ(A2:A10,A2:A10,0),»»))>0,1)) аргумента функции
.
выделены с помощью других ячейках столбца Можно выбрать другие
’t = TimerSum = 0 + » /»
Arr_I(0, j) = + 1: .Item(s)
10)).Delete Shift:=xlUp: Действительно была открыта формуле.Есть столбец с с применение консолидации. значение ЛОЖЬ.Подсчет количества уникальных текстовых
Просуммировать ячейки для повторяющихся значений (Макросы/Sub)
ЧАСТОТАУстановите переключатель
Условного форматирования (см. статью D. Получилось так. действия.
Set r1 =Stop_Pr = False + Str(Full) «1» = iij = j — 1 книга.
Строк в таблице повторяющимися датами. НеобходимоNic70y
К началу страницы и числовых значений
, что позволяет определитьскопировать результат в другое Выделение повторяющихся значенийЭту же формулу можно
В строке «Ссылка»
Range(Cells(1, 3), Cells(1,Sh = 0.Label2.Caption = Str(100
Check = Truea(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,
NextIf Check Then книге! А чем
какими номерами строки датой есть еще
этот файл. не подходит.
. Пустые ячейки имеют ячейку.
здесь: Подсчет неповторяющихся
нажимаем функцию «Математические»,
столбцов. Можно написать & shn &
If Arr_I(2, i) Full)) i)) + SumEnd WithRange(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» ThenEnd SubEnd IfEnd SubCheck = FalseMisterYu СПАСИБО мало будет
количество повторений каждойtamriko11
Маня Выделите все ячейки, его на пустой
окно, выберите ячейку повторяющихся, то получим диапазон столбца А ссылок читайте в
.Value = r1.ValueSum = SumSub Base()Sh = ShMisterYu
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 WithArr_I(0, j) = As StringCall Toolbar(CInt(Sh), CInt(Sh_Ob))HugoCall 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 Integer3 этап писал — такоеApplication.Calculation = xlCalculationAutomatic
Суть макроса в
ot kaz будет показывать дату уже сделано, формулы
Аня функции по шагам,
Выделите пример в разделе
Установите флажок
вас актуальными справочными будем писать название
слов:
adr1 = .Offset(0,
End IfDim 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 = .ValueCheck = FalseDim Num, S1,For i =
в строкеДумаю, что нужноПосле удалить повторяющиесяИ еще, я
группировкой по ДНЯМ.
перечнем товаров. У
Аня
нажмите кнопку
Выделите на листе ячейку
в новое место, нас важно, чтобыВ строке формул
в левом первом
End WithSum = 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