Проверка диапазона ячеек

[Last]

доброго времени суток, возник маленький вопрос, можно ли указывать компилятору для проверки диапазон ячеек, так чтобы он проверял условие в каждой из этого диапазона?
например: нужно проверить 100 ячеек (А1:А100) на условие, если условие выполняется, то с той ячейкой в которой оно выполняется произвести изменения.
можно конечно ручками ввести по одной, но это будет оочень долго, что скажут профессионалы?

[Cannibal]

А цикл вам чем не угодил?

For i = 1 to КоличествоЯчеек
    If cells(1,i)=чему-то then ........
next

А вобще покажите пример

[Last]

Прошу прощения, что сразу не выложил. Страница сделана не очень удобно, а мне нужно "слепить" переменную из ячеек, содержащих буквы имени(фамилии, отчества и т.п.).
В отношении синтаксиса VBA я совсем нуб, т.е. cell(1,1) это ячейка A1 и cell(2,1) это ячейка B1?

[motorway]

Нет, Cells(2, 1).Value устанавливает значение для ячейки A2

[EducatedFool]

Страница сделана не очень удобно, а мне нужно "слепить" переменную из ячеек, содержащих буквы имени(фамилии, отчества и т.п.).

Тут простым циклом не ограничиться.

Проще всего сделать пользовательскую функцию, которая в качестве параметра будет принимать диапазон ячеек (например, a69:by69), и возвращать текст, содержащийся в указанном диапазоне (без лишних пробелов).
В качестве критерия (какие ячейки обрабатывать, а какие - нет) можно использовать цвет ячейки.

В любом случае, без примера файла, и подробного описания задачи, посоветовать что-либо конкретное будет очень сложно.

[Cannibal]

еслои я правильно понял, вам нужно ФИО Загнать в переменную? если это так, то при ячейках, как во вложении код работает. дальше можно разобраться по аналогии

s = ""
i = 9
Do While (i < (76)) Or (Cells(77, i) <> "")
   s = s + Cells(77, i)
   i = i + 2
Loop
s = s + " "
i = 9
Do While (i < (37)) Or (Cells(79, i) <> "")
   s = s + Cells(79, i)
   i = i + 2
Loop
s = s + " "
i = 45
Do While (i < (76)) Or (Cells(79, i) <> "")
   s = s + Cells(79, i)
   i = i + 1
Loop

[Last]

 Dim asd As String
 Dim i As Integer
 For i = 40 To 151 " просматривать от ячейки AN32 до EU32"
  If Cells(32, i) <> "" Then asd = asd + Range(32, i) " тут вылазит ошибка Method "range" of object "_global" failed"
 Next
 Range("a58") = asd

малоинформативный текст ошибки какбэ не даёт мне понять, чего от меня хотят, я считаю что дело в неправильном присваивании, как присвоить строковой переменной содержание ячейки с адресом (32,i) правильно?

[Last]

а если написать
asd = asd + Cells(32, i), то вылазит type mismatch, хмм

[EducatedFool]

asd = asd & Cells(32, i)

[Last]

заработало, спасибо=)