|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.03.2019, 04:25 | #1 |
Новичок
Джуниор
Регистрация: 24.03.2019
Сообщений: 3
|
Макрос объединения ячеек с одинаковыми данными с условием
Добрый день!
Помогите пожалуйста с макросом. Есть несколько перевозок которые попадаются на одно время. Надо объединить перевозки дату относительно перевозке. Файл во вложении. Желательно чтоб это объединение было фиксировано на 2 столбца но с возможностью выбора диапазона выделением. Нашла макрос с такой возможностью, но он просто объединяет все похожие ячейки. Sub MergeSameCell() 'Updateby20131127 Dim Rng As Range, xCell As Range Dim xRows As Integer xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Application.ScreenUpdating = False Application.DisplayAlerts = False xRows = WorkRng.Rows.Count For Each Rng In WorkRng.Columns For i = 1 To xRows - 1 For j = i + 1 To xRows If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then Exit For End If Next WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge i = j - 1 Next Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Последний раз редактировалось Haney; 24.03.2019 в 04:29. |
24.03.2019, 18:49 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Такой вариант не годится? Код UDF есть где-то на форуме.
webmoney: E265281470651 Z422237915069 R418926282008
|
24.03.2019, 19:47 | #3 |
Новичок
Джуниор
Регистрация: 24.03.2019
Сообщений: 3
|
К сожалению нет. В одной перевозке больше 1й накладной может быть. И у каждой накладной должна быть своя строчка
|
24.03.2019, 22:40 | #4 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Пробуйте, работает с произвольным числом столбцов
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
25.03.2019, 00:23 | #5 | |
Новичок
Джуниор
Регистрация: 24.03.2019
Сообщений: 3
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос для объединения ячеек | Lynx_by | Microsoft Office Excel | 1 | 22.08.2017 11:17 |
Сравнение текстовых(строковых) (строк,ячеек)массивов - с одинаковыми данными но по разному написанными! | redyps | Microsoft Office Excel | 1 | 28.07.2013 15:58 |
макрос для объединения ячеек | BAP9IT | Microsoft Office Word | 2 | 15.11.2012 19:43 |
Макрос для объединения одинаковых ячеек | Internal2 | Microsoft Office Excel | 2 | 05.11.2009 14:00 |
Группировка в строку ячеек с одинаковыми данными | Vanot | Microsoft Office Excel | 2 | 24.08.2009 01:01 |