VBA散点图单系列多数据行拼接报错：类型不匹配

错误原因 #

原代码For循环内直接将Range对象（如rSourceDataX.Rows(i)）与字符串拼接，VBA无法自动将Range对象转换为合法的单元格引用字符串，触发「类型不匹配」错误。

修正后的代码 #

Option Explicit ' 强制变量声明，避免未定义变量问题

Private Sub generate_scatterplot()
    Dim oChartObj As ChartObject
    Dim oChart As Chart
    Dim rSourceDataX As Range ' 原代码未声明此变量
    Dim rSourceDataY As Range ' 原代码未声明此变量
    Dim s As Series ' 原代码未声明此变量
    Dim i As Integer
    Dim xAddr As String
    Dim yAddr As String

    Set oChartObj = ActiveSheet.ChartObjects.Add(Top:=10, Left:=325, Width:=600, Height:=300)
    Set oChart = oChartObj.Chart

    Set rSourceDataX = Range("A2:C5")
    Set rSourceDataY = Range("D2:F5")
    
    With oChart
        .ChartType = xlXYScatter
        Set s = .SeriesCollection.NewSeries
        
        ' 逐行收集X、Y轴数据的单元格地址
        For i = 1 To rSourceDataX.Rows.Count
            ' 拼接每行的完整地址（带工作表名，避免引用歧义）
            If xAddr = "" Then
                xAddr = "'" & ActiveSheet.Name & "'!" & rSourceDataX.Rows(i).Address
            Else
                xAddr = xAddr & "," & "'" & ActiveSheet.Name & "'!" & rSourceDataX.Rows(i).Address
            End If
            
            If yAddr = "" Then
                yAddr = "'" & ActiveSheet.Name & "'!" & rSourceDataY.Rows(i).Address
            Else
                yAddr = yAddr & "," & "'" & ActiveSheet.Name & "'!" & rSourceDataY.Rows(i).Address
            End If
        Next i
        
        ' 一次性赋值给系列的X、Y值
        s.XValues = "=" & xAddr
        s.Values = "=" & yAddr
    End With
End Sub

关键修改说明 #

• 添加Option Explicit强制变量声明，避免因未定义变量导致的隐性错误。
• 新增xAddr和yAddr变量，专门用于收集拼接后的单元格引用字符串，不再直接操作Series的X/Y值属性。
• 循环时获取每行单元格的完整地址（含工作表名），用逗号分隔多个区域，符合图表系列数据引用的格式要求。
• 最后一次性将拼接好的引用字符串赋值给s.XValues和s.Values，避免循环中频繁修改属性可能引发的错误。

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