Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何从所有excel工作表中删除任何行?_Excel_Excel 2007_Vba - Fatal编程技术网

如何从所有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