如何合并多个不连续的范围

我试图巩固在多个非连续范围内的价值观，但我没有做到这一点。 就像我下面的例子

Set myRange = Range("E6:F8,E12:F14") [J10].Consolidate Sources:=myRange, _ Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False 

我知道我可以在一个地方复制所有的范围，然后巩固在一个连续的范围内

  [J10].Consolidate Sources:=TempSheet.Range(A1:B10).Address, _ Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False 

Answer 1

整合需要R1C1风格的表单和源代码的完整path

 Sub MyConsolidate() [J10].Consolidate _ Sources:=Array("Sheet1!R6C5:R8C6", "Sheet1!R12C5:R14C6"), _ Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False End Sub 

还要将A1标记转换为R1C1使用

 Sub RangeToR1c1() MsgBox Range("E6").Address(ReferenceStyle:=xlR1C1) End Sub