В VBA вы можете перемещаться по диапазону ячеек, применяя действия к каждой ячейке в диапазоне.
Если вы хотите проверить условие для каждой ячейки в диапазоне с помощью VBA, лучший способ - пройти через диапазон, проверяя каждую ячейку. Вот два примера кода, демонстрирующих, как перебирать диапазон. Вы можете заменить значение диапазона для любого диапазона, который вам нужно пройти в цикле.
Прокрутка диапазона ячеек
В этом примере будет проходить цикл по диапазону ячеек. Оператор if проверяет условие, содержит ли ячейка текст «FindMe», и показывает окно сообщения с местоположением текста, если он найден.
1234567891011 | Public Sub LoopCells ()Dim c As ДиапазонДля каждого c в диапазоне ("A1: A10")Если c.Value = "FindMe" ТогдаMsgBox "FindMe found at" & c.AddressКонец, еслиСледующий cКонец подписки |
Цикл по всей колонке
В этом примере выполняется цикл по всему диапазону столбца A.
1234567891011 | Public Sub LoopColumn ()Dim c As ДиапазонДля каждого c в диапазоне ("A: A")Если c.Value = "FindMe" ТогдаMsgBox "FindMe found at" & c.AddressКонец, еслиСледующий cКонец подписки |
Пройти через всю строку
В следующем примере выполняется цикл по строке 1, считая всю строку диапазоном.
1234567891011 | Public Sub LoopRow ()Dim c As ДиапазонДля каждого c в диапазоне ("1: 1")Если c.Value = "FindMe" ТогдаMsgBox "FindMe found at" & c.AddressКонец, еслиСледующий cКонец подписки |