如何批量删除多个EXCEL文件里的多个行？

Question

我有N多个文件，文件里的从5列到47列，我都要删除。。咋办？
Sub aTry()
Dim fl$
Dim sh As Worksheet
fl = Dir(ThisWorkbook.Path & "\*.xls") '查找当前文件夹下的XLS文件
Do While fl <> ""
If fl <> ThisWorkbook.Name Then
Workbooks.Open ThisWorkbook.Path & "\" & fl '打开该文件
For Each sh In ActiveWorkbook.Worksheets '遍历该文件所有工作表
sh.Select
Columns(1).Delete '删除第1列
Next
ActiveWorkbook.Close True '关闭保存
End If
fl = Dir '查找下一个XLS文件
Loop
End Sub

咋整？
补充一点：

我说的是“多个文件”里的“多个行”，如果单个的我也就shift删除了。。。

Answer 1

 选中后右击－－删除就行，如图

到这步右击－－删除

Answer 2

举个例子：
如果想删除1-5行，将 {Columns(1).Delete '删除第1列} 这段代码里的Columns(1)改为range("1:5")
如果想删除1-5列，将 Columns(1)改为range("A:E")本回答被提问者采纳

Answer 3

编辑——定位——定位条件——常量——文本（勾上）。

右键——删除。

Answer 4

选定区域按Delete键