Как запустить цикл вниз, пока ячейки справа не станут пустыми - VBA excel

Question

Я запускаю цикл, который вводит формулу, копирует ее, затем переходит на следующую строку, проверяет, являются ли две ячейки справа пустыми, если они есть, то ничего не делаем.Если они вообще содержат что-либо, вставьте формулу (слово «истина» в примере ниже) из B10.

Однако она вставит формулу и остановится.Он не будет повторяться до тех пор, пока ячейки справа не станут пустыми?

Любая идея о том, как это исправить, будет оценена!

Sub Macro1()

Range("B10").Select
ActiveCell.Value = "TRUE"
Range("B10").Select
Selection.Copy

Range("B11").Select

Dim cell As Range
For Each cell In ActiveSheet.Range("B11:B150")

If IsEmpty(cell.Offset(0, 3).Value) = True Then
cell.Value = ""

Else: ActiveSheet.Paste

End If

Next cell

End Sub

Answer 1

Это должно сделать ... обратите внимание, что вам не нужно .Select

---

Sub Test()

Dim ws as Worksheet: Set ws = ThisworkBook.Sheets("Sheet1")

Dim myCell as Range

For Each myCell in ws.Range("B10:B150")
    If myCell.Offset(,1) <> "" and myCell.offset(,2) <> "" Then
        myCell = "TRUE"
    End If
Next myCell

End Sub