Question

批量删除同工作簿下多个Excel工作表的第2行？用宏代码或函数帮解决。

Answer 1

这个不需要宏吧。
在工作表表名上右键，里面有选定所有工作表
然后删除第二行，此时，所有工作表因为是群组状态，所以第二行就一起被删除了。
删除后，一定要取消群组状态，不然修改一个单元格，所有工作表都会一起修改。

Answer 2

是清空内容还是删除？

如果是清空内容，就是把2行内容摸了，但是3行还在3行，那么用下面的宏代码：
Sub x()
Dim st
For Each st In Sheets
st.Rows(2).ClearContents
Next st

End Sub

如果是删除内容，就是3行变为2行，那么用下面的宏代码：
Sub x()
Dim st
For Each st In Sheets
st.Rows(2).Delete

Next st
End Sub

Answer 3

1. 在工作表标签上单击右键--全选工作表
2.选择任一工作表的第二行--右键---删除
3.在任意工作表标签上单击一下左键,
任务完成

Answer 4

Sub 删除()
 Application.DisplayAlerts = False
For Each ws In Worksheets
    ws.Rows(2).Delete
Next
 Application.DisplayAlerts = True
End Sub

Answer 5

选中多个工作表后直接删得了，用啥子函数呵！