Question

同工作簿下多个表格执行宏，应该如何做？

问题：同一个工作簿下面，多选工作表执行宏，但是只有第一个表格有变化，其他无变化，请问下面这个代码应该如何改：Sub 空值则删除整行()With ActiveSheetFor i = .[a65536].End(3).Row To 1 Step -1 '这里的1是你的表头行数If .Cells(i, 2) = "" Then .Rows(i).Delete '这里的2就是你的列数，可以自己替换NextEnd WithEnd Sub

Answer 1

Alt+F11打开VBA编辑器，右键ThisWrokbook，输入如下代码：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

With ActiveSheet

For i = .UsedRange.Rows.Count To 1 Step -1

If .Cells(i, 2) = "" Then .Rows(i).Delete

Next

End With

End Sub

然后保存文件类型为.xlsm，这样以后打开这个表格，点开每一张sheet都会自动把第2列为空的行删除

比如，原来表格：

运行宏后变成：

Answer 2

需要声明工作表类型，然后循环 例如：
Dim ws as worksheet
for each ws in worksheets
中间添加你的原来代码
next
这样就可以每个工作表都执行了

Answer 3

Sub 空值则删除整行()
For Each sh In Sheets
For i = sh.[a65536].End(3).Row To 1 Step -1
If sh.Cells(i, 2) = "" Then sh.Rows(i).Delete
Next
Next
End Sub

Answer 4

和你选择没有关系，这个代码只作用于当前表格
除非修改代码