excel函数怎么设置当前数值,数值,函数,设置

1.如何让文件夹内的所有Excel表格公式变为当前数据

Sub 批量去公式化（）

Dim WK As Workbook, D As String, MyDir As String, Sht As Worksheet

D = "F：\测试文件夹\" '设定文件夹目录地址，后面多加一个斜杠

MyDir = Dir(D & "*.xls?", vbNormal)

Application.ScreenUpdating = False

Do While MyDir <> ""

Set WK = Application.Workbooks.Open(D & MyDir)

For Each Sht In WK.Worksheets

Sht.Activate

Sht.UsedRange.Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Sht.Range("A1").Select

Next

WK.Save

WK.Close

MyDir = Dir

Loop

Application.ScreenUpdating = True

End Sub

请先新建一个文件夹，随便建几个有公式的EXCEL文件在里面，然后测试以上宏成功后再应用此宏。为防意外，你最好先复制你的数据文件夹，以备用。