保留数值，去掉函数公式

760636412

如附件: 保留数数值.zip (556.3 KB, 下载次数: 5)

2024-10-10 14:28 上传

点击文件名下载附件

附件有代码，有一要求没达到我想的，就是另存工作薄时，只保留数值，函数公式去掉，红色圈出来的里面是有函数公式的，谢谢，求大神指教下。

lc16whj

复制一份工作表副本，全选，复制，选择性粘贴为值！

sxbjzjf110

Cells.Select     Selection.Copy     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False

sxbjzjf110

加一句代码
Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

sdytsxd991122

ykcbf1100

小改一下，供参考。。。

ykcbf1100

小改一下。。。

autohotey

直接把整张表粘贴为值不就好了。

1. Sub Call转XLS对账单()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.    
   
5.     Worksheets("对账单").Copy
   
6.     With ActiveWorkbook
   
7.         For Each shp In.Sheets(1).Shapes
   
8.             shp.Delete
   
9.         Next shp
   
10.         
    
11.         [color=Red]' 将新工作簿的第一个工作表粘贴为值
    
12.        .Sheets(1).UsedRange.Value =.Sheets(1).UsedRange.Value[/color]
    
13.         
    
14.         ActiveWorkbook.SaveAs Filename:="E:\2-进销存管理\XLS账单" & [F3] & "月" & [E5] & "报表.xls"
    
15.       .Close
    
16.     End With
    
17.     Application.DisplayAlerts = True
    
18.     Application.ScreenUpdating = True
    
19.     MsgBox "完成！"
    
20. End Sub

复制代码