D
David
Hello, can anyone help with this?
I've got a table of data, basically it's rows with URLs (Col C) in it
and stats such as how many "hits" (Col E) each received.
What I need to do is search through the data and if any URLs are
duplicates, I need to remove the duplicate row while adding up the
total hits received for both rows and then writing this total back
into Col E of the original row.
This is what I have so far:
Dim rCell As Range
For Each rCell In Range("C1:C5000")
sURL = rCell.Value
iTotal = rCell.Offset(2, 0).Value
MsgBox sURL, iTotal
' Now check to see if we have a duplicate
iFlag = 1
'Range(Cells(BeginRow, BeginCol),Cells(L, col))
For Each rCheckCell In Range("C1:C5000")
sCheck = rCheckCell.Value
If sCheck = sURL Then
' We've got a match. Remove the duplicate row and add the
figures before writing them.
End If
Next rCheckCell
Next rCell
End Sub
I need the second loop to start at the row after the first loop, but I
don't know how that's done, anyone got any ideas?
If there's a better way to do this then please let me know!
Thanks.
I've got a table of data, basically it's rows with URLs (Col C) in it
and stats such as how many "hits" (Col E) each received.
What I need to do is search through the data and if any URLs are
duplicates, I need to remove the duplicate row while adding up the
total hits received for both rows and then writing this total back
into Col E of the original row.
This is what I have so far:
Dim rCell As Range
For Each rCell In Range("C1:C5000")
sURL = rCell.Value
iTotal = rCell.Offset(2, 0).Value
MsgBox sURL, iTotal
' Now check to see if we have a duplicate
iFlag = 1
'Range(Cells(BeginRow, BeginCol),Cells(L, col))
For Each rCheckCell In Range("C1:C5000")
sCheck = rCheckCell.Value
If sCheck = sURL Then
' We've got a match. Remove the duplicate row and add the
figures before writing them.
End If
Next rCheckCell
Next rCell
End Sub
I need the second loop to start at the row after the first loop, but I
don't know how that's done, anyone got any ideas?
If there's a better way to do this then please let me know!
Thanks.