如何将多个 Range 对象合并为一个，用作图表源

我正在尝试制作一个图表，其中多列作为源区域。 基本上，我想选择特定的列，跳过一些列，然后将它们全部合并到一个范围中。我设置了一个循环，在其中创建一个范围，并将其地址附加到一个字符串中，并用逗号分隔它们。我很确定这就是 Excel 想要的格式。

但是，我似乎无法从此字符串创建新范围。

我希望这里有人能帮助我。

我非常想避免必须将列复制到新工作表，然后将其全部标记为范围。

我有以下代码，用于制作组合范围：

'Loops for each number of sections
For Z = 1 To Sheet1.txtNoSections

    'Get gauge to use
    Section = Workbooks(ThisWorkbook.Name).Worksheets(1).Cells(26 + Z, 6).Value
    'Sets varibel for distance from root
    Dist = Workbooks(ThisWorkbook.Name).Worksheets(1).Cells(26 + Z, 3).Value
    'Get range to use
    Set ChartRange = ActiveSheet.Range(ActiveCell, ActiveCell.Offset(rc, Section))
    RangeString = RangeString & ChartRange.AddressLocal
    If Z <> 1 Then
        RangeString = RangeString & ","
    End If

Next Z

然后我尝试用类似的东西获得一个新的系列，但没有运气。

Dim ActualRange As Range
Set ActualRange = ActiveSheet.Range(RangeString)

打印 RangeString 时，它看起来像这样：$S$2$V$6181$S$2:$X$6181,$S$2:$Z$6181,$S$2:$AB$6181,$S$2:$AD$6181,$S$2:$AF$6181,$S$2:$AH$6181,$S$2:$AJ$6181,$S$2:$AL$6181,$S$2:$AN$6181,$S$2:$AP$6181,$S$2:$AR$6181,$S$2:$AT$6181,$S$2:$AV$6181,$S$2:$AX$6181,$S$2:$AZ$6181,$S$2:$BB$6181,$S$2:$BD$6181,$S$2:$BF$6181,$S$2:$BH$6181,$S$2:$BJ$6181,$S$2:$BL$6181,$S$2:$BN$6181,$S$2:$BP$6181

看来同一个工会也可以。

正如上面评论中所讨论的，处理此问题的最佳方法是使用本机 VBA 函数，例如Union.

您可以找到有关如何使用它的几个参考：

• on Excel 的每日剂量 http://www.dailydoseofexcel.com/archives/2005/01/16/union-and-intersect/
• on VBA快递 http://www.vbaexpress.com/kb/getarticle.php?kb_id=354
• 甚至是一个“更好”的联盟奇普·皮尔森的网站 http://www.cpearson.com/Excel/BetterUnion.aspx

然而，请注意，您可以回答自己的问题（甚至强烈推荐 https://meta.stackexchange.com/questions/17463/can-i-answer-my-own-questions-even-those-where-i-knew-the-answer-before-asking）并接受它。通过这种方式，您可以与社区分享您的知识以及您使用自己的代码解决问题的方式。
恕我直言，这比接受我的答案更好。