如何引用动态多单元格区域？Excel VBA图表动态数据源设置

我明白你想要把固定范围的图表数据源改成根据用户输入动态调整的，原来的固定范围代码没问题，现在只需要把两个不连续的动态范围合并起来就行，直接给你完整的可运行代码：

' 先声明变量，尽量避免变量名冲突，这里把存储行号的变量改成lastRow更清晰
Dim lastRow As Long
' 假设这里获取用户输入的行号，你可以替换成自己的输入逻辑（比如从单元格读取）
lastRow = Val(InputBox("请输入图表数据的结束行号："))

' 校验输入有效性，防止行号小于起始行8
If lastRow < 8 Then
    MsgBox "行号不能小于8，请重新输入！"
    Exit Sub
End If

Dim r1 As Range, r2 As Range, chartRange As Range
' 定义E列的动态范围：从E8到E&lastRow
Set r1 = Sheets("Sheet1").Range("E8:E" & lastRow)
' 定义G列的动态范围：从G8到G&lastRow
Set r2 = Sheets("Sheet1").Range("G8:G" & lastRow)
' 用Union方法把两个不连续范围合并成一个Range对象，和原来固定范围的chartRange类型一致
Set chartRange = Union(r1, r2)

关键说明： #

• 合并范围是核心：你原来的问题出在只定义了两个单独的范围，但没有把它们合并成一个完整的chartRange对象，图表的数据源需要接收一个包含所有目标单元格的Range，Union方法就是用来组合不连续单元格区域的
• 变量名要清晰：存储行号的变量和最终的范围变量用不同名称（比如我用lastRow存行号，chartRange存合并后的范围），避免代码逻辑混乱
• 加输入校验：一定要防止用户输入小于8的行号导致范围无效，触发运行时错误

如果之后要把这个chartRange赋值给图表，直接用原来的逻辑就行，比如：

' 假设你已经有一个Chart对象（比如Chart1）
Chart1.SetSourceData Source:=chartRange

内容的提问来源于stack exchange，提问作者codefast