Excel使用VBA小程序的方法

　　我经常推荐大家使用微软Office而非WPS的主要原因，就是因为微软Office支持写VBA进行二次功能开发，可以写小程序对常见重复性工作进行自动化，大大提高工作效率，提升幸福度。

　　这里介绍下如果别人给了一段代码，要如何进行使用。例如下述程序，可以新建、复制一份当前“工作薄”，并将所有公式转为数值，方便发布给别人查阅。

Sub 去除公式转为数值工作薄()
'[1] 初始化
tt = Timer ' 计时器
With Application
.ScreenUpdating = False '关闭屏幕更新加快执行速度
.DisplayAlerts = False
End With

'[2] 一个个sheet进行复制
Set wkb0 = ActiveWorkbook
Set wkb = Workbooks.Add '新建一个xlsx文件
wkb.Sheets("Sheet1").name = "__保证不重名__"

For Each st In wkb0.Sheets
On Error Resume Next '偶尔一些表格会出错，暂时还找不到原因
st.Copy After:=wkb.Sheets(wkb.Sheets.Count)
Set newSt = wkb.Sheets(st.name)
' 每个单元格依次查看修改，否则批量修改遇到开了筛选的表格会出错
Set rng = ActiveSheet.UsedRange
For Each c In rng.Cells
If c.HasFormula Then
c.Value = c.Value
End If
Next
Next st

wkb.Sheets("__保证不重名__").Delete

'[3] 结束
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
Debug.Print "ok,用时 " & Timer - tt & " 秒!"
End Sub


操作方法：



效果图：