如何从所有excel工作表中删除任何行?
如何从所有具有值如何从所有excel工作表中删除任何行?,excel,excel-2007,vba,Excel,Excel 2007,Vba,如何从所有具有值Id 所有图纸都有Id行作为位置2nd 所以我可以从所有excel工作表中删除第二行 请引导我,给我任何链接 谢谢 下面的代码运行良好,但仅适用于打开的工作表 如何循环浏览工作簿中的每张工作表 您可以使用以下方法循环浏览工作簿中的所有工作表: Option Explicit Sub LoopThroughWorksheets() 'declare a worksheet to loop through the workbook with Dim SheetIdx As Work
Id
所有图纸都有Id
行作为位置2nd
所以我可以从所有excel工作表中删除第二行
请引导我,给我任何链接
谢谢
下面的代码运行良好,但仅适用于打开的工作表
如何循环浏览工作簿中的每张工作表
您可以使用以下方法循环浏览工作簿中的所有工作表:
Option Explicit
Sub LoopThroughWorksheets()
'declare a worksheet to loop through the workbook with
Dim SheetIdx As Worksheet
For Each SheetIdx In ThisWorkbook.Worksheets
'
'do stuff here
'
'for example, if you wanted to show the name of each sheet
'in the workbook, you could add the following line:
MsgBox (SheetIdx.Name)
Next SheetIdx
End Sub
请告诉我们你到目前为止试过什么?我试过一个宏,但它不起作用。你能说明它怎么不起作用吗?它不起作用,我用谷歌搜索它并试图修改这个1,有人能帮我吗?我是excel和Macro新手您只想删除所有工作表中的所有
第二行
?或者包含Id
的单元格在不同的工作表中是否不同?
Option Explicit
Sub LoopThroughWorksheets()
'declare a worksheet to loop through the workbook with
Dim SheetIdx As Worksheet
For Each SheetIdx In ThisWorkbook.Worksheets
'
'do stuff here
'
'for example, if you wanted to show the name of each sheet
'in the workbook, you could add the following line:
MsgBox (SheetIdx.Name)
Next SheetIdx
End Sub