excel 自动删除

我只能说,可以把这8个Sheet关链之后,删除其中的一个,其关链的就可以同时进行删除.

其他的,不多说了.

祝你好运

为什么这么多人认为用vba实现excel自动化就那么容易呢，连点积分都不舍得，告诉你用vba可以很容易实现，但是你没积分给，所以没动力！

我做的宏的代码

Sub 按钮1_单击()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=IF(MOD(COLUMN(),8)=0,0/0,"")"
Rows("1:1").Select
Selection.FillRight
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.EntireColumn.Delete
End Sub

你也可以自己录制，我简单说说思路。你自己理解，也可以自己做
=IF(MOD(COLUMN(),8)=0,0/0,"")
对每一列加一个标记，不是8的倍数的就用空白，是的用一个0/0，造成一个错误。
把这个公式横向填充到所有列的位置
通过定位-定位条件--错误
找到所有0/0的列，就是所有都是8倍数的列
通过删除列来达到目的