Объединение ячеек при вставки в разных диапазонах

[Guren]

Здравствуйте! Очень нужна Ваша помощь...при создании макроса... Буду благодарна любой помощи)))
2.JPG

[SAS888]

Например, объедининие ячеек для столбца "A", начиная с ячейки "A1" и заканчивая последней заполненной ячейкой, можно сделать так:

Sub qq()
    Dim i As Integer, x As Range: Set x = [A1]
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If x.Cells(1, 1) = Cells(i, 1) Then
            Set x = Union(x, Cells(i, 1)): x.Merge
        Else: Set x = Cells(i, 1)
        End If
    Next
End Sub

Для остальных столбцов аналогично.

[Guren]

Спасибо за ответ))). Подскажите, пожалуйста, а как этот код (макрос) сделать автоматическим, т.е. при открывание ехселя или вставки(какого-то значения в ячейку)?

[Guren]

Сообщение от SAS888

Например, объедининие ячеек для столбца "A", начиная с ячейки "A1" и заканчивая последней заполненной ячейкой, можно сделать так:

Sub qq()
    Dim i As Integer, x As Range: Set x = [A1]
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If x.Cells(1, 1) = Cells(i, 1) Then
            Set x = Union(x, Cells(i, 1)): x.Merge
        Else: Set x = Cells(i, 1)
        End If
    Next
End Sub

Для остальных столбцов аналогично.

Спасибо за ответ))). Подскажите, пожалуйста, а как этот код (макрос) сделать автоматическим, т.е. при открывание ехселя или вставки(какого-то значения в ячейку)?

[SAS888]

Посмотрите пример во вложении. Не знаю, на сколько правильно я понял Вашу задачу.
При открытии файла, в контекстном меню ячейки рабочего листа добавится опция "Моя вставка". Для вставки скопированного диапазона будут доступны стандартные средства ("Вставить" и "Специальная вставка..."), а также добавленная "Моя вставка", применив которую, будет выполнен макрос объединения ячеек во всех столбцах вставленного диапазона.
При каждой деактивации (закрытии) этой книги контекстное меню будет возвращаться к исходному виду. При каждой активации (открытии) - дополнительная опция будет вновь появляться в контекстном меню ячейки.

[Guren]

Сообщение от SAS888

Посмотрите пример во вложении. Не знаю, на сколько правильно я понял Вашу задачу.
При открытии файла, в контекстном меню ячейки рабочего листа добавится опция "Моя вставка". Для вставки скопированного диапазона будут доступны стандартные средства ("Вставить" и "Специальная вставка..."), а также добавленная "Моя вставка", применив которую, будет выполнен макрос объединения ячеек во всех столбцах вставленного диапазона.
При каждой деактивации (закрытии) этой книги контекстное меню будет возвращаться к исходному виду. При каждой активации (открытии) - дополнительная опция будет вновь появляться в контекстном меню ячейки.

Здравствуйте! Я нашла пример, то что мне надо сделать, но там нет кодов...не подскажете как можно сделать....
А как сделать так.rar

[SAS888]

В Вашем файле применено условное форматирование. Выберите ячейку из диапазона (например "A2") и посмотрите какие применены условия и форматы.

[Guren]

Сообщение от SAS888

В Вашем файле применено условное форматирование. Выберите ячейку из диапазона (например "A2") и посмотрите какие применены условия и форматы.

Здравствуйте! Не подскажите, как на весь столбец сделать такое условное форматирование?

[SAS888]

Попробуйте выделить требуемый столбец, задать условное фориатирование с условием по формуле "=И(A2=A1;A2<>"")". Формат на шрифт, границы и вид задайте те же, что и в примере Вашего файла. Но, пусть лучше наши "формулисты" подскажут...
И еще:
Во-первых, при условном форматировании ячейки не объединяются. А Вы просили "объединить". Т.е. моя работа прошла впустую...
Во-вторых, подумайте, нужно ли Вам такое количество ячеек с условным форматированием?
В-третьих, макрос позволяет вставлять и объединять ячейки в произвольный диапазон. В то время как условное форматирование устанавливается для фиксированного диапазона.

[Guren]

Сообщение от SAS888

Попробуйте выделить требуемый столбец, задать условное фориатирование с условием по формуле "=И(A2=A1;A2<>"")". Формат на шрифт, границы и вид задайте те же, что и в примере Вашего файла. Но, пусть лучше наши "формулисты" подскажут...
И еще:
Во-первых, при условном форматировании ячейки не объединяются. А Вы просили "объединить". Т.е. моя работа прошла впустую...
Во-вторых, подумайте, нужно ли Вам такое количество ячеек с условным форматированием?
В-третьих, макрос позволяет вставлять и объединять ячейки в произвольный диапазон. В то время как условное форматирование устанавливается для фиксированного диапазона.

Ваша работа не прошла впустую!!! Мне этот макрос помог только по одному столбцу по нажатию enter, а мне надо чтобы сразу обновлялись несколько столбцов...например А, В, К,Е
Нужно объединить весь столбец диапазона конкретного нет.....заранее не знаю количество строк....
Значит условное форматирование мне не поможет....или я не правильно понимаю?