我有一个文件夹里面都是excel我想用一个vba代码 让每个excel表格的单元格都变成数值不含公式

以下是一个可以实现您所需功能的VBA代码：

Sub ConvertToValues()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim cell As Range
    
    '遍历文件夹中的每个Excel文件
    Dim folderPath As String
    folderPath = "C:\YourFolderPath" '替换为您的文件夹路径
    Dim fileName As String
    fileName = Dir(folderPath & "\*.xlsx")
    Do While fileName <> ""
        Set wb = Workbooks.Open(folderPath & "\" & fileName)
        
        '遍历每个工作表中的所有单元格
        For Each ws In wb.Worksheets
            For Each cell In ws.UsedRange
                cell.Value = cell.Value
            Next cell
        Next ws
        
        wb.Close SaveChanges:=True
        fileName = Dir()
    Loop
End Sub

将代码中的文件夹路径替换为您要处理的文件夹路径，然后运行该宏即可将每个Excel文件中的所有单元格转换为数值（不含公式）