Question

多个excel文件如何批量删除某一行，

一个文件夹里有几千个excel文件，每一个文件的样式相同，现在每个文件有相同一行内容需要删除 请问有没有批量或者其他快速的方法，一个一个打开删除实在太麻烦 ，麻烦高手帮我解决一下，小弟不甚感激。。。

Answer 1

把所有Excel文件放在同一目录中，遍历文件夹中每个工作簿的每个工作表，执行下面过程清除公式，保存。

Sub pt()

Dim i%

Dim aa As Variant

For i = 1 To Sheets.Count

For Each myrg In Sheets(i).UsedRange

If myrg.HasFormula Then

aa = myrg.Value

myrg.Value = aa

End If

Next

Next i

End Sub

追问

还是没有运行出我想要的结果，可能是我没有说清楚，比如有A表、B表、C表……，每个表格都删除第27行，您看您还能再帮帮我吗？我很急，谢谢！！！