Здраствуйте. Помогите пожалуйста. Есть таблица, нужно заполнить только первую строчку, остальные дубликаты оставить пустими как показано в примере. ВПР - дублирует суммы. Решение можна или формулой, или в PQ (это идеальный вариант) Есть справочник из сумами, из нее берем сумму.
Sub Сума()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("B3:B" & iLastRow).ClearContents
iLastRow = Cells(Rows.Count, "E").End(xlUp).Row
For i = 3 To iLastRow
Set FoundCell = Columns(1).Find(Cells(i, "E"), , xlValues, xlWhole)
If Not FoundCell Is Nothing Then
FoundCell.Offset(, 1) = Cells(i, "F")
End If
Next
End Sub