Здравствуйте. Как найти ячейки с одинаковыми значениями в столбце и объединить ячейки, с записью в ячейку значения. Сводные табл. пробовал, результат не радует. подскажите формулу или макрос. Спасибо.
Здравствуйте. Как найти ячейки с одинаковыми значениями в столбце и объединить ячейки, с записью в ячейку значения. Сводные табл. пробовал, результат не радует. подскажите формулу или макрос. Спасибо.permanent
мне нужен результат немного другой результат: ячейки с одинаковыми значениями в столбце, форматированием объединить ячейки, с записью в форматированную объединением ячейку значения. Сводная не форматирует (объединяет), по крайней мере я не нашел как это сделать. Можно конечно ручками объединять, но несколько сотен строк как-то не вдохновляют.
мне нужен результат немного другой результат: ячейки с одинаковыми значениями в столбце, форматированием объединить ячейки, с записью в форматированную объединением ячейку значения. Сводная не форматирует (объединяет), по крайней мере я не нашел как это сделать. Можно конечно ручками объединять, но несколько сотен строк как-то не вдохновляют.permanent
Sub sdf() Application.ScreenUpdating = 0: Application.DisplayAlerts = 0 Dim Rng As Range, Rng2 As Range Dim i&, j&, r& With ThisWorkbook.Worksheets("Лист1") r = .Cells(.Rows.Count, 2).End(xlUp).Row Set Rng = .Range("B2:B" & r) i = 1 Do While i < r - 1 Do While Rng.Cells(i).Offset(j) = Rng.Cells(i) j = j + 1 Loop If j - 1 Then Set rng2 = .Range(Rng.Cells(i), Rng.Cells(i).Offset(j - 1)) rng2.Merge i = i + j Else Set rng2 = Rng.Cells(i) i = i + 1 End If With rng2.Borders .LineStyle = xlContinuous .ColorIndex = 0 .Weight = xlMedium End With Loop End With Application.DisplayAlerts = 1 End Sub
[/vba]
[vba]
Код
Sub sdf() Application.ScreenUpdating = 0: Application.DisplayAlerts = 0 Dim Rng As Range, Rng2 As Range Dim i&, j&, r& With ThisWorkbook.Worksheets("Лист1") r = .Cells(.Rows.Count, 2).End(xlUp).Row Set Rng = .Range("B2:B" & r) i = 1 Do While i < r - 1 Do While Rng.Cells(i).Offset(j) = Rng.Cells(i) j = j + 1 Loop If j - 1 Then Set rng2 = .Range(Rng.Cells(i), Rng.Cells(i).Offset(j - 1)) rng2.Merge i = i + j Else Set rng2 = Rng.Cells(i) i = i + 1 End If With rng2.Borders .LineStyle = xlContinuous .ColorIndex = 0 .Weight = xlMedium End With Loop End With Application.DisplayAlerts = 1 End Sub
Здравствуйте, судя по всему я с похожей проблемой - есть исходные данные (на несколько тысяч строк, в примере все сокращено), в каждой ячейке есть информация, и где она повторяется - эти ячейки надо объединить, как в примере в файле. Усложняется это тем, что получается как бы матрешка - сначала один столбец надо проверить, потом второй и др., а в конце ещё выдать цифру по повторяющимся наименованиям для каждой работы. Самое оптимальное было бы составить сводную таблицу, но почему-то одно и то же слово оно видит по-разному. Перебивала в ручную, смотрела фильтр, делала автозамену - но результат тот же..
Здравствуйте, судя по всему я с похожей проблемой - есть исходные данные (на несколько тысяч строк, в примере все сокращено), в каждой ячейке есть информация, и где она повторяется - эти ячейки надо объединить, как в примере в файле. Усложняется это тем, что получается как бы матрешка - сначала один столбец надо проверить, потом второй и др., а в конце ещё выдать цифру по повторяющимся наименованиям для каждой работы. Самое оптимальное было бы составить сводную таблицу, но почему-то одно и то же слово оно видит по-разному. Перебивала в ручную, смотрела фильтр, делала автозамену - но результат тот же.. Белёй