Automatically add multiple original field entries total (that has multiple entries)

**steverokh** · 02-25-2013, 12:34 AM

Hi All,

What I have is a spreadsheet of cities (there are multiple cities that are the same) - and they have a # of receives column too. What I want is to be able to add up all the cities #of receives that are the same City. for instance Dehli has over 50 lines of # of receives and instead of manually scrolling down and adding each cell together with a formula, I thought there would be an easier way to do this;

SPreadsheet attached.

Thanks for all your help!

**mike7952** · 02-25-2013, 01:54 AM

Results added to column d

Option Explicit
Sub abc()
 Const shName As String = "sheet1" '<-- Change for you needs
 Dim aArr, i As Long
 
 With Sheets(shName)
    aArr = .Range("a1").CurrentRegion.Value
 End With
 
 With CreateObject("scripting.dictionary")
    .comparemode = 1
    For i = 1 To UBound(aArr, 1)
        If Not .exists(aArr(i, 1)) Then
            .Item(aArr(i, 1)) = aArr(i, 3)
        Else
            .Item(aArr(i, 1)) = .Item(aArr(i, 1)) + aArr(i, 3)
        End If
    Next
    For i = 2 To UBound(aArr, 1)
        Sheets(shName).Cells(i, "d") = .Item(aArr(i, 1))
    Next
 End With
End Sub

**steverokh** · 03-04-2013, 01:20 AM

Thank you kindly !

Automatically add multiple original field entries total (that has multiple entries)

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Automatically add multiple original field entries total (that has multiple entries)

Re: Automatically add multiple original field entries total (that has multiple entries)

Re: Automatically add multiple original field entries total (that has multiple entries)

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions