前提：
第一个疑惑：目前表格都是xlsx格式，当我想在VBA使用插入模块的时候，是灰色的，无法插入。。另存为xlsm格式也一样无法插入，是不是表格哪里设置有问题？
第二个问题：需要对文件夹内每个表格执行以下程序操作，无法实现批量对文件夹中的表格的操作，能否帮忙修改
Sub delete()
Dim o, c
o = Sheet1.UsedRange.End(xlToRight).Column
c = Sheet1.UsedRange(o).End(xlDown).Row
Range(Cells(2, 7), Cells(c, o)).Delete
End Sub
检查一下你的 Excel 的“文件”->“选项”->“信任中心”->“信任中心设置”->“宏设置”，看看是不是禁用了所有的宏。若是，修改成启用即可。
仅针对你的这段代码，修改如下：
Sub Delete1()
Dim LastColum as Integer, LastRow as Long
With Sheet1
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
LastColumn = .Cells.SpecialCells(xlCellTypeLastCell).Column
.Range(.Cells(2,7), .Cells(LastRow, LastColumn)).Clear
End With
End Sub
或者不用 LastRow、LastColumn 作为中间变量那么麻烦：
With Sheet1
.Range(.Cells(2,7), .Cells.SpecialCells(xlCellTypeLastCell)).Clear
End With
注意：使用 With……End With 块，一定要注意 "." 符号的运用。
