Excel VBA：如何利用活动工作表变量动态设置散点图数据引用？

我来帮你搞定这个VBA适配活动工作表的问题！你遇到的坑很常见——直接把变量名塞进字符串里，VBA会把它当成普通文本，不会解析成变量存储的实际值。咱们一步步来修正：

错误原因分析 #

你写的"='nomfeuille'!$B$4:$B$" & DerniereLigne_B里，nomfeuille被引号包裹了，VBA只会把它当成字符串的一部分，而不是去读取变量里的活动工作表名称。正确的做法是把变量从字符串里拆出来，用&运算符完成拼接。

另外还要提个小细节：你原来的代码里连续两次给XValues赋值，这明显是笔误——第二行应该是给Values（Y轴数据）赋值，不然X轴会被覆盖，Y轴就没数据了！

修正后的代码（字符串拼接版） #

先把变量正确插入到引用路径中，同时修正X/Y轴的赋值错误：

Dim DerniereLigne_B As Integer
Dim DerniereLigne_C As Integer
Dim nomfeuille As String

' 获取活动工作表名称
nomfeuille = ActiveSheet.Name

' 定义B、C列最后一行非空行号
DerniereLigne_B = Range("B65536").End(xlUp).Row
DerniereLigne_C = Range("C65536").End(xlUp).Row

' 创建XY平滑散点图
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries

' 设置系列名称
ActiveChart.SeriesCollection(1).Name = "=""Autoclave cycle"""
' 正确拼接活动工作表的X轴数据范围
ActiveChart.SeriesCollection(1).XValues = "='" & nomfeuille & "'!$B$4:$B$" & DerniereLigne_B
' 正确设置Y轴数据范围（修正原来的XValues笔误）
ActiveChart.SeriesCollection(1).Values = "='" & nomfeuille & "'!$C$4:$C$" & DerniereLigne_C

更优实现方案（避免字符串拼接） #

如果工作表名称包含空格、特殊字符或者中文，字符串拼接可能会出问题。更稳妥的方式是直接用ActiveSheet.Range对象来引用数据，不用手动拼接地址：

Dim DerniereLigne_B As Integer
Dim DerniereLigne_C As Integer
Dim ws As Worksheet

' 直接绑定活动工作表对象（比存名称更安全）
Set ws = ActiveSheet

' 获取B、C列最后一行非空行号
DerniereLigne_B = ws.Range("B65536").End(xlUp).Row
DerniereLigne_C = ws.Range("C65536").End(xlUp).Row

' 创建图表并设置属性
Dim cht As Chart
Set cht = ws.Shapes.AddChart.Chart
cht.ChartType = xlXYScatterSmooth

With cht.SeriesCollection.NewSeries
    .Name = "Autoclave cycle"
    .XValues = ws.Range("B4:B" & DerniereLigne_B)
    .Values = ws.Range("C4:C" & DerniereLigne_C)
End With

这个方案的好处是：

• 直接操作工作表对象，避免字符串拼接的潜在错误
• 用With语句简化代码，可读性更强
• 不需要处理工作表名称的特殊字符转义问题

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