转到每个工作表中的单元格并刷新的Excel VBA (F2+Enter)

Sub RefreshCellsInAllSheets()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range

    ' 设置你要刷新的单元格范围，例如 A1
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1")

    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Sheets
        ' 设置焦点到指定单元格
        ws.Activate
        ws.Range(rng.Address).Select
        
        ' 模拟按下F2键（进入编辑模式）
        Application.SendKeys "{F2}", True
        
        ' 模拟按下Enter键（确认编辑）
        Application.SendKeys "{ENTER}", True
    Next ws
End Sub

Sub RefreshCellInAllSheets()
    Dim ws As Worksheet
    Dim rng As Range

    ' 设置你要刷新的单元格范围，例如 A1
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1")

    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Sheets
        ' 刷新指定单元格
        ws.Range(rng.Address).Calculate
    Next ws
End Sub