Как исключить пустые ячейки из массива

Question

Мой код:

   For wiersze = 3 To p2
        For kolumny = p3 To p4
            a1 = Val(wrks1.Cells(wiersze, kolumny))
            a2 = Val(wrks.Cells(wiersze, kolumny))
            Set rng = wrks1.Cells(wiersze, kolumny)
            rng.ClearComments

            rng.Comment.Text Text:="Zaoszczedzono: " & a1 - a2
        Next
    Next

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

Set P1 = Sheet1.Range("A10")
If Not IsEmpty(P1.Value) Then 
P1.addComment

Но я понятия не имею, как перестроить мой код и применить второй код к массиву.

Answer 1

Чтобы проверить, пуста ли ячейка, есть функция листа =ISBLANK().