Red de conocimiento informático - Problemas con los teléfonos móviles - Para los expertos en VBA, ¿cómo se escribe una suma de múltiples condiciones en una tabla usando código VBA?

Para los expertos en VBA, ¿cómo se escribe una suma de múltiples condiciones en una tabla usando código VBA?

Sub demo()

Atenuar SData como rango

Atenuar DData como rango

Atenuar RowSta mientras, RowLas mientras p>

Dim ColSta As Long, ColLas As Long

With Range("A1").CurrentRegion

RowSta = .Find( "Nombre ", , , xlPart).Fila 1

ColSta = .Find("Nombre", , , xlPart).Columna 2

RowLas = .Columns(1).Find (" ¿Total?", , , xlPart).Fila - 1

ColLas = .Find("Firma", , , xlPart).Columna - 3

Terminar con

Establecer DData = Range(Cells(RowSta, ColSta), Cells(RowSta, ColLas))

Establecer SData = DData.Offset(-1, 0)

Para i = RowSta To RowLas

Celdas(i, ColLas 2) = Application.SumProduct(SData, DData)

Establecer DData = DData.Offset(1, 0)

Siguiente i

Fin Sub