Как считать два разных столбца?

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

Project Status Project Pending Closed VIVA closed VIVA 1 2 ZAIN closed ZAIN 1 1 VIVA PENDING WATANIA 1 0 WATANIA closed ZAIN PENDING VIVA closed 

  • Восстановление поврежденного Pen Drive
  • Как отформатировать Ext2 в Windows XP?
  • Сколько раз мы можем на низком уровне форматировать диск, не повредив его?
  • Отформатируйте защищенную (поврежденную) SD-карту
  • Не удается форматировать карту памяти SD
  • Windows 7 отказывается устанавливать из-за ошибки раздела во время установки
  • Отформатируйте защищенную (поврежденную) SD-карту
  • Уменьшить размер MP4
  • Обновление установки Windows 8
  • Просмотреть исходный код Microsoft Excel
  • Как я могу восстановить заводскую карту microSD
  • Как я могу запретить Windows 8 пытаться отформатировать мой внешний жесткий диск ext3?
  • One Solution collect form web for “Как считать два разных столбца?”

    Я знаю только VBa (я действительно не знаю функции книги), так как вы не указываете, что хотите, этот VBa должен делать то, что вы хотите

     Sub UpdateStatus() Dim row As Integer row = 2 ' sets the starting row Dim statisticRow As Integer statisticRow = 2 Do While (True) ' we must reset everything before we go on our quest. Be gone foul witch If Range("F" & statisticRow).Value = "" Then Exit Do End If Range("F" & statisticRow).Value = "" Range("G" & statisticRow).Value = "" Range("H" & statisticRow).Value = "" statisticRow = statisticRow + 1 Loop Do While (True) Dim currentValue As String currentValue = Range("A" & row).Value Dim otherValue As String If currentValue = "" Then Exit Do End If Dim otherRow As Integer otherRow = 2 ' sets the starting row where the results are Do While (True) ' find it or add it otherValue = Range("F" & otherRow).Value Dim currentValueStatus As String If otherValue = "" Then currentValueStatus = Range("B" & row).Value Range("F" & otherRow).Value = currentValue If currentValueStatus = "closed" Then Range("H" & otherRow).Value = 1 End If If currentValueStatus = "PENDING" Then Range("G" & otherRow).Value = 1 End If Exit Do End If If currentValue = otherValue Then ' Good news sire, I found it currentValueStatus = Range("B" & row).Value If currentValueStatus = "closed" Then Range("H" & otherRow).Value = Range("H" & otherRow).Value + 1 End If If currentValueStatus = "PENDING" Then Range("G" & otherRow).Value = Range("G" & otherRow).Value + 1 End If Exit Do End If otherRow = otherRow + 1 Loop row = row + 1 Loop End Sub 

    До

    Введите описание изображения здесь

    И после запуска макроса

    Введите описание изображения здесь

    Как вы можете видеть, он автоматически помещает имена компаний для вас и определяет, сколько из них существует. Это означает, что если вы добавите новую компанию и снова запустите макрос, она будет обновлена ​​с новой детализацией без каких-либо изменений кода.

    Давайте будем гением компьютера.