0

您好，我对 2 行的总和有疑问，并将其粘贴到列中的另一个工作簿中。

意思让我们说

  • 第 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
4

1 回答 1

0

试试下面：

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
于 2019-10-30T06:47:03.797 回答