v_344 respondió:
Para hacer específicamente lo que dices debes usar un código así: Dim celda As Range casatotal = 0 albañiltotal = 0 For Each celda In Range("a2:a6") If celda = "casa" Then casatotal = casatotal + celda.Offset(0, 1) ElseIf celda = "albañil" Then...