Вадим Озем (Автор тем)

VBA вставка формулы, Не понимаю как вставить формулу через VBA для всего столбца

Вадим Озем Пользователь Сообщений: 12 Регистрация: 22.11.2021	# 23.11.2021 12:33:18 Не понимаю как вставить формулу через VBA для всего столбца Пример во вложении. Вот нужно чтобы в столбец С вставлялась формула через макрос, а не руками А так же добавлялась строка итоги так же с формулой
	Перейти

Удалять строки с текстом, который не подходит условию.

Вадим Озем

Пользователь

Сообщений: 12 Регистрация: 22.11.2021

22.11.2021 07:56:08

Есть код который удаляет текст по условию из столбца А, но нужно чтобы удалялся весь текст который не подходит условию. Не знаю пробовал изменить, но не получается

Код

Dim ra As Range, delra As Range
Application.ScreenUpdating = False
Удалить = Array("Астрахань*", "Волгоград*", "Рязань_*", "Саранск_*", "Итого*")
For Each ra In ActiveSheet.UsedRange.Rows
For Each word In Удалить
If Not ra.Find(word, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next word
Next
If Not delra Is Nothing Then delra.EntireRow.Delete

Перейти