如何在工作表上刷新一个对象，而其余部分在Excel VBA上冻结

我对VBA相当陌生。 我创build了一个从单个单元格复制的资源，并创build了n个结果的string。 同时它会在结果的右侧创build一个图表。 当结果低于页面视图时，工作表会前后跳转，graphics如下所示。 有没有办法使用VBA来保持整个表格仍然（不明显令人耳目一新），同时为每个结果刷新图表？ 任何人的帮助，非常感谢。

Answer 1

没有必要在那里select任何东西：

For a = 1 To Range("n").Value 'Copying Crossed to Results Range("D18").Copy Cells(a + 16, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ' Creates Needle Drop Graph 'Delete Old Chart On Error Resume Next ActiveSheet.ChartObjects("PinDrop").Delete On Error Goto 0 'Create Chart With ActiveSheet.Shapes.AddChart.Chart .ChartType = xlXYScatter .Parent.Name = "PinDrop" end with