Excel VBA Если ячейка в столбце U пуста, введите текст «600SUB»

Question

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

В столбце U, если ячейка пуста, мне нужно ввести «600SUB»

Тогда мне нужно запустить остальные макросы.

Любая помощь будет принята с благодарностью.

Спасибо

Answer 1

Используйте SpecialCells, чтобы найти и заполнить действительно пустые ячейки.

with worksheets(1)
    on error resume next
    intersect(.usedrange, .range("U:U")).specialcells(xlcelltypeblanks) = "600SUB"
    on error goto 0
end with

'run rest of procedures