{quote}{login=Pavel55}{date=09.11.2010 11:42}{thema=}{post}Если у вас фамилии идут в столбце А, а зарплата идёт в столбце В, то  
 
Sub Просуммировать()  
Dim iLastRow As Long  
  iLastRow = Cells(Rows.Count, "A").End(xlUp).Row  
     
  With Range("C2:C" & iLastRow)  
     .Formula = "=SUMIF($A$2:A$" & iLastRow & ",A2,$B$2:B$" & iLastRow & ")"  
     .Value = .Value  
     .Replace 0, "", xlWhole  
  End With  
End Sub{/post}{/quote}  
совсем хорошо, только бы выводился итог всего одной строчкой, а то напротив одной и той же фамилии один и тот же итог по несколько раз пишется, лучше мне кажется в другой лист кинуть итог

толкните меня на мысль, как после сравнений    
 
 
a = Cells(1, 1)  
For nmb = 3 To 150000  
If a = Cells(b, 1) Then    
 
 
если будут совпадения фамилий, то сложить эти ячейки с зарплатой между собой и итог вынести по этой фамилии , даже если будет 3 и более совпадений фамилий, как мне поймать эти ячйки?

спасибо спасибо за формулу, но таблицы очень большие, мне бы удобнее был макрос

Уважаемые программисты помогите мне сделать макрос  
во вложении пример таблицы, отталкиваться от сравнения строк, если строки равны , то вторые столбцы (B) этих строк должны сложиться и вынестись куда нибудь..  
 
например так    
 
Итог за лето:  
Иванов 11794  
Петров 10004