真的有可能為第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 = "="