PPApp.ActivePresentationRange("B6:Q46").CopyPictureWith PPPres.Slides(18).Shapes.PasteSpecialEnd SubSheets("Test").Select' Paste the range
With PPPres.Slides(18).Pa
我认为这是循环的数量,但我想不出如何在不影响代码功能的情况下减少循环的数量。"" And a < lastrow Then Range(Cells(i, buch), Cells(a, buch)).PasteSpeciala >= lastrow Then Range(Cells(i, buch), Cells(lastrow, buch)).PasteSpecial</