В VBA у меня есть несколько наборов строк в столбце, для каждой строки в столбце мне нужно найти строку без правильной функции, пробела и специального символа.

Question

Sub NameFilt()

Dim Myrange As RangeDim i As Integer

Установите Myrange = Application.InputBox(подсказка: = «Выберите имена IPT», заголовок: = «ФИЛЬТРАЦИЯ ИМЯ», тип: = «8»)

Для каждой ячейки в Myrange

Если Excel.WorksheetFunction.Proper(Myrange.Value) Тогда

       Cells(i, 8).Value = Excel.WorksheetFunction.Proper(Myrange.Value)
 
 i = i + 1
 

Еще

      Myrange.Interior.Color.vbBlue

Конец, если

Следующая ячейка

Конец сабвуфера