Здравствуйте ! Подскажите пожалуйста. Как применить формат ячейке В1 к тем ячейкам что ниже? Дело в том что в ворде при слиянии 9 есть, а 10 нет пишет 0. В ручную избавляться от формулы и в каждой ячейке менять формат ячейке очень долго и неудобно, т.к. в каждую ячейку нужно заходить через f2.
Sub format()
ActiveSheet.Range("B1").Copy
ActiveSheet.Range("B2:B6").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Dobepman,они и не равняются в1. макрос копирует ячейку в1 и вставляет только формат в диапазон. Проблема в том, что у вас диапазон это формулы в текстовом формате в виде цифр. После работы макроса и не видно изменений. Вы просили макрос, который изменит формат В2:В6 на формат В1 - я дал вам именно такой макрос.