Макрос для подсчета количества текстовых строк на листе в Excel 2003

Question

У меня есть лист для оценки.

У меня есть список на первом листе, который будет для ввода данных, начиная с a2 и спускаясь вниз по листу, это для имен игроков.

У меня есть сводный лист с именем "Место", в котором есть формула для извлечения данных.

Я хотел бы, чтобы макрос подсчитывал количество текстовых строк на листе "Настройка" от А2 до чего угодно, а затем заполнял лист "Поместить" правильное количество раз.

Answer 1

Вы могли бы использовать что-то вроде

StringCount = 0

For i = 2 to range("A2").end(xldown).row 'assuming no breaks in data

If Typename(cells(i, 1).value) = "String" Then StringCount = StringCount + 1

Next i

По сути, это дает вам количество строк в столбце A