VBA SUB chuyển toàn bộ sheet trong file thành Value.

Sub Value_file()

    Dim wb As Workbook

    Dim ws As Worksheet

    Set wb = ActiveWorkbook

    For Each ws In wb.Sheets

        Application.ScreenUpdating = False

        ws.UsedRange.Copy

        ws.Range("A1").PasteSpecial xlPasteValues

        Application.CutCopyMode = False

        Application.ScreenUpdating = True

    Next ws

'Convert

End Sub