VBA：无法在所有工作表中select一个单元格

我有这个查询，删除第一行以外的所有工作表中的所有数据。 我想只是激活单元格“A2”以及每个这些工作表，但不能完全弄明白。 有任何想法吗？

Sub ClearWorkbook() Dim Current As Worksheet For Each Current In Worksheets Current.Rows("2:" & Rows.Count).ClearContents Next End Sub 

Answer 1

总结评论：

 Sub ClearWorkbook() Dim Current As Worksheet For Each Current In Worksheets If Current.Cells(Current.Rows.Count, "A").End(xlUp).Row >= 2 Then Current.Rows("2:" & Current.Cells(Current.Rows.Count, "A").End(xlUp).Row).ClearContents End If Current.Activate Current.Range("A2").Select Next End Sub