SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Только не забудьте - отменить действие макроса НЕВОЗМОЖНО!!! Поэтому, не забудьте сохраниться перед выполнением (чтобы потом можно было закрыть без сохранения) Код: Sub RemoveAllApostrophe() Dim MaxRow, MaxCol As Long MaxRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row MaxCol = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column Range(Cells(1, 1), Cells(MaxRow, MaxCol)).Formula = Range(Cells(1, 1), Cells(MaxRow, MaxCol)).Formula End Sub | |