重置所有单元格选中位置到A1
首先在EXCLE的常用里打开'开发'
指定快捷键
插入代码
Sub Macro1()
' reset Sheets
' Macro1 Macro
'
Dim pageCount As Integer
pageCount = Sheets.Count
For i = 1 To pageCount
If (Sheets(i).Visible = True) Then
Sheets(i).Select
Range("A1").Select
End If
Next i
Sheets(1).Select
Range("A1").Select
End Sub
保存即可