运行时错误“1004” - 工作表类的选择方法失败

Question

所以我正在尝试创建一个宏，其中所有工作表都将返回到单元格 A1。除此之外，如果工作表上有冻结的单元格，此宏还将在所有工作表上向上和向左滚动。此代码的最后一段将返回到所需的工作表。

当我进入这段代码时，我在第三张纸的开头收到了这个 1004 错误。这个excel有8张。

Sub Retun_to_A1()

'Retun_to_A1 Macro

 'returns selected cell to A1

 'Keyboard Shortcut: Ctrl+Shift+A

    For Each ws In ActiveWorkbook.Sheets
    ws.Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    Do Until Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Height > 0
    ActiveWindow.ScrollRow = ActiveWindow.ScrollRow + 1
    Loop
    Do Until Cells(ActiveWindow.ScrollColumn, ActiveWindow.ScrollColumn).Width > 0
    ActiveWindow.ScrollColumn = ActiveWindow.ScrollColumn + 1
    Loop
    Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Select
    Next ws
    For Each ws In ActiveWorkbook.Sheets
    ws.Select
    Range("A1").Select
    Next ws
    Sheets("JE Summary").Select
End Sub

更新

Sub Retun_to_A1()
'
' Retun_to_A1 Macro
' returns selected cell to A1
'
' Keyboard Shortcut: Ctrl+Shift+A
'
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If Not ws.ProtectContents And ws.EnableSelection = xlNoRestrictions And ws.Visible = xlSheetVisible Then
        Dim rng As Range
        Set rng = ws.Cells.SpecialCells(xlCellTypeVisible).Cells(1)
        
        Application.Goto rng, True
    End If
Next

Sheets(5).Select

End Sub

Answer 1

这里不使用Select，而是使用Application.GoTo。另请注意，您实际上需要能够选择有问题的单元格...可能类似于以下内容：

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If Not ws.ProtectContents And ws.EnableSelection = xlNoRestrictions And ws.Visible = xlSheetVisible Then
        Dim rng As Range
        Set rng = ws.Cells.SpecialCells(xlCellTypeVisible).Cells(1)
       
        Application.Goto rng, True
    End If
Next