Подсчет колличества строк при совпадении нескольких ячеек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет колличества строк при совпадении нескольких ячеек (Макросы/Sub)

Sashagor1982

Дата: Суббота, 16.08.2014, 16:10 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте уважаемые форумчане. Необходим макрос подсчета строк в которых выполнено условие совпадения в нескольких столбцах, эквивалент функции СЧЕТЕСЛИМН. Данный макрос считает количество совпадений "Маша" в первом столбце:
[vba]

Код

Sub Подсчет()
i = Application.WorksheetFunction.CountIf(Sheets("Лист1").Columns(1), "Маша")
Sheets("Лист2").Cells(10, 1) = i
End Sub

[/vba]
Как подсчитать количество строк в которых "Маша" в первом столбце, "июнь" во втором, "1" в третьем?
Заранее спасибо.

К сообщению приложен файл: 2166541.xls (28.5 Kb)

Сообщение отредактировал Sashagor1982 - Суббота, 16.08.2014, 21:37

Ответить

_Boroda_

Дата: Суббота, 16.08.2014, 16:28 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Один из простейших способов - без массивов, коллекций и т.п. (чтобы Вас не грузить лишний раз и не путать)
[vba]

Код

Sub tt()
      x1_ = "Маша"
      x2_ = "июнь"
      x3_ = 1
      r_ = Range("A" & Rows.Count).End(xlUp).Row 'Ищем последнюю заполненную строку в столбце А
      'Или просто
      'r_=30
      For i = 1 To r_
          If Range("A" & i) = x1_ Then
              If Range("B" & i) = x2_ Then
                  If Range("C" & i) = x3_ Then
                      n_ = n_ + 1
                  End If
              End If
          End If
      Next i
      Sheets("Лист2").Cells(10, 1) = n_
End Sub

[/vba]
Функцией (если не нравится СУММЕСЛИМН) можно так

Код

=СУММПРОИЗВ((A1:A30="Маша")*(B1:B30="июнь")*(C1:C30=1))

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Sashagor1982

Дата: Суббота, 16.08.2014, 20:37 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Спасибо, но хотелось бы без использования циклов.

Ответить

Sashagor1982

Дата: Суббота, 16.08.2014, 20:39 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Как-нибудь через подобное Application.WorksheetFunction.CountIf можно?

Ответить

_Boroda_

Дата: Суббота, 16.08.2014, 20:51 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Цитата Sashagor1982, 16.08.2014 в 20:37, в сообщении № 3

но хотелось бы без использования циклов.

Цитата Sashagor1982, 16.08.2014 в 20:39, в сообщении № 4

через подобное Application.WorksheetFunction.CountIf можно?

А Вам не кажется, что об этом было бы неплохо написать в первом сообщении, а? Это так, на будущее - вдруг еще вопросы появятся.
Ну, раз Вам хочется так, держите
[vba]

Код

Sub tt()
Sheets("Лист2").Cells(10, 1).FormulaR1C1 = "=SUMPRODUCT((Лист1!C=""Маша"")*(Лист1!C[1]=""июнь"")*(Лист1!C[2]=1))"
Sheets("Лист2").Cells(10, 1) = Sheets("Лист2").Cells(10, 1).Value
End Sub

[/vba]
Кстати, а чем Вам так циклы не угодили?