通过VBA的不同工作表中删除行
如果您想删除所有类似的行号，那么本文适合您。
在本文中，我们将学习如何通过宏摆脱多个工作表中的同一行。
===
问题）：我想使用VBA代码在多个工作表中删除同一行。我想要的代码是删除工作簿中的所有行，而不管当前文件中有多少张纸。我想从所有5张纸上删除所选的行号。
首先，让我们在相同位置的所有工作表中输入相似数据
我们需要执行以下步骤：
单击“开发人员”选项卡。从“代码”组中选择“ Visual Basic”
在标准模块中输入以下代码：-
子DeleteRows（）
Dim shtArr，i长，xx长
shtArr = Array（“ Sheet1”，“ Sheet2”，“ Sheet3”，“ Sheet4”，“ Sheet5”）
xx = Selection.Row
对于i = LBound（shtArr）到UBound（shtArr）
Sheets（shtArr（i））。Rows（xx）.EntireRow.Delete
下一个我
结束子
===
-
现在将光标放在任何单元格A1和Sheet1上。
按ALT + F8 *运行宏；您会发现在所有工作表中都删除了选定的行号。
-
以下快照以工作表1和工作表2数据为例；当您运行此练习时，您将在所有相应的工作表中找到相似的解决方案。