arrays - resueltos - Sumar la columna B en base a los valores de columna C

suma de arreglos bidimensionales en java

Question

Tengo una pregunta rápida: intento resumir en una tabla de 4 columnas la columna número 2 si el valor en la columna número 1 Y 3 coincide. Encontré un código de muestra aquí en el desbordamiento de la pila, pero cuenta actualmente basado en la columna 1. Soy nuevo en VBA y no sé qué cambiar o cómo ajustar el código para basar mis cálculos en la columna 1 y 3. Aquí es el código de muestra:

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

Sum Column B basado en la columna A usando la macro de Excel VBA

¿Podría por favor avisarme cómo puedo resolver este problema? A continuación puede encontrar una imagen de muestra de mi pequeña mesa. La cantidad de la parte amarilla, por ejemplo, se sumará y la segunda fila se eliminará.

Sample Table - Picture

Answer 1

dijiste " Intento resumir en una tabla de 4 columnas columna número 2 ", pero desde tu "Tabla de muestra - Imagen" entiendo que quieres resumir la columna número 4

editado después de la variación OP del rango de datos

Asumiendo lo anterior, podrías probar lo siguiente

Option Explicit
Sub main()
On Error GoTo 0
With ActiveSheet ''<== set here the actual sheet reference needed
'' With .Range("A:D").Resize(.cells(.Rows.Count, 1).End(xlUp).row) ''<== here adjust "A:D" to whatever colums range you need
With .Range("A51:D" & .cells(.Rows.Count, "A").End(xlUp).row) ''<== here adjust "A:D" to whatever colums range you need
With .Offset(1).Resize(.Rows.Count - 1)
.Offset(, .Columns.Count).Resize(, 1).FormulaR1C1 = "=SUMIFS(C2, C1,RC1,C3, RC3)" ''1st "helper column is the 1st column at the right of data columns (since ".Offset(, .Columns.Count)")
.Columns(2).Value = .Offset(, .Columns.Count).Resize(, 1).Value ''reference to 1st "helper" column (since ".Offset(, .Columns.Count)")
.Offset(, .Columns.Count).Resize(, 1).FormulaR1C1 = "=concatenate(RC1,RC3)"
With .Offset(, .Columns.Count + 1).Resize(, 1) ''2nd "helper" column is the 2nd column at the right of data columns (since ".Offset(, .Columns.Count + 1)"
.FormulaR1C1 = "=IF(countIF(R1C[-1]:RC[-1],RC[-1])=countif(C[-1],RC[-1]),1,"""")" ''reference to 1st "helper" column (with all those "C[-1]")
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
.Offset(, -1).Resize(, 2).ClearContents '' reference to both "helper" columns: ".Offset(, -1)" reference the 1st since it shifts one column to the left from the one referenced in the preceeding "With.." statement (which is the 2nd column at thre right of data columns) and ".Resize(, 2)" enlarges to encose the adjacent column to the right
End With
End With
End With
End With
End Sub

hace uso de dos columnas "auxiliares", que supuse que podrían ser las dos adyacentes a las últimas columnas de datos (es decir, si las columnas de datos son "A: D", las columnas de ayuda son "E: F")

en caso de que necesite utilizar diferentes columnas "auxiliares", vea los comentarios sobre cómo se encuentran y cambie el código en consecuencia