@BigBen是正确的，只有单元格有数字格式。（一堆单元格）也可以被赋予一种格式。循环遍历工作簿中的每个工作表，并将该工作表上的所有单元格设置为文本。本例设置的是Used Range而不是整个工作表，但过程将是类似的，您只需指定整个工作表。这并不困难我只是让这个例子保持简单。

Sub Format()
    Dim wkshCurrent As Worksheet
    
    For Each wkshCurrent In ActiveWorkbook.Worksheets
        wkshCurrent.UsedRange.NumberFormat = "@"
    Next wkshCurrent
End Sub