Диапазон для очистки данных

Question

Кажется, что это должно быть просто, но я получаю коды ошибок весь день: У меня есть данные, которые я пытаюсь очистить до графика (он экспортируется из удерживающей системы, которая когда-то оставляет «пустые» ячейки, фактически не пустые). Итак, я подумал, что могу запустить формулу «IsNumeric», чтобы получить значения TRUE/FALSE, но теперь я столкнулся с проблемой замены существующих не-пробелов, которые выглядят как пустые значения по моему выбору.

Все данные в колонке А, а затем столбец B имеет TRUE/FALSE формула работает:

=ISNUMBER(A1) 'from rows 1 to 4378 

Я надеюсь, чтобы иметь возможность иметь макро запись в колонке C-то вдоль этих линий (по крайней мере, это лучшее, что я придумал, но он не работает):

Sub WayEatFresh() 

Dim dbsheet As Worksheet 

Set dbsheet = ThisWorkbook.Sheets("Sheet2") 

lr = dbsheet.Cells(Rows.Count,1).End(xlUp).Row 

For x = 1 To lr 

If dbsheet.Range(x,2).Value = True Then 
    dbsheet.Range(x,3).Value = dbsheet.Range(x,1).Value 
Else dbsheet.Range(x,3).Value = 0 
End If 

Next x 

End Sub 

Я не знаю, как исправить ошибку времени выполнения «„1004“: Метод„Range“из object'_Worksheet «не удалось».

Любые указатели?

---

Редактирование исходного кода в соответствии с предложениями, предусмотренных @nwhaught, я добавил несколько вещей в коде, и сейчас работает. Вот окончательные итерации (любое объяснение того, почему это работало над другой версией приветствуются!):

Sub WayEatFresh() 

Dim x As Integer 

With ThisWorkbook 

For x = 1 To 4378 

If Cells(x, 2).Value = True Then 
Cells(x, 3).Value = Cells(x, 1).Value 

Else 
Cells(x, 3).Value = 0 

End If 

Next x 

End With 

End Sub 

Answer 1

Вы используете Cells обозначения в вашем Range.

Cells имеет форму ([RowNumber],[ColNumber]).

Range имеет форму ([CellAddress],[CellAddress]) или (Cells(1,1),Cells(1,2)).

Для вашего кода я бы рекомендовал заменить Range s на Cells.