在新创build的工作簿中删除2张表中的第一行

我想制作一个复制两张纸的macros，并将其粘贴到一个新的工作簿中。

Sub Export_File() Dim Wb3 As Workbook Dim Wb4 As Workbook Dim strSaveName As String For Each wB In Application.Workbooks If Left(wB.Name, 9) = "Master BO" Then Set Wb3 = wB Exit For End If Next strSaveName = Worksheets("Communication").Range("a2").Value ' copy sheets to new workbook Sheets(Array("Auswertung", "Communication")).Copy ActiveWorkbook.SaveAs strSaveName Set Wb4 = ThisWorkbook End Sub 

一切正常 – 但现在我希望macros删除新工作簿中的两个工作表的第一行。

我想删除第一行的原因是我从我复制的文件中有一个导航栏。

希望可以有人帮帮我。

问候

Answer 1

 Sub Export_File() Dim Wb3 As Workbook Dim Wb4 As Workbook Dim strSaveName As String For Each wB In Application.Workbooks If Left(wB.Name, 9) = "Master BO" Then Set Wb3 = wB Exit For End If Next strSaveName = Worksheets("Communication").Range("a2").Value ' copy sheets to new workbook Sheets(Array("Auswertung", "Communication")).Copy ActiveWorkbook.Sheets("Auswertung").Rows(1).Delete ActiveWorkbook.Sheets("Communication").Rows(1).Delete ActiveWorkbook.SaveAs strSaveName Set Wb4 = ThisWorkbook End Sub