如何从数组中排除空单元格

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

为了检查单元格是否为空，有一个@Query("SELECT * FROM Persons ORDER BY last_name ASC") List<Person> getPersonsSortByAscLastName(); @Query("SELECT * FROM Persons ORDER BY last_name DESC") List<Person> getPersonsSortByDescLastName(); 工作表功能。