Somme de la Colonne B sur base d'Une Colonne à l'aide d'Excel Macro VBA

En supposant que les données sont dans les colonnes A et B, vous pouvez le faire avec une formule:

=SUMIF(A:A,101,B:B)

Ou, si vous mettez 101 en C1:

=SUMIF(A:A,C1,B:B)

MODIFIER

Toutefois, si vous avez encore besoin de VBA, voici mon (quick and dirty) proposition - je utiliser un dictionnaire pour garder une trace de la somme pour chaque élément.

Sub doIt()

  Dim data As Variant
  Dim i As Long
  Dim countDict As Variant
  Dim category As Variant
  Dim value As Variant

  Set countDict = CreateObject("Scripting.Dictionary")

  data = ActiveSheet.UsedRange 'Assumes data is in columns A/B

  'Populate the dictionary: key = category /Item = count
  For i = LBound(data, 1) To UBound(data, 1)
    category = data(i, 1)
    value = data(i, 2)
    If countDict.exists(category) Then
      countDict(category) = countDict(category) + value 'if we have already seen that category, add to the total
    Else
      countDict(category) = value 'first time we find that category, create it
    End If
  Next i

  'Copy dictionary into an array
  ReDim data(1 To countDict.Count, 1 To 2) As Variant

  Dim d As Variant
  i = 1
  For Each d In countDict
    data(i, 1) = d
    data(i, 2) = countDict(d)
    i = i + 1
  Next d

  'Puts the result back in the sheet in column D/E, including headers
  With ActiveSheet
    .Range("D1").Resize(UBound(data, 1), UBound(data, 2)) = data
  End With

End Sub

Ici est une solution VBA qui utilise des tableaux multidimensionnels. J'ai remarqué que vous avez dit que vous êtes un peu nouveau pour VBA j'ai donc essayé de mettre des commentaires là-dedans. Une chose qui peut paraître étrange, c'est quand je redimensionner les tableaux. C'est parce que quand vous avez les tableaux multidimensionnels vous ne pouvez Redimensionner la dernière dimension dans le tableau lorsque vous utilisez le mot clé Preserve.

Ici est de savoir comment mes données:

Product Count
101     1
102     1
101     2
102     2
107     7
101     4
101     4
189     9

Et voici le code. Il a le même résultat que ma dernière réponse. Tester cela dans un nouveau classeur et de mettre les données de test dans la feuille Sheet1 avec les en-têtes.

Option Explicit
Sub testFunction()
Dim rng As Excel.Range
Dim arrProducts() As String
Dim i As Long
Set rng = Sheet1.Range("A2:A9")
arrProducts = getSumOfCountArray(rng)
Sheet2.Range("A1:B1").Value = Array("Product", "Sum of Count")
' go through array and output to Sheet2
For i = 0 To UBound(arrProducts, 2)
Sheet2.Cells(i + 2, "A").Value = arrProducts(0, i)
Sheet2.Cells(i + 2, "B").Value = arrProducts(1, i)
Next
End Sub
' Pass in the range of the products
Function getSumOfCountArray(ByRef rngProduct As Excel.Range) As String()
Dim arrProducts() As String
Dim i As Long, j As Long
Dim index As Long
ReDim arrProducts(1, 0)
For j = 1 To rngProduct.Rows.Count
index = getProductIndex(arrProducts, rngProduct.Cells(j, 1).Value)
If (index = -1) Then
' create value in array
ReDim Preserve arrProducts(1, i)
arrProducts(0, i) = rngProduct.Cells(j, 1).Value ' product name
arrProducts(1, i) = rngProduct.Cells(j, 2).Value ' count value
i = i + 1
Else
' value found, add to id
arrProducts(1, index) = arrProducts(1, index) + rngProduct.Cells(j, 2).Value
End If
Next
getSumOfCountArray = arrProducts
End Function
Function getProductIndex(ByRef arrProducts() As String, ByRef strSearch As String) As Long
' returns the index of the array if found
Dim i As Long
For i = 0 To UBound(arrProducts, 2)
If (arrProducts(0, i) = strSearch) Then
getProductIndex = i
Exit Function
End If
Next
' not found
getProductIndex = -1
End Function

Basé sur le code de Sub doIt(), est possible dans la pour Chaque ycle de retrive également le nombre d'occurence?

Exemple:

Produit # 101 4 occurence

Produit # 102 ont 2 occurence
ecc...