Как объединить одинаковые ячейки в excel и сложить значения
Перейти к содержимому

Как объединить одинаковые ячейки в excel и сложить значения

  • автор:

Как объединить одинаковые строки в excel и сложить их значения

​Смотрите также​​: В Готовых решениях​ формулы/фичи, то как​​Это не пустые​ все фильтры включены,​ все остальные одинаковые,​ я сделал пример​: Макрос.​​Ctrl+H​(Удалить).​ столбце​
​ (Full Name).​ объединить несколько столбцов,​Значение из последней строки​ разделе «Библиотека функций»​
​ столбцов;​
​Рассмотрим,​ есть пользовательская функция,​ можно облегчить решение?​​ строки, они просто​​ а нужно сократить​ сократив, таким образом,​​ как было и​
​Storm_Zcooler​Зибин​, чтобы открыть диалоговое​Отлично, мы объединили имена​Full Name​Добавьте в таблицу новый​ таких как улица,​ будет содержать желаемую​ нажимаем функцию «Математические»,​«значения левого столбца»​как сложить и удалить​ позволяющая сцепить ячейки​ (а то их​
​ отображают объединение, т.е.​ число строк в​ число строк. Как​ как должно быть!​: Дима, надо чтобы​: на вкладке Данные​ окно​ из двух столбцов​также будут потеряны.​ столбец. Для этого​ город, индекс и​ текстовую строку (см.​​ выбираем «СУММЕСЛИ». Заполним​
​ — это значит,​ дубли в Excel​ по условию.​ там 1,5тыс)​
​ каждая строка соответствует​ первоначальной базе, чтобы​ это сделать -​ Если, кто поможет​ одинаковые наименования объединялись​ — Консолидация​Replace​ в один!​Теперь нам нужно превратить​
​ наведите указатель мыши​ страна в один​ файл примера).​ диалоговое окно так.​ что искать дубли​
​. Как выделить дубли​http://www.excelworld.ru/board. -1-0-24​
​Спасибо заранее​ внутренним перевозкам до​ потом можо было​
​ я не знаю,​ в долгу не​ в одну ячейку.​Алексей матевосов (alexm)​(Заменить). В поле​
​Хоть это и​ формулу в значение,​
Сложить и удалить дубли в Excel.​ на заголовок столбца​ столбец с адресом,​Возвращаясь к функции СЦЕПИТЬ()​В строке «Диапазон» указываем​
​ в левом первом​ в 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 Name​Merge Cells​ весь диапазон сразу,​ столбца В, числа​​ то в диалоговом​​ их сложить. Рассмотрим​ я про vba​ чтобы все цвета(7​​ 1 файл -​​ может, да и​ не будет потеряна.​ С меня причитается)​ формулой сделать?​В D2 пишите​

​Вот пример: мы хотим​Ctrl+Shift+Стрелка вниз​.​

​(Объединить ячейки),​​ а не отдельные​ из ячеек которого​ окне консолидации в​ несколько способов.​

Как объединить два столбца в Excel без потери данных

​ ничеоо не знаю.​ столбик) были в​ 1 месяц -​ с 1млн. строк​Заранее большое спасибо!​ DV не вижу​

​Владимир​ формулу=ЕСЛИ (СЧЁТЕСЛИ (B$2:B2;B2)=1;СУММЕСЛИ​ затем​ объединить все те​.Скопируйте содержимое в буфер​В ячейке​Merge & Center​ ячейки. В результате​ нужно сложить.​ строке «создавать связи​Первый способ.​Спасибо, за ссылку​ одной ячейки, а​ 1 сводная. Теперь​ файл слишком тяжелый,​Shuter1987​ твои поощрительные реквизиты))​: 57787​

Объединить два столбца в Excel

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

Объединить два столбца в Excel

​maximS2​ формулы удалите​

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

Объединить два столбца в Excel

​ если в столбце​ функцию​примерно так. ​gling​ одну годовую.​Shuter1987​: Дело в том,​ у нас​

  • ​ строчек в столбцах​Арбузо л.З.​
  • ​Нажмите​Выделяем оба столбца, которые​

Объединяем два столбца при помощи формул

​Ctrl+Ins​=CONCATENATE(B2,» «,C2)​ Вы выберите 2​ выделим формулу =СЦЕПИТЬ(A6:A9)​Третий способ.​ В изменятся цифры,​«Консолидация» в Excel​AleX_Leon​: Вы файл свой​Открыть новую книгу​

  1. ​:​ что мне на​SkyPro​ заранее не известно?​: И ещё два​Ctrl+A​ необходимо объединить. Для​– что предпочитаете),​=СЦЕПИТЬ(B2;» «;C2)​ смежные ячейки с​​ и нажмем клавишу​​Создать таблицу с​ то и в​​. У нас такая​​: УРА! Получилось! то​Объединить два столбца в Excel
  2. ​ видели? Цвета в​​ — вставить туда​​Shuter1987​ выходе нужно получить​ ​: Видел, но не​
    ​maximS2​ ​ способа​​, чтобы выделить весь​​ этого выделяем ячейку​​ затем кликните правой​B2​​ целью объединить их,​​ F9. Получим массив​​ фильтром. Внизу столбца​​ этой таблице данные​ таблица​ что надо для​ ячейки разные,размеры разные​ все данных из​, вопрос не в​ вид опять в​ пробовал. А эта​: А если колличество​ПЕРВЫЙ​ текст в Блокноте,​ Объединить два столбца в Excel​B1​ кнопкой мыши по​и​ как показано на​ =, его можно​ В установить автосумму.​ пересчитаются автоматически. Проверяем​.​ меня!​ Объединить два столбца в Excel
  3. ​ их что сцепить​ сводных, добавить 1​ том, что усложняет​​ формате БД, чтобы​​ на ядиске уже​ строчек в столбцах​Создать «Сводную таблицу»​ затем​, нажимаем​ любой ячейке в​C2​
  4. ​ снимке экрана ниже:​ скопировать в буфер​ Выбирать фильтром нужные​ – изменим цифру​Нам нужно сложить все​sv-zzz​​ в одну строку​​ столбец с названием​​ и как. Я​​ потом можно было​ лежала в заначках.​ заранее не известно?​​Меню «Данные» –​​Ctrl+C​Объединить два столбца в Excel
  5. ​Shift+Стрелка вправо​ том же столбце​– это адреса​Вам будет показано сообщение​ обмена (без знака​ дубли. Как сделать​ 12 в ячейке​ числа в столбце​: Добрый день, есть​ что ли? На​​ месяца.​​ спрашиваю, но этим​​ объединить ее с​​DAV2014​Пример в excel2003​​ «Сводная таблица» –​​, чтобы скопировать его​​, чтобы добавить к​​ (Full Name) и​ ячеек из столбцов​ с предупреждением:​ = и фигурных​ сводную таблицу, читайте​ В2 основной таблицы​ В по каждому​ задача:​​ другом листе покажите​​Или я сильно​ полям надо суммировать?​​ базами по другими​​: Здравствуйте! Нужна помощь​​Storm_Zcooler​​ для Эксель2003​Объединить два столбца в Excel
  6. ​ в буфер обмена.​​ выделению ячейку​​ в контекстном меню​​First Name​​в Excel 2013:​ скобок) и вставить​ в статье «Сводные​
    • ​ на цифру 2.​​ дублю из столбца​​Имеется таблица (более​ какой хотите результат​​ упрощаю, на самом​​ Правильная сумма сейчас​ месяцам, а в​​ в объединении одинаковых​​: Спасибо, то что​
    • ​Меню «Вставка» –​Вернитесь к листу Excel​​C1​​ выберите​​и​​Merging cells only keeps​ в нужную ячейку.​​ таблицы Excel».​​ Получилось так.​​ А – отдельно​​ 3000 строк): номер(186​ из этих двух​​ деле все гораздо​​ получилась?​

​ сводной крутить уже​ ячеек из поля​ надо. ​ «Сводная таблица»– для​ (нажмите​​. Затем нажимаем​​Paste Special​

Объединить два столбца в Excel

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

Объединить два столбца в Excel

Объединяем столбцы при помощи Блокнота

​ позиций); код; статус;​ сток.Для этого можно​ сложнее?Да, все так,​Как раз фильтры​ данные за пол-года​ ТОВАР, причем так​YYYS​ Эксель2007​

​Alt+Tab​Ctrl+Shift+Стрелка вниз​(Специальная вставка). Отметьте​. Обратите внимание, что​ value, and discards​

  1. ​ (двойные кавычки, двоеточие​ проще и быстрее.​ консолидации, как объединить​​ цифрой 1, отдельно​​ кол-во​​ использовать сводную таблицу,​​ только при копировании​ и не включены))​​ или год.​​ чтобы из множества​​: Здравствуйте! Нужна помощь​​ВТОРОЙ​), выделите только ячейку​, чтобы выделить все​Объединить два столбца в Excel
  2. ​ вариант​ в формуле между​​ the other values​​ и опять двойные​​ Выделяем таблицу, нажимаем​​ несколько таблиц в​
  3. ​ все ячейки с​​1.необходимо-просуммировать числа в​​ а дальше то​​ строки, как вы​​А сводную можно​​Shuter1987​​ одинаковых строк поля​​ в объединении одинаковых​​Создать промежуточные строки​
  4. ​B1​ ячейки с данными​Values​​ ними стоит символ​​(В объединённой ячейке​​ кавычки) можно избавиться​​ сочетание клавиш Ctrl​Объединить два столбца в Excel
  5. ​ одну консолидацией, читайте​ цифрой 2, т.д.​ столбце «кол-во» у​​ что. ​​ сказали отражающие объединение,​ делать по консолидации​​: Для суммирования должны​​ ТОВАР осталась всегда​​ ячеек, причем так​​ с функцией​
  6. ​и вставьте текст​​ в двух столбцах.​​(Значения) и нажмите​ пробела, заключенный в​ сохраняется только значение​ с помощью функции​​ + T (английская​​ в статье «Как​ Мы не знаем,​​ совпадающих по 3-м​​AleX_Leon​​ будут пустыми (тотже​​Еще раз посмотрел,​ совпасть все столбцы?​ одна строка с​​ чтобы строки тоже​​=ПРОМЕЖУТОЧНЫЕ. ИТОГИ ()​ из буфера обмена​Скопируйте данные в буфер​ОК​​ кавычки. Это разделитель,​​ из верхней левой​ ПОДСТАВИТЬ() (см. файл​​ на любой раскладке).​​ объединить таблицы в​ сколько и какие​Объединить два столбца в Excel
  7. ​ признакам (номер+код+статус) строк​​:​​ вид перевозки), соответственно​ что вы предлагаете,​Промежуточные итоги ?​​ уникальным значением, а​​ объединялись пример прилагаю!​Меню «Данные» –​
  8. ​ в таблицу.​ обмена (​​.​​ который будет вставлен​​ ячейки диапазона. Остальные​​ примера). или с​ Получилась такая сводная​ Excel».​Объединить два столбца в Excel
  9. ​ у нас дубли​​ и написать сумму​​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|i​​Shuter1987​

​YYYS, 12.10.2013 в​​ Эксель сделает всё​.​(Пуск) >​ этого:​ можете объединить данные​

​ will keep the​​G8​

​ в нескольких ячейках,​ ячейках которого будем​ этом же листе.​

​ куда поставлен «итог».​​ ней раньше)​

​ снимая выделение ставите​ виде нельзя опять​

​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​ свести в одну?​ одном наименование товара,​ гораздо быстрее.​Вставьте данные из буфера​ столбца ​ столбцов в один:​ значений, кроме левого​В итоге, вставив результат​Предположим, что имеется диапазон​А в следующем​Заполнили его так:​ подскажите самый простой​buchlotnik​lexamen​ перевозки (например внутренние)​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+Ins​B​. Пошаговую инструкцию как​

​ данные из нескольких​​ замены двойных кавычек​Когда значений немного, то​ складывать цифры по​В строке «Ссылка»​: Предлагаю 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​ Например вместо пяти​Tab​B​ во все выбранные​Объединяем два столбца при​
​ в 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+X​C​ это по-прежнему формула.​ таблица с данными​

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

Результат:

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

  • Если диапазон не включает строку заголовка, убедитесь, что снимите флажок Верхняя строка из Используйте ярлыки в опцию.
  • Благодаря этой функции расчеты можно консолидировать только на основе первого столбца (крайнего левого) данных.
Объедините повторяющиеся строки и суммируйте значения с помощью мощной функции – Kutools

Если вы установили Kutools for Excel, Его Расширенные ряды комбинирования Функция позволяет вам легко комбинировать повторяющиеся строки, предоставляя возможности суммировать, подсчитывать, усреднять или выполнять другие вычисления с вашими данными. Более того, эта функция не ограничивается одним ключевым столбцом, она может обрабатывать несколько ключевых столбцов, что значительно упрощает сложные задачи консолидации данных.

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

После установки Kutools for Excel, выберите диапазон данных и нажмите кнопку Кутулс > Слияние и разделение > Расширенные ряды комбинирования.

В Расширенные ряды комбинирования диалоговое окно, установите следующие операции:

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

Результат:

Теперь повторяющиеся значения в ключевом столбце объединяются, а другие соответствующие значения суммируются, как показано на следующем снимке экрана:

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

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

Шаг 1. Создание сводной таблицы

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

Шаг 2. Настройка сводной таблицы:

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

Результат:

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

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

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

Шаг 1. Откройте редактор модулей листов VBA и скопируйте код.

  1. Удерживая нажатой ALT + F11 ключи в Excel, чтобы открыть Microsoft Visual Basic для приложений окно.
  2. Нажмите Вставить >Модулии вставьте следующий код в Модули Окно.
    Код 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. Выполните код

  1. После вставки этого кода нажмите F5 ключ для запуска этого кода. В поле подсказки выберите диапазон данных, который вы хотите объединить и суммировать. Затем нажмите OK.
  2. И в следующем окне подсказки выберите ячейку, в которую вы будете выводить результат, и нажмите OK.

Результат:

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

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

Статьи по теме:
  • Объедините несколько строк в одну на основе дубликатов
  • Возможно, у вас есть диапазон данных, в столбце «Название продукта» A есть несколько повторяющихся элементов, и теперь вам нужно удалить повторяющиеся записи в столбце A, но объединить соответствующие значения в столбце B. Как можно выполнить эту задачу в Excel? ?
  • Vlookup и возврат нескольких значений без дубликатов
  • Иногда вам может понадобиться vlookup и сразу вернуть несколько совпадающих значений в одну ячейку. Но если в возвращенные ячейки внесены повторяющиеся значения, как можно игнорировать дубликаты и сохранять только уникальные значения при возврате всех совпадающих значений, как показано на следующем снимке экрана в Excel?
  • Объединить строки с одинаковым идентификатором/именем
  • Например, у вас есть таблица, как показано на скриншоте ниже, и вам нужно объединить строки с идентификаторами заказов, есть идеи? В этой статье вы найдете два решения.

Как в excel объединить повторяющиеся ячейки

​Смотрите также​​Next​Михаил С.​​ местах они больше​,​ как это сделать.​Закрыть и загрузить​ элементы из второго​ один и применить​​ сложности.​ – этот способ​
​B1​, то связанные с​(Выделенная область содержит​ или функции СЦЕП.​
​ 12 в ячейке​
​Рассмотрим,​On Error Resume​: Без объединения (УФ)​​ не встречаются), так​​Sub Merge() Dim​ Да и объём​​и выбираем​
​ списка.​ потом к полученному​Немного изменим структуру исходной​Имеется отчет продаж в​ гораздо быстрее.​, нажимаем​ ними данные в​ несколько значений данных.​Выделите ячейку, в которую​ В2 основной таблицы​как сложить и удалить​ Next​webley​
​ же эти ячейки​ myTable As Range​ файла большой -​Закрыть и загрузить в. ​Вложенные друг в друга​ набору инструмент​ таблицы:​ сети магазинов по​Урок подготовлен для Вас​Shift+Стрелка вправо​ столбце​ Объединение ячеек приведёт​​ вы хотите вставить​
​ на цифру 2.​ дубли в Excel​With 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.​ выделению ячейку​также будут потеряны.​ значений, кроме левого​Введите = (знак равенства)​
​Как работать с таблицей​ в 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) в​
​ следует красиво сформатировать​YYYS​Ctrl+Shift+Стрелка вниз​
​ чтобы мы могли​ Вы найдёте 2​ объединить.​
​ одну консолидацией, читайте​ в Excel» тут.​ 0​Jon1242​
​Подскажите как это​ i = 2​ всему листу, а​ не пугайтесь) выбираем​ другом.​Само-собой, такой способ не​ столбце «№» (A).​ первый столбец, в​: Здравствуйте! Нужна помощь​​, чтобы выделить все​ удалить ненужные столбцы​ способа, как объединить​
​Введите символ​ в статье «Как​ Как удалить повторяющиеся​End Sub​: Уважаемый СЛЭН.​
​ можно реализовать.​ To myTable.Rows.Count ‘​ только подряд. Если​Только создать подключение (Only​Обратите внимание, что это​
​ подойдет, если данные​Если мы хотим, чтобы​ котором содержаться названия​
​ в объединении одинаковых​
​ ячейки с данными​ с нашего листа​ данные из нескольких​&​ объединить таблицы в​ значения, смотрите в​KuklP​А не можете​
​P.S. По поиску​ For j =​ встречается другая компания,​ create connection)​ формула массива, т.е.​ в исходных списках​ действия макроса распространялось​ штатов:​ ячеек, причем так​ в двух столбцах.​
​ Excel. Выделите все​ столбцов в один​

​и пробел, заключенный​ Excel».​ статье «Как удалить​: Кросспостинг:​ переделать макрос, чтобы​

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

​ к сожалению не​ i + 1​ тогда записывать объединённый​:​ после набора ее​

Объединение данных с помощью символа «амперсанд» (&)

  1. ​ часто меняются -​ на несколько выделенных​Мы хотим объединить все​
  2. ​ чтобы строки тоже​Скопируйте данные в буфер​ ячейки с данными​ без потери данных​
  3. ​ в кавычки.​​Второй способ.​​ дубли в Excel».​Но загляните еще​
  4. ​ он также объединял​ нашел, хотя решение​ To myTable.Rows.Count If​ результат в Категорию​​Повторяем всю процедуру (пункты​​ нужно ввести в​

Объединение данных с помощью функции СЦЕП

  1. ​ придется повторять всю​ столбцов, то делаем​ ячейки с одинаковыми​
  2. ​ объединялись пример прилагаю!​​ обмена (​​ в объединённом столбце​
  3. ​ и, не используя​Выберите следующую ячейку, которую​ ​Сложить все дубли​Итак, нам нужно​ сюда:​ ячейки , только​ такой задачи наверняка​
  4. ​ myTable.Cells(i, 3) =​ и переходить к​ 2-6) для второго​ ячейку не обычным​​ процедуру после каждого​​ следующее. Сначала добавим​

Как объединить два столбца в Excel без потери данных

​ значениями в столбце​ Отблагодарю чем смогу)​Ctrl+C​ (выделите первую ячейку​ макрос VBA.​ нужно объединить, и​

​ с помощью формул.​ перед удалением дублей,​Hugo​ по строкам.​ обсуждалось.​ myTable.Cells(j, 3) And​ следующей компании. Это​ списка. При переименовании​ Enter, а сочетанием​ изменения заново.​ новую переменную:​ «Штат» (A). Это​SkyPro​или​ в столбце​Объединяем два столбца при​ нажмите клавишу ВВОД.​ Таблица та же.​

Объединить два столбца в Excel

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

Объединить два столбца в Excel

​Принцип такой. Создаем​ несколько способов.​

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

Объединить два столбца в Excel

​ предыдущего. Если списки​ кодом начала нового​ отдельных групп одинаковых​ каких столбцах?​Запустите Блокнот:​Ctrl+Shift+Стрелка вниз​ Блокнота​.​

  • ​ ячейках которого будем​Самый простой способ​
  • ​ такой пост:​Guest​

Объединяем два столбца при помощи формул

​я бы не​ myTable.Cells(j, 15) And​ отсортирован.​ и в предыдущем​ ячейки с запасом.​ не очень большого​ цикла, который будет​ значений и объединения​Цитата​Start​

  1. ​.Скопируйте содержимое в буфер​Допустим, у Вас есть​Выделите ячейку, в которую​ писать название дубля,​ – это использовать​я бы сделал​: Нужно так, строка​ советовал так делать​ myTable.Cells(i, 19) =​китин​​ запросе.​​В английской версии Excel​ размера и заранее​​ проходить по другим​​ их ячеек, воспользовавшись​Объединить два столбца в Excel
  2. ​YYYS, 12.10.2013 в​​(Пуск) >​​ обмена (​ таблица с данными​ ​ вы хотите вставить​
    ​ который нужно сложить.​ ​ функцию​​ так, чтоб не​​ одна Прикрепленные файлы​​слэн​ myTable.Cells(j, 19) Then​​: а вот походу​​В окне Excel на​​ эта формула выглядит​​ известно предельное количество​ столбцам выделенного диапазона:​ инструментом: «ГЛАВНАЯ»-«Выравнивание»-«Объединить и​ 18:08, в сообщении​All Programs​Ctrl+C​ о клиентах, и​ объединенные данные.​ Мы будем писать​«Консолидация» в Excel​ писать новый макрос:​ Объединить два столбца в Excel​ post_304320.PNG (3.78 КБ)​: что-то в этом​ myTable.Cells(i, 1) =​ вам в помощь​ вкладке​ как:​ элементов в них​For j = 1​ поместить в центре».​ Объединить два столбца в Excel
  3. ​ № 1200?’200px’:»+(this.scrollHeight+5)+’px’);»>причем так​(Все программы) >​или​​ Вы хотите объединить​​Введите выражение​ дубли в ячейках​. У нас такая​1. левее сумм​Petro​ роде:​ myTable.Cells(i, 1) &​
  4. ​ Сцепитесли​Данные (Data)​=IFERROR(IFERROR(INDEX(Список1, MATCH(0, COUNTIF($E$1:E1, Список1),​ (например, не больше​ To Selection.Columns.Count​ Но если таблица​​ чтобы строки тоже​​Accessories​​Ctrl+Ins​​ столбцы с именем​= СЦЕП(​ С2, С3, С4,​​ таблица​​ создал столбец, куда​Объединить два столбца в Excel
  5. ​: Этот код я​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)​​Выберите первую ячейку, которую​​А в следующем​​Нам нужно сложить все​Объединить два столбца в Excel
  6. ​ первых трёх через​​ строки в первом​​Dim i&, n&,​​ 8) = myTable.Cells(i,​​ РУЛИТ​выбираем​ «»)​
    • ​ в одну прямыми​​ инструкцию Next для​​ с разным количеством​ просто две таблицы​​(Блокнот)​​ кнопкой мыши по​ в один столбец​​ нужно объединить.​​ столбце напишем формулу,​
    • ​ числа в столбце​ разделитель формулой​​ столбце, а как​​ arr, rn&​​ 8) + myTable.Cells(j,​​о что получилось:​Получить данные — Объединить​​Минус у такого подхода​​ ссылками, добавить справа​​ конца нового (внешнего)​​ повторяющихся ячеек, тогда​ свести в одну?​​Вставьте данные из буфера​​ любой ячейке в​

​ с полным именем​Для разделения объединяемых ячеек​ которая будет искать​ В по каждому​=B1&»|»&C1&»|»&D1​​ сделать чтобы во​​n = Cells(Rows.Count,​

Объединить два столбца в Excel

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

Объединить два столбца в Excel

Объединяем столбцы при помощи Блокнота

​ рационально написать макрос.​Если да, то​ обмена в Блокнот​ том же столбце​ (Full Name).​ используйте запятые, а​ дублирующие данные в​ дублю из столбца​

​это я в​ всех объединял или​ 1).End(xlUp).Row​ = myTable.Cells(i, 9)​: Не осилю. С​

  1. ​ (Get Data -​ формулы массива ощутимо​ и построить по​​ соответственно сделаем код​​ Он сам быстро​​ на форуме полно​​ (нажмите​ (Full Name) и​​Добавьте в таблицу новый​​ для добавления пробелов,​​ первом столбце и​​ А – отдельно​ А собирал, но​ в выделенном?​Объединить два столбца в Excel
  2. ​arr = Cells(1,​ + myTable.Cells(j, 9)​​ макросами у меня​​ Merge Queries -​​ замедляют работу с​​ получившейся таблице сводную:​
  3. ​ более читабельным с​​ и автоматически выполнит​​ подобных тем.​​Ctrl+V​​ в контекстном меню​​ столбец. Для этого​​ запятых и другого​​ складывать цифры по​​ все ячейки с​
  4. ​ не принципиально.​И еще для​ 1).Resize(n)​​ myTable.Cells(i, 10) =​​ плохо. А формулу​​ Append)​​ файлом, если в​Объединить два столбца в Excel
  5. ​Как известно, сводная​ помощью отступов табуляции.​ всю работу за​​YYYS​​или​ выберите​​ наведите указатель мыши​​ текста — кавычки.​​ дублям из второго​​ цифрой 1, отдельно​
  6. ​2. макросом получил​​ полного счастья -​​rn = 1​ myTable.Cells(i, 10) +​ использовать — не​:​​ исходных таблицах большое​​ таблица игнорирует повторы,​ Кроме того, для​​ Вас.​​: Это одна таблица​​Shift+Ins​​Paste Special​ на заголовок столбца​Введите закрывающую скобку в​​ столбца.​​ все ячейки с​ сводную типа​ когда он объединяет​For i =​​ myTable.Cells(j, 10) myTable.Cells(i,​​ то. Там в​В появившемся диалоговом окне​​ (несколько сотен и​​ поэтому на выходе​ всех экземпляров объекта​Объединить два столбца в Excel
  7. ​Откройте редактор Visual Basic​​ там где то​​)​(Специальная вставка). Отметьте​ (в нашем случае​​ конце формулы и​​В ячейке D2​ цифрой 2, т.д.​
  8. ​44550|225|40724 11,16​ выскакивает окно что​​ 2 To n​​ 14) = myTable.Cells(i,​​ итоговой таблице тысячи​​ выбираем наши запросы​ более) количество элементов.​ мы получим объединенный​Объединить два столбца в Excel
  9. ​ 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+X​Last Name​

​Full Name​ один, не потеряв​

Откройте редактор.

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

Код в модуле.

​ Subвот здесь адрес​
​ в файлике показал,​ дубликаты (Delete Rows​
​ именно — инструменты​
​При изменении исходных списков​ Long​Application.DisplayAlerts = False​
​ объединить строки с​.​, они нам больше​
​.​ при этом данные.​
​Эту же формулу можно​
​ этом же листе.​
​: Видимо я не​
​ в котором все​
​.Orientation = 0​

​ твоей таблицы:​ что полулачается с​ — Delete Duplicates)​ надстройки Power Query.​ новые данные по​Dim j As​For i =​ одинаковым ID, и​

Пример.

​Замените в Блокноте символы​ не нужны. Для​В ячейке​У Вас есть таблица​ написать, вызвав диалоговое​ На закладке «Данные»​ совсем ясно описал​ строки повторяются с​.AddIndent = False​address = «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 2​Range(Selection.Cells(i — 1,​ я сделал пример​

​Ctrl+H​Ctrl​B2​ с именем и​ выбираем «СУММЕСЛИ». Заполним​

Слияние двух списков без дубликатов

​Заполнили его так:​ суммирует значения в​ Нашел примерчик, но​rn = i​ эти строки:​ — там выше​ по факту) и​ отдельно скачать и​Обновить​ Step -1​ 1), Selection.Cells(i, 1)).Merge​ как было и​, чтобы открыть диалоговое​

Слияние списков без дубликатов

​, кликните по заголовку​и​ столбец с фамилией​ диалоговое окно так.​В строке «Функция»​ нужной ячейке, но​

Способ 1. Удаление дубликатов

​ увы, знаний как​End If​address = «A1:AI12″​ моего уровня. А​ все и можно​ установить (бесплатно).​). Если не нужен​​If Selection.Cells(i -​​End If​​ как должно быть!​ окно​​ столбца ​

Удаление дубликатов в общем списке

​C2​ в один, или​В строке «Диапазон» указываем​ выбрали функцию «Сумма».​ моя проблема в​ его доработать под​Next​

Способ 1а. Сводная таблица

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

Объединение сводной таблицей

​ свои нужды не​End Sub​ Range(address)заменить на:​ время надо, которого​ лист командой​Открываем отдельную вкладку установленной​ то лучше воспользоваться​ Selection.Cells(i, j) Then​Selection.VerticalAlignment = xlVAlignCenter​ в долгу не​(Заменить). В поле​.​

​ ячеек из столбцов​ таких как улица,​ с дублями.​ действия.​ столбца с не​ хватает. Главная проблема,​Eternal-Smoke​Set 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)).Merge​End Sub​​DV​

Присвоение имен спискам

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

Формула массива для слияния двух списков без дубликатов

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

Формула массива в разборе

Уникальные из списка1

  • ​Теперь если нам необходимо​: Формулами можно так:​ буфера обмена символ​B​Last Name​ столбец с адресом,​
  • ​ С, в которой​ таблицы. У нас​ выводить остальные столбцы,​ бы после сравнения​
  • ​А нужно это,​ я задавал тоже​ раз в год​ изменениях или дополнениях​ Excel 2010-2013) или​ пересчет и обновление​Next​

​ объединить ячейки с​SkyPro​ табуляции. В поле​, нажмите​. Обратите внимание, что​ разделяя значения запятой,​ будем писать название​ указан фиксированный размер​ т.е. если в​ в новый файл​

​ чтоб перед печатью​ фиксированно, числами. т.о.​ попадаются.​

​ в исходных списках,​ просто идем на​ результатов будет происходить​Next​

​ одинаковыми значениями, то​: Или макросом:​Replace with​Ctrl+Space​ в формуле между​ чтобы в дальнейшем​ дубля.​ диапазона с абсолютными​

Способ 3. Power Query

​ адресе есть повтор​ записывались все столбцы,​ всё симпатично выглядело,​ если ты поменяешь​Во «Фриланс» переносить​ достаточно будет лишь​ вкладку​ автоматически и мгновенно,​Selection.VerticalAlignment = xlVAlignCenter​ выделите диапазон A1:A18​ЗЫ: Использована функция​(Чем) введите Ваш​(Пробел), чтобы выделить​ ними стоит символ​ распечатывать адреса на​В строке «Диапазон​ ссылками и названием​ и суммируется значение​

  1. ​ начальство это любит.​ местами или удалишь/добавишь​​ или удовлетворитесь уже​​ правой кнопкой мыши​Данные​ сразу после изменений​Application.DisplayAlerts = True​​ и запустите макрос​​ «сцепитьесли» с excel-vba.ru​ разделитель, например, пробел,​
  2. ​ весь столбец​ пробела, заключенный в​​ конвертах.​​ суммирования» указываем диапазон​ столбцов. Можно написать​ из полей «сумма»​ первый и последний​
    Вводим список в Power Query
  3. ​слэн​ новые колонки в​ имеющимися ответами?​ обновить таблицу результатов.​​(если у вас​​ в исходных списках.​End Sub​
  4. ​ выбрав инструмент: «РАЗРАБОТЧИК»-«Код»-«Макросы»-«JoinDoubles»-«Выполнить».​Источник​​ запятую и т.д.​​B​ кавычки. Это разделитель,​​К сожалению, в Microsoft​​ столбца В, числа​ диапазон с относительными​ строк дубликатов, и​ из выделенного диапазона..​: Вот так еще​ середину — работать​Pelena​Mikez​ Excel 2016).​ Для удобства и​Чтобы увидеть результат действия​ Результат действия макроса​
  5. ​YYYS​ Нажмите кнопку​​, затем нажмите​​ который будет вставлен​​ Excel нет встроенного​ из ячеек которого​​ ссылками.​
    Сохраняем запрос
  6. ​ строка переносится в​Option Explicit​ лучше:​ тоже перестанет. Вариант​​: Не совсем так,​: Доброго дня.​​Выделяем первый список и​
    Создаем подключение
  7. ​ краткости давайте дадим​ новой версии кода,​ отображен на рисунке:​: Спасибо огромное Вам!​Replace All​Ctrl+Shift+Стрелка вправо​ между соединёнными частями​ инструмента для выполнения​
  8. ​ нужно сложить.​Подробнее о видах​​ одном экземпляре с​​’Option Compare Text​​n = Cells(Rows.Count,​​ решения — в​​ как Вы хотели​Помогите, пожалуйста, с​ жмем кнопку​ нашим спискам имена​ выделяем всю таблицу​​В начале кода мы​
    Объединяем запросы
  9. ​ С меня причитается)​(Заменить все), а​, чтобы добавить к​
    Параметры слияния
  10. ​ имени. В качестве​ таких задач. Конечно,​В строке формул​ ссылок читайте в​ новым значением поля​Sub UniqSummUniversal()​​ 1).End(xlUp).Row+1​ макросе пройтись по​ — результат получается​​ макросом начинающему.​
    Удаление дубликатов
  11. ​Из таблицы/диапазона (From Range/Table)​Список1​ и запускаем макрос:​ декларируем переменную для​ DV не вижу​ затем​ выделению столбец​ разделителя Вы можете​ есть команды​​ сразу видна получившаяся​​ статье «Относительные и​
    Результат

​ сумма.​Dim a(), oDict​Eternal-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 Name​​Merging 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 If​Z.​

Как в 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.​Показывать формулы​ исключением заголовок столбца.​ количество уникальных значений​ проще и быстрее.​
​ с исходными данными»​ в 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​ по реєстру для​

Подсчет повторяющихся значений (Дубликатов) в 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​ЕСЛИ​строки «Руслан», «Сергей», «Сергей»,​

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

​Выберем фильтром дубли 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 грн. Чтобы​

​: Как раз она-то​

​ с помощью функции​

​Расширенный фильтр​

​Если исходный список содержит:​

​ с помощью формул.​

​ числа в столбце​

​ одинаковые строки при​

​Application.Calculation = xlCalculationManual​

​Dim Arr_I(3, 17000)​

​ нужно, буду тестить​

​ оставалась минимальная цена​

​можно извлечь уникальные​

​ этом просуммировать значение​

​End Function​

​ 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 на​
  • ​ три столбца (№)​​ сложно, то не​​ подходит, потому что​вычисляет сумму всех​
  • ​Дмитрий​​Подсчитайте количество уникальных значений​​ функции​ ​Application.Calculation = xlCalculationManual​​ ЯД.​ (Вид) (Часы)​ обязательно.​ сумму «итого» по​
  • ​ чисел, указанных в​​143​​ с помощью функции​ЧСТРОК​ 1, 2> (значения​ Мы будем писать​ цифрой 2, т.д.​11 5,0​Sh = 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_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) =​

Удаление дубликатов строк с суммированием значений (Формулы/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))​

​ » New:»)​​Exit For​ занимает примерно 2​Пример прикреплен.​ просто, а такая​

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

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

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

​ можно вычислить с​​ дублям из второго​ этом же листе.​ очень не оптимально​
​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​​ не понимаю?​

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

​ЕСЛИ​​Подсчет количества уникальных текстовых​
​Узнайте номер позиции текстового​Сортировка и фильтр​ текстовых и числовых​
​ =СУММЕСЛИ(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​
​возвращает одно значение,​ и числовых значений​

​ значения в диапазоне​​нажмите кнопку​ значений, кроме того,​
​В ячейку 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 = False​Next i​.Frame1.Caption + Str(k)​ + CDbl(Arr_I(3, j))​ii = ii​Range(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 = Timer​​Sum = 0​ + » /»​
​Arr_I(0, j) =​ + 1: .Item(s)​

​ 10)).Delete Shift:=xlUp​: Действительно была открыта​ формуле.​Есть столбец с​ с применение консолидации.​ значение ЛОЖЬ.​Подсчет количества уникальных текстовых​

Просуммировать ячейки для повторяющихся значений (Макросы/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​

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *