Vba 如何合并多个非连续范围

我试图在多元组非连续范围内合并值，但没有成功。就像我下面的例子

  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

需要R1C1样式的图纸和源的完整路径

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

---

谢谢你的帮助。但我不能只添加

Source:=myRange.Address（ReferenceStyle:=xlR1C1）