🔥 Свойство Merge объекта Range

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

📌 Примеры:

1️⃣ Объединить ячейки от A1 до C1:

Range("A1:C1").Merge  

🔹 Ячейки A1, B1, и C1 будут объединены в одну ячейку.

2️⃣ Проверить, объединены ли ячейки:

If Range("A1:C1").MergeCells Then  
    MsgBox "Ячейки объединены!"  
Else  
    MsgBox "Ячейки не объединены!"  
End If  

🔹 Проверит, объединены ли ячейки в диапазоне, и выведет сообщение.

3️⃣ Разобрать объединённые ячейки:

Range("A1:C1").UnMerge  

🔹 Разделяет ячейки, если они были объединены.

4️⃣ Объединить несколько строк в одной колонке:

Range("A1:A3").Merge  

🔹 Ячейки A1, A2 и A3 будут объединены в одну ячейку.

💡 Важно помнить, что объединение ячеек работает только с диапазонами прямоугольной формы (не с произвольно расположенными ячейками).

#VBA #ExcelVBA #Range #Merge #UnMerge #Объединение

🔄 Метод UnMerge объекта Range
Метод UnMerge используется для разъединения ранее объединенных ячеек в указанном диапазоне. Он выполняет обратное действие методу Merge.

📌 Примеры

1️⃣ Разъединить объединенные ячейки:

Sub UnMergeRange()
'    Range("A1:D5").Merge
    Range("A1:D5").UnMerge
End Sub

2️⃣ Отмена объединения по одной ячейке:

Sub UnMergeSingleCell()
'    Range("A1:D5").Merge
    Range("A1").UnMerge
End Sub

Разъединены будут все ячейки, составляющие объединенную ячейку.

3️⃣ Разъединить все объединенные ячейки на активном листе:

Sub UnMergeAll()  
    ActiveSheet.Cells.UnMerge  
End Sub  

4️⃣ Разъединить объединенные ячейки и заполнить их значением верхней левой ячейки:

Sub UnMergeAndFill()
    Dim rng As Range, addr As String, val As Variant
    For Each rng In ActiveSheet.UsedRange
        If rng.MergeCells Then
            addr = rng.MergeArea.Address  ' Сохраняем адрес объединенной области
            val = rng.Cells(1, 1).Value  ' Сохраняем значение из первой ячейки
            rng.UnMerge  ' Разъединяем ячейки
            Range(addr).Value = val  ' Вставляем сохраненное значение во все ячейки
        End If
    Next rng
End Sub

⚠️ Важно
🔹 Если объединенная ячейка содержала данные, после UnMerge значение останется только в верхней левой ячейке, а остальные станут пустыми. Если хотите сохранить данные во всех разъединенных ячейках, используйте пример 4.

💡 Когда использовать?
✅ При подготовке данных для работы (объединенные ячейки могут мешать обработке).
✅ Перед выполнением операций копирования, вставки или сортировки.
✅ Для автоматической очистки листов от объединений.

#VBA #ExcelVBA #UnMerge #Range #ОбъединенныеЯчейки