批量删除几百个EXCEL表的的指定行

Question

几百个EXCEL表 统一删除 17 18 19 20行 ，有啥办法 新手 请详细解释
不是一个EXCEL表 是yi一个文件夹里 几百个表 谁给编个VBA还是VBS 可以一下子删除的 告诉具体怎么用

Answer 1

如果是同一个工作簿中的多个工作表，可点击第一个表格标签，按住Shift键点击最后一个表格标签，成组选中，然后删除选定的行。

Answer 2

Sub test() '新建一个工作簿，放入以下代码，与其它文件放在一起，然后执行，耐心等待。没测试！真巧，这里又遇到
Dim p$, f$, sh As Worksheet
Application.ScreenUpdating = False
p = ThisWorkbook.Path & "\"
f = Dir(p & "*.xls*")
Do While Len(f)
If f <> ThisWorkbook.Name Then
With Workbooks.Open(Filename:=p & f, UpdateLinks:=0)

For Each sh In .Worksheets '所有的工作表
sh.Rows(17).Resize(4).Delete
Next

'' With .Worksheets(1) '第1张工作表
'' .Rows(17).Resize(4).Delete
'' End With

.Close 1
End With
End If
f = Dir
Loop
Application.ScreenUpdating = True
End Sub

Answer 3

你这种需求，非VBA莫属。
编写VBA代码，对文件逐一打开，删除目标行，保存，打开下一文件。

Answer 4

编辑 定位 或CTRL+G或F5 定位条件 常量 只勾选 文本 确定 按键盘上的Delete键

Answer 5

请问你的【颜色】是怎么得来的，是手工设置底色还是条件格式而来的？两种处理是不一样的如果是手工设置的，你需要提供这个黄色的颜色值，因为系统中有很多【黄色】，如果是条件格式而来的，你需要提供条件格式的公式追问

和y颜色啥关系