Доброго времени суток. подскажите пожалуйста, как сделать с помощью этого цикла поиск совпадений в столбце. записей 6000 и может быть до 25 совпадений. вывести сообщение о совпадении каждой ячейки в один MsgBox.
Выделяете весь столбец и пишете Sub Test() Dim cell As Range For Each cell In Selection cell = 1 (вместо единицы тут можно задать что угодно, значение, проверку, условие) Next cell End Sub либо если хотите работать со столбцом не выделяя его а задавая конкретный диапазон, то можно и так Sub Test() Dim cell As Range For Each cell In [A:A] cell = 1 Next cell End Sub
С элементами массива данный оператор работает? Если да, то можно привести пример.
Доброго времени суток. подскажите пожалуйста, как сделать с помощью этого цикла поиск совпадений в столбце. записей 6000 и может быть до 25 совпадений. вывести сообщение о совпадении каждой ячейки в один MsgBox.
Не могу сообразить, как сделать For Each, например по всем ячейкам одного столбца. Через For Next я сделал, но хотелось бы правильнее.
Выделяете весь столбец и пишете
Sub Test()
Dim cell As Range
For Each cell In Selection
cell = 1
(вместо единицы тут можно задать что угодно, значение, проверку, условие)
Next cell
End Sub
либо если хотите работать со столбцом не выделяя его а задавая конкретный диапазон, то можно и так
Sub Test()
Dim cell As Range
For Each cell In [A:A]
cell = 1
Next cell
End Sub
@@AnonimusAnonimusAnon Велике спасибі. Дійсно корисні уроки.