Vba for sumif type function

[tintin1012000]

I Have a large amount of data across 2 worksheets
data in these sheets is like below. but it continues across the work sheet a few hundred columns

Test	Value		Test	Value
function	66		acme	55
build	87		function	22
acme	44		acme	77

I need to do a sum if type function

In Sheet 1 I have a list of all the possible tests in column A .
I need to find all occurrences of cell A2 in work sheets called Results1 and Results2 and return the sum of the cell directly to the right of the result

eg
acme would returrn sum(44 + 55 +77 )and so on
Ideally in VBA

Thanks

 

[DanteAmor]

Try this

Sub SumType()
  Dim i As Long, s As Long, lr As Long, lc As Long
  Dim j As Long, k As Long
  Dim dic As Object, sh1 As Worksheet, sh2 As Worksheet
  Dim sh As Variant, a As Variant, c As Variant
  
  Set sh1 = Sheets("Sheet1")
  Set dic = CreateObject("Scripting.Dictionary")
  sh = Array("Results1", "Results2")
  a = sh1.Range("A2", sh1.Range("A" & Rows.Count).End(3)).Value2
  ReDim b(1 To UBound(a))
  
  For i = 1 To UBound(a)
    dic(a(i, 1)) = Empty
  Next
  
  For s = 0 To UBound(sh)
    Set sh2 = Sheets(sh(s))
    lr = sh2.Range("A" & Rows.Count).End(3).Row
    lc = sh2.Cells(1, Columns.Count).End(1).Column
    c = sh2.Range("A2", sh2.Cells(lr, lc))
    For j = 1 To UBound(c, 2) Step 2
      For k = 1 To UBound(c, 1)
        dic(c(k, j)) = dic(c(k, j)) + c(k, j + 1)
      Next
    Next
    Erase c
  Next
  
  sh1.Range("B2").Resize(dic.Count).Value = Application.Transpose(dic.items)
End Sub

 

[tintin1012000]

Thanks for the reply. im getting a sub script error on

 dic(c(k, j)) = dic(c(k, j)) + c(k, j + 1)

 

[DanteAmor]

Do you have texts instead of numbers or a cell with error?
How many rows do you have?
How many columns do you have?