Удалить все гиперссылки, картинки из Эксель код макроса

Перед любым действием рекомендуется обязательно сделать архивную копию вашего файла, чтобы при необходимость восстановиться с нее, а не создавать файл заново.


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

4) Процент в эксель:
ИЗМЕНЕНИЕ В ПРОЦЕНТАХ (ПРИРОСТ/УМЕНЬШЕНИЕ)
100 * (Новое значение – Старое значение) / Старое значение = Изменение в процентах
100*(B-A)/A = Изменение в процентах