我正在尝试创建一个宏来清理功率点图表后面的Excel工作表,以便只有图表中使用的数据存在,并且没有公式 .
我拼凑了这个,当我在Excel中打开图表数据时,它可以工作,但我希望我可以创建一个循环遍历工作簿中每个图表的宏,并为我打开Excel中的图表数据,所以我可以执行以下各项 .
Sub ChartCleaningPP()
'Paste values of table
Range("Table1[#All]").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Dim Cell As Range
'clear other cells
For Each Cell In ActiveSheet.UsedRange
If Intersect(Cell, Selection) Is Nothing Then
Cell.Clear
End If
Next Cell
'remove hidden
For lp = 256 To 1 Step -1
If Columns(lp).EntireColumn.Hidden = True Then Columns(lp).EntireColumn.Delete Else
Next
For lp = 65536 To 1 Step -1
If Rows(lp).EntireRow.Hidden = True Then Rows(lp).EntireRow.Delete Else
Next
'close window
ActiveWindow.Close
End Sub
1 回答
试试这个:
编辑:(从PP运行Excel Makro)需要在PP中激活MS Excel库 .
编辑: