Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.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_Vba - Fatal编程技术网

宏删除Excel中所有现有图纸的第一行

宏删除Excel中所有现有图纸的第一行,excel,vba,Excel,Vba,我有一个excel文件,大约有300张工作表,我需要删除第一行。 您能建议使用VBA代码来执行此操作吗 提前谢谢 至少尝试发布您尝试过的内容 以下代码将删除活动工作簿中所有工作表中的第一个 Sub LoopThroughSheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Range("1:1").Delete Next ws End Sub 至少尝试发布您尝试过的

我有一个excel文件,大约有300张工作表,我需要删除第一行。 您能建议使用VBA代码来执行此操作吗


提前谢谢

至少尝试发布您尝试过的内容

以下代码将删除活动工作簿中所有工作表中的第一个

Sub LoopThroughSheets()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets

     ws.Range("1:1").Delete

    Next ws
End Sub

至少尝试发布您尝试过的内容

以下代码将删除活动工作簿中所有工作表中的第一个

Sub LoopThroughSheets()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets

     ws.Range("1:1").Delete

    Next ws
End Sub

尝试对每张图纸使用
循环:)。祝您度过愉快的一天:)尝试对每张图纸使用
循环:)。祝你有愉快的一天:)我尝试了这两个建议。第一个没有运行,但第二个(由Sathish K提供)完成了任务。谢谢你们!很高兴我能帮忙。别忘了接受适当的回答我尝试了这两个建议。第一个没有运行,但第二个(由Sathish K提供)完成了任务。谢谢你们!很高兴我能帮忙。请不要忘记接受相应的回答。请在删除后的第一行,用task do replace all“”替换为“”(带空符号)来更新宏。我的意思是,在删除第一行之后,要对每张图纸中新的第一行进行替换。如果用两个周期完成,也可以。您好,请在删除后的第一行中,用task do replace all“”更新宏。我的意思是,在删除第一行之后,要对每张图纸中新的第一行进行替换。如果用两个循环完成,也可以。