如何批量把多个sheet表里同一行，由公式改为数值

如何批量把多个sheet表里同一行（比如100个sheet表里的都是第十行），由公式改为数值

Sub t()
    Dim sht As Worksheet, rng As Range
    For Each sht In Worksheets
        If sht.Name <> "汇总" Then
            With sht
                Set rng = .Range(Cells(1, 1), Cells(25, .UsedRange.Columns.Count))
                rng = rng.Value
            End With
        End If
    Next
End Sub

或者选中所有sheet表，选中2-25行的区域，复制--选择性黏贴“值”，搞定