Удалить все строки из книги, которую я только что открыл VBA

Question

Проблема: мне нужно удалить все ячейки, кроме заголовка, я создал макрос, но не работает, говорит, что длина неверна

Вопрос: Как удалить все строки.

Я поставлю код, который я использую, чтобы открыть вторую книгу и мой код.

Sub FileChooser()

Dim FileR As String

On Error Resume Next

FileR = Application.GetOpenFilename(Title:="File chooser test", _
                            filefilter:="Excel files (*.xlsx), *.xlsx")


If Not FileR = "False" Then
    MsgBox FileR
End If


Workbooks.Open FileName:=FileR
End Sub

Sub DeleteRows()
Workbooks("DetailT.xlsx").Activate
  ThisWorkbook.Sheets("R_Online_2020").Range("2:1049576").Delete xlUp
End Sub

Answer 1

Попробуйте, пожалуйста:

Sub DeleteRows()
  Dim sh As Worksheet, wb As Workbook
    Set wb = Workbooks("DetailT.xlsx")
    Set sh = wb.Sheets("R_Online_2020")
     sh.Range("A2:A" & sh.Range("A" & sh.Cells.Rows.count).End(xlUp).Row).EntireRow.Delete shift:=xlUp
End Sub

Чтобы применить один и тот же процесс удаления ко всем листам книги, вы можете использовать следующий код:

Sub DeleteRowsOfAllSheets()
   Dim sh As Worksheet, wb As Workbook
     Set wb = Workbooks("DetailT.xlsx")
     For Each sh in wb.Sheets
         sh.Range("A2:A" & sh.Range("A" & sh.Cells.Rows.count).End(xlUp).Row).EntireRow.Delete shift:=xlUp
     Next
End Sub