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 编辑器中，然后运行它。它将遍历当前工作簿中的所有工作表，并将每个表格的单元格格式设置为文本。