Суммирование двух строк и вставка в другую книгу в одном столбце

Question

Здравствуйте. У меня проблема с суммированием двух строк и вставкой его в другую книгу в столбце.

значение позволяет сказать

• строка 26, столбец 3, добавление строки 27, значение столбца 3
• строка 26, столбец 4, добавление строки 27, значение столбца 4

• и т. Д. До столбца 12

• 3 4 5 6 7 строка

• 2 6 7 8 9 строка

• столбец

• 5
• 10
• 12
• 14
• 16

Я пытался разделить диапазон источника x, суммируя и пытаясь вставить его, но это не сработало.

В нем говорится

во время выполненияошибка «13»: несоответствие типов

Это мой код:

Sub transfer()
Dim x As Workbook
Dim y As Workbook
Dim sourceRange As Excel.Range
Dim targetRange As Excel.Range



'## Open both workbooks first:

Set x = Workbooks("Svc-Op KPI Overall-6c.xlsm")

Set y = Workbooks("SEA Aftermarket Dashboard - Civic - Copy.xlsm")


 Set sourceRange = x.Sheets("Monthly").Range(Cells(26, 3), Cells(26, 14)) + x.Sheets("Monthly").Range(Cells(27, 3), Cells(27, 14))

 Set targetRange = y.Sheets("Data").Cells(38, 3)
  targetRange.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks:=False, Transpose:=True

Answer 1

Попробуйте ниже:

Sub SumValues()
    Set sourceSheet = Worksheets("sheets with rows to sum")
    Set destSheet = Worksheets("sheet where results should pasted")
    For i = 3 To 12
        ' Write results to destSheet, starting in cell A1
        destSheet.Cells(i - 2, 1) = sourceSheet.Cells(26, i) + sourceSheet.Cells(27, i)
    Next
End Sub