Блог

Главная - Вопросы по программированию - Как исключить пустые ячейки из массива

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

#excel #vba

#excel #vba

Вопрос:

Мой код:

    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: " amp; a1 - a2
        Next
    Next

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

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

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

Комментарии:

1. Может быть, вместо того, чтобы продолжать просить о помощи, пройдитесь по некоторым руководствам? Это ваш пятый пост о точно таком же макросе, и то, что вы пытаетесь сделать, требует минимальных усилий. Не копируйте слепо код из Интернета и не ожидайте, что сообщество SO перепишет его за вас. Попробуйте научиться программировать самостоятельно!

Ответ №1:

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