VBA: Замена пробелов пробелами?

Question

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

колонна имеет около 300 000 строк, но я хочу, чтобы запустить цикл только тогда, когда у меня есть фактические значения (В этом случае 4 раза вместо 300 000).

Есть ли какие-либо предложения по этому поводу, избегая петли 300 000 раз?

Я попытался с помощью функции замены, заменив все пробелы пустым, а затем подсчитать количество не пустых ячеек с помощью COUNTA:

'Replacing all spaces in a column by blanks 
Workseets("Sheet6").Range("D:D") = Replace(Worksheets("Sheet6").Range("D:D")," ","") 
'counting non-blank cells 
n = WorksheetFunction.CountA(Worksheets("Sheet6").Range("D:D")) 
'running code only 4 times 
for I = 1 to n..... 

Но я получаю ошибку несоответствия типов для функции замены. Я еще ничего не написал для FOR Loop. В настоящее время просто пытается правильно использовать функцию REPLACE

Answer 1

Ваша попытка использует функцию String.Replace и вызывает ошибку несоответствия, потому что вы передаете вариант/диапазон функции, которая ожидает строку.

'Replacing all spaces in a column by blanks 
Workseets("Sheet6").Range("D:D") = Replace(Worksheets("Sheet6").Range("D:D")," ","") 

Решение состоит в том, чтобы использовать метод Range.Replace, вместо этого. Назначение не требуется, метод работает над объектом диапазона, который его вызывает. Это копирует значения непосредственно и заменяет собой пустую строку

'Replacing all spaces in a column by blanks 
With Worksheets("Sheet6").Range("D:D") 
    .Value = .Value2 
    .Replace " ", "", xlWhole 
End With 

Answer 2

Вы должны использовать метод Intersect урезать диапазон вплоть до фактических используемых клеток.

With Worksheets("Sheet6") 

    Intersect(.Range("D:D"), .UsedRange).Replace " ", "" 

End With