为什么使用这个VBA获得重复的图表粘贴？

我运行macros时得到重复的粘贴图表。 它的function是遍历所有Excel表格并复制可用的图表，然后将其粘贴到ChartObjects页面上。

你看到错误吗？ 你能帮助纠正吗？

Sub Test1() Dim cht As Excel.ChartObject Worksheets("ChartObjects").ChartObjects.Delete For Each Sheet In ActiveWorkbook.Worksheets If Sheet.Name <> "ChartObjects" Then Sheet.Select For Each cht In Sheet.ChartObjects cht.Select cht.Copy Sheets("ChartObjects").Select Range("C5").Select ActiveSheet.Paste Next End If Next Sheet End Sub 

Answer 1

您需要从For Each循环中排除ChartObjects。

 For Each Sheet In ActiveWorkbook.Worksheets If Sheet.Name<>"ChartObjects" Then 'your code End if Next Sheet