真的有可能为第n行绘制Excel VBA图吗

Question

因此，我有一个具有8000多个行的excel文件，我必须根据B2至B8000和C2至C8000绘制一个xlscatter图。 但是用于绘制图形的值必须使用第50个单元格，我发现了类似的问题如何在Excel中以编程方式使用图表中的第n个单元格 。 但是给出的代码不会绘制图形，它只是一个空白图形。 有什么解决办法吗？

[...]

Dim xS As String

Dim yS As String

xS = "="

yS = "="

For i = 1 To 23000 step 50

    If i > 1 Then

        xS = xS & ","

        yS = yS & ","

    End If

    xS = xS & "A!$A$" & CStr(i)

    yS = yS & "A!$B$" & CStr(i)

Next

ActiveChart.FullSeriesCollection(1).XValues = xS

ActiveChart.FullSeriesCollection(1).Values = yS

[...]

我尝试过的那个

Answer 1

首先，来自Sheet的数据称为A吗？ 如果没有，那么您的代码需要从以下更改：

xS = xS & "A!$A$" & CStr(i)
yS = yS & "A!$B$" & CStr(i)

至：

xS = xS & "Sheet1!$A$" & CStr(i) 'Where Sheet1 is your Sheet name.
yS = yS & "Sheet1!$B$" & CStr(i)

另外，我很确定您应该删除以下几行：

xS = "="
yS = "="