Удалить все гиперссылки, картинки из Эксель код макроса Перед любым действием рекомендуется обязательно сделать архивную копию вашего файла, чтобы при необходимость восстановиться с нее, а не создавать файл заново. 1) Удалить все гиперссылки из Эксель excel: - создать макрос с кодом: For Each sh In ThisWorkbook.Worksheets sh.Hyperlinks.Delete Next - Выполнить макрос. 2) Удалить все картинки на активном листе из Эксель excel, код макроса: For Each pic In ActiveSheet.Shapes If pic.Type = msoPicture Then pic.Delete Next pic 3) Цикл по ячейкам колонки листа Эксель, пример: Можно выделить часть текста из ячейки, например удалить пробелы в нужном месте и т.д. Пример (просто алгоритм, для конкретной реализации подставлять ваши функции): ncol = 7 For i = 3 To 100 'cells(i, ncol) = функция(cells(i, ncol)) Next Где функция - нужная в данный момент операция над ячейкой, например Left, Mid, Right, Len Пример: ncol = 3 NumbDelSymFromLeft = 1 'сколько удалить слева NumbDelSymFromRight = 3 'сколько удалить справа For i = 1 To 50 'Cells(i, ncol) = Right(Cells(i, ncol), Len(Cells(i, ncol)) - NumbDelSymFromLeft) 'удаляем СЛЕВА Cells(i, ncol) = Left(Cells(i, ncol), Len(Cells(i, ncol)) - NumbDelSymFromRight) 'удаляем СПРАВА Next ИЗМЕНЕНИЕ В ПРОЦЕНТАХ (ПРИРОСТ/УМЕНЬШЕНИЕ) 100 * (Новое значение – Старое значение) / Старое значение = Изменение в процентах 100*(B-A)/A = Изменение в процентах |