我有一个文件夹里面都是excel我想用一个vba代码 让每个excel表格的单元格都变成文本文字

以下是一个用VBA将Excel中所有表格的单元格转换为文本的代码：

Sub ConvertCellsToText()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng As Range
    
    Application.ScreenUpdating = False '禁用屏幕更新以提高速度
    
    Set wb = ThisWorkbook '设置当前工作簿
    
    For Each ws In wb.Worksheets '遍历所有工作表
        Set rng = ws.UsedRange '设置用于转换的范围
        rng.NumberFormat = "@" '将格式设置为文本
    Next ws
    
    Application.ScreenUpdating = True '启用屏幕更新
    
    MsgBox "已将所有单元格转换为文本。"
End Sub

将此代码复制到Excel的VBA编辑器中，然后运行它。它将遍历当前工作簿中的所有工作表，并将每个表格的单元格格式设置为文本