Невозможно удалить ячейки с помощью Excel VBA

Question

У меня есть данные на листе Excel. Четыре столбца объединены ячейками. Мне нужно объединить два столбца («A» и «D») и поместить данные в необработанные ячейки на основе определенных условий. Моя попытка удалить конкретный столбец с использованием следующего кода не вывела ячейки и не выдало сообщение об ошибке

If sheet5.Range("A1", "A2783").MergeCells Then 
sheet5.Range("A1", "A2783").MergeCells.UnMerge

Тогда я попробовал это

If ActiveSheet.Cells.MergeCells Then 
sht.Cells.UnMerge

но это также не привело к слиянию ячеек или сообщению об ошибке.

Любые указатели, пожалуйста?

Answer 1

Оба предложения выше работали. Но мне пришлось скопировать данные в новую рабочую книгу и запустить код. Видимо были некоторые ограничения на оригинальную рабочую книгу

Answer 2

Вы хотите установить для свойства MergeCells значение False:

sheet5.Range("A1", "A2783").MergeCells = False