Как подсчитать количество заполненых строк и записать в ячеку?

@Nikita1987 · Регистрация: 11.10.2011

Студворк — интернет-сервис помощи студентам

Всем Хай!
Подскажите пожалуйста, как подсчитать количество заполненых строк и записать в ячеку?

@Watcher_1 · 08.11.2011, 16:31

Можно самому ручками посчитать...
А можно как вы на других переложить этот труд! %)))

@Nikita1987 · 08.11.2011, 16:40 **[ТС]**

Я не перелажую! просто не сильно разбираюсь! с помощью стандартных функций разобраться не магу!
Использую =СЧЕТЗ()
Но почему то когда выбираю диапозон ячеек ничего не происходит! Вот и спрашую!
Ещё использовал функцию ActiveCell.SpecialCells(xlLastCell).Sele ct
Но почемуто отказывается считать!

Памирыч · 08.11.2011, 16:51

Комментарий модератора

Nikita1987, на провокационные ответы можешь не обращать внимания.
У кого есть решение и желание помочь - он поможет, кому помочь нечем - он флудит.
Флудит до поры - до времени.

@Watcher_1 · 08.11.2011, 17:14

Принял к сведению!

Добавлено через 6 минут
Как вариант!
При этом имеется ввиду что в столбце не встречается пустых строк

Visual Basic
1
2
3
4
Sub m()
 myR = Range("A2").End(xlDown).Rows ' предполагается что строки начиаются с А2
 Range("A" & 2 + myR + 1) = "Кол-во заполненых строк" & myR
End Sub

@Казанский · 08.11.2011, 17:19

Сообщение от Nikita1987

Использую =СЧЕТЗ()
Но почему то когда выбираю диапозон ячеек ничего не происходит!

Как так? Например, поместить в яч. С1 количество заполненных ячеек в ст. А:

Visual Basic
1
[C1]=worksheetfunction.CountA([A:A])

@Nikita1987 · 08.11.2011, 17:21 **[ТС]**

Ватчер большое спасибо тебе за помощь! Я в екселе не сильно шарю!
Я пробывал вот так! но почему то не работает =счет(AA;"<>"&"")

@Watcher_1 · 08.11.2011, 17:22

Мой вариант подошел?

@Nikita1987 · 08.11.2011, 17:44 **[ТС]**

Если честно не пробывал! Только что разобрался как стандартными методами сделать! Но всеравно огромное спасибо! Хотя сейчас провери и твой вариант! и впихну его в макрос!

Добавлено через 5 минут
Кстати я только что ещё чуток поэксперементировал и нашол ещё один метод! Если есть желание магу выложить на общий осмотр!

@Казанский · 08.11.2011, 17:44

Сообщение от Nikita1987

Я пробывал вот так! но почему то не работает =счет(AA;"<>"&"")

Code
1
=СЧЁТЕСЛИ(A:A;"<>")

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@Nikita1987 1 / 1 / 0 Регистрация: 11.10.2011 Сообщений: 38

	Как подсчитать количество заполненых строк и записать в ячеку? 08.11.2011, 15:57. Показов 7336. Ответов 9 Метки нет (Все метки) Всем Хай! Подскажите пожалуйста, как подсчитать количество заполненых строк и записать в ячеку? 0

@Watcher_1 357 / 163 / 27 Регистрация: 21.06.2011 Сообщений: 350
	08.11.2011, 16:31
	Можно самому ручками посчитать... А можно как вы на других переложить этот труд! %))) 0

@Nikita1987 1 / 1 / 0 Регистрация: 11.10.2011 Сообщений: 38
	08.11.2011, 16:40 [ТС]
	Я не перелажую! просто не сильно разбираюсь! с помощью стандартных функций разобраться не магу! Использую =СЧЕТЗ() Но почему то когда выбираю диапозон ячеек ничего не происходит! Вот и спрашую! Ещё использовал функцию ActiveCell.SpecialCells(xlLastCell).Sele ct Но почемуто отказывается считать! 0

@Nikita1987 1 / 1 / 0 Регистрация: 11.10.2011 Сообщений: 38
	08.11.2011, 17:21 [ТС]
	Ватчер большое спасибо тебе за помощь! Я в екселе не сильно шарю! Я пробывал вот так! но почему то не работает =счет(AA;"<>"&"") 0

@Watcher_1 357 / 163 / 27 Регистрация: 21.06.2011 Сообщений: 350
	08.11.2011, 17:22
	Мой вариант подошел? 0

@Nikita1987 1 / 1 / 0 Регистрация: 11.10.2011 Сообщений: 38
	08.11.2011, 17:44 [ТС]
	Если честно не пробывал! Только что разобрался как стандартными методами сделать! Но всеравно огромное спасибо! Хотя сейчас провери и твой вариант! и впихну его в макрос! Добавлено через 5 минут Кстати я только что ещё чуток поэксперементировал и нашол ещё один метод! Если есть желание магу выложить на общий осмотр! 0