Всем привет, столкнулся со следующей ситуацией:
работаю с выгрузками из 1с в xlsx формате, в выгрузках чаще всего ячейки объединенные, приходится разъединять вручную
недавно освоил vba, хотел написать функцию, которую буду вызывать при работе с нужным листом и она будет разъединять все ячейки
написал такой код, но он не работает:
Sub unmerge_sheet_sub()
Dim r As Range
Set r = ActiveSheet.Cells
r.Select
Selection.UnMerge
MsgBox Range("a1") // для проверки, что процедура запускается при вызове из функции, действительно запускается
End Sub
Function unmerge_sheet()
Call unmerge_sheet_sub
End Function
какое решение есть для такой ситуации?
работаю с выгрузками из 1с в xlsx формате, в выгрузках чаще всего ячейки объединенные, приходится разъединять вручную
недавно освоил vba, хотел написать функцию, которую буду вызывать при работе с нужным листом и она будет разъединять все ячейки
написал такой код, но он не работает:
Sub unmerge_sheet_sub()
Dim r As Range
Set r = ActiveSheet.Cells
r.Select
Selection.UnMerge
MsgBox Range("a1") // для проверки, что процедура запускается при вызове из функции, действительно запускается
End Sub
Function unmerge_sheet()
Call unmerge_sheet_sub
End Function
какое решение есть для такой ситуации?
Excel 2021 LTSC