[Iska]

blackeangel, что-то не соображу. Образец Рабочей книги в архиве приложите, на одном рабочем листе — пример исходника, на другом — полученный с примера результат.

[blackeangel]

Вот там 2 листа

[Iska]

blackeangel, это может выглядеть примерно так:

Скрытый текст

Код:

Option Explicit

Sub Sample()
    Dim i As Integer
    Dim objRange As Range
    Dim PrevValue As Variant
    Dim objRange4Union As Range
    
    
    Application.DisplayAlerts = False
    
    With ActiveSheet.UsedRange
        With .Columns.Item(1).Cells
            Set objRange4Union = .Item(2, 1)
            PrevValue = objRange4Union.Value
        End With
            
        For i = 3 To .Rows.Count
            Set objRange = .Columns.Item(1).Cells.Item(i, 1)
            
            If PrevValue = objRange.Value Then
                Set objRange4Union = Union(objRange4Union, objRange)
            Else
                With objRange4Union
                    With .Offset(0, 1)
                        .UnMerge
                        .Merge
                        
                        .HorizontalAlignment = xlCenter
                        .VerticalAlignment = xlCenter
                    End With
                    
                    With .Offset(0, 2)
                        .UnMerge
                        .Merge
                        
                        .HorizontalAlignment = xlCenter
                        .VerticalAlignment = xlCenter
                    End With
                End With
                
                Set objRange4Union = objRange
            End If
            
            PrevValue = objRange.Value
        Next i
    End With
    
    With objRange4Union
        With .Offset(0, 1)
            .UnMerge
            .Merge
            
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
        
        With .Offset(0, 2)
            .UnMerge
            .Merge
            
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    End With
    
    Application.DisplayAlerts = True
End Sub

[blackeangel]

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

[Iska]

blackeangel, чтобы мы продолжили понимать друг друга — от Вас новая рабочая книга с иллюстрацией:

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

[Iska]

в текущем коде ничего непонял. »

Там достаточно просто.

Работаем с первым столбцом использованного диапазона (.UsedRange) активного рабочего листа (ActiveSheet). Предполагаем, что данные тупо расположены с первой же ячейки и имеют заголовки столбцов. Посему начинаем с того, что диапазону для объединения (objRange4Union) присваиваем диапазон, состоящий из ячейки A2, и запоминаем значение из той же самой ячейки A2. Далее перебираем все строки из первого столбца от третьей строки до последней строки использованного диапазона.

Если значение в очередной ячейке совпадает с запомненным значением (из ячейки выше) — включаем в диапазон для объединения эту ячейку (путём операции Union() над ним самим и этой самой очередной ячейкой).

Если не совпадает — то на всякий случай сначала проводим разъединение ячеек, расположенными в столбце правее (.Offset(0, 1)) диапазона для объединения (objRange4Union), затем объединение этих ячеек, делаем выравнивание содержимого. Ту же операцию проделываем с ячейками, расположенными на два стобца правее (.Offset(0, 2)) диапазона для объединения. Наконец, начинаем заново собирать новый диапазон для объединения, начиная с текущей очередной ячейки.

После завершения проверки условия в конце цикла запоминаем в переменной значение текущей очередной ячейки и повторяем весь цикл.

По завершении цикла нам остаётся повторить операции объединения над текущим вычисленным диапазоном для объединения.

[blackeangel]

Iska, ну в общем всё на самом деле просто.необходима функция, котороя обьединяла бы любые ячейки в столбцах в указанном порядке. Пример вызова функции какой то такой
Функция(1,5,7,9,12,3)
Если подается нулевое значение, значит столбец пропускаем.
И ещё один момент, объединенять ячейки надо только с повторяющимися значениями.

[blackeangel]

Вот пример второй чтоб понятнее стало

[Iska]

Пример вызова функции какой то такой Функция(1,5,7,9,12,3) »

Что это должно означать?

Если подается нулевое значение, значит столбец пропускаем. »

Куда? Пример «подачи».

И ещё один момент, объединенять ячейки надо только с повторяющимися значениями. »

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