利用VBA查找数据源的最后一列，然后用最后15列的数据做数据源做迷你图。

双夕

Sub 创建折线迷你图()
Dim r, i
With Worksheets("近15日销量数据源")
r = Cells(1, 255).End(xlToLeft).Column
    For i = 2 To 667
Range("S" & i).SparklineGroups.Add Type:=xlSparkLine, SourceData:=Range(Cells(i, r - 14), Cells(i, r))     
Next
End With
End Sub

#Range("S" & i).SparklineGroups.Add Type:=xlSparkLine, SourceData:=Range(Cells(i, r - 14), Cells(i, r))   
出现类型不匹配错误，请各路大神赐教

双夕

这个数据源，请各位大神指教，谢谢。