Макрос подсчета совпадений

[ikki_pf]

for i=7 to 177
  if not empty(cells(i,1)) then
    if i>=1 and i<=10 then
      cells(i,cells(i,1)+1)=cells(i,cells(i,1)+1)+1
    end if
  end if
next

[Тандер]

хм, if not empty дает syntax error
В любом случае Вам за помощь огромное спасибо.
Но, по макросу видно, что он опять берет данные из i-го столбца без привязки к конкретному. То есть есть привязка к диапазону:

7 To 177

, но нет привязки к конкретному столбцу, например не А, а к E-столбцу. То же самое и с "вставляемыми данными". Можно ли сделать, чтобы они были, скажем подсчет единиц C7:C177, двоек - D7:D177 и т.д. То есть, чтобы в макросе в случае чего можно было вручную поменять диапазон.

Не подумайте только, что я пытаюсь Вас критиковать или еще что, просто пытаюсь и разобраться и научиться, и, конечно, получить то, что хотелось бы видеть.

[ikki_pf]

да, это у меня ошибка. пару букв пропустил должно быть

if not isempty(...)

по поводу "привязки" - это вам только кажется, что привязки к столбцам нет.
за столбец отвечает второй аргумент в cells()
так, например, cells(...,1) - ячейка в первом столбце, cells(...,i) - ячейка в i-ом столбце (где i - переменная целого типа с допустимым значением)

а вообще, без обид - но вам бы справку по VBA почитать надо. там и примеры есть - можно копировать пример в код и выполнять.

[Тандер]

Спасибо за совет по справке, нашел много нового, но всеравно ответ на свои вопросы не нашел (по крайнее мере в таком виде, каком они нужны).
Насчет макроса, в строке

Cells(i, Cells(i, 1) + 1) = Cells(i, Cells(i, 1) + 1) + 1

выдает ошибку - type mismatch

[DiemonStar]

А зачем вам макросы? разве формула здесь не уместнее будет?

[Тандер]

Формула вещь хорошая, но формулой значения меняются динамически. А нужно чтобы они менялись статически. Ну и много других задач форумла не может решить.