Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
28.03.2024, 17:42:50

Войти
На форуме добавлена возможность подписки на RSS-ленты любого раздела форума. Подписаться можно, нажав на иконку RSS , расположенную левее наименования раздела.
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Макрос. Суммировать идентичные наименования в столбце.
Страниц: [1]   Вниз
Печать
Автор Тема: Макрос. Суммировать идентичные наименования в столбце.  (Прочитано 2310 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Александра
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 2


Просмотр профиля E-mail
« : 11.11.2019, 10:39:53 »

Здравствуйте. Прошу помощи. Прикрепляю документ. Нужно макросом суммировать количество направлений (столбец G). Как пример, прикрепляю шапку выше. Самостоятельно подогнать, то что нахожу в интернете я не могу. Заранее благодарна за помощь.
Записан
Kuzmich
Постоялец
***

Репутация: +27/-0
Офлайн Офлайн

Сообщений: 168


Просмотр профиля
« Ответ #1 : 11.11.2019, 11:25:40 »

А что тогда у вас посчитано в Е3:Е7 ?
Записан
Александра
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 2


Просмотр профиля E-mail
« Ответ #2 : 11.11.2019, 11:28:52 »

Посчитано с помощью формулы. А хотелось бы с помощью макроса, если это возможно
Записан
Kuzmich
Постоялец
***

Репутация: +27/-0
Офлайн Офлайн

Сообщений: 168


Просмотр профиля
« Ответ #3 : 11.11.2019, 11:40:16 »

Используйте WorksheetFunction.CountIf
Код: (vb)
Sub Tablica()
Dim i As Long
  For i = 3 To 7
    Cells(i, "D") = WorksheetFunction.CountIf(Range("G3:G66"), Cells(i, "F"))
  Next
End Sub
« Последнее редактирование: 11.11.2019, 11:58:55 от Kuzmich » Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru