有的時候，我們希望把表中的公式提取出來，進行保存！

少量，我們可以手動復(fù)制，量大，猝……

所以我們今天就分享一下如何一鍵提取

用什么，VBA上吧！

還是老規(guī)矩，我們先看一下動畫效果

動畫效果

制作教程

這里我們使用VBA代碼處理，才能達到一鍵的效果

具體代碼如下，已注釋

源碼:

Option Explicit'日期：2020-5-15'作者：EXCEL辦公實戰(zhàn)-小易'功能：提取EXCEl中的所有公式'---------------------------------------------------Sub getAllFormula() Dim allFormulaRng As Range, fmRng As Range Dim sht As Worksheet Dim arFormula(1 To 100000, 1 To 4) Dim n As Long For Each sht In ThisWorkbook.Worksheets On Error Resume Next '已使用區(qū)域中定位公式 Set allFormulaRng = sht.UsedRange.SpecialCells(xlCellTypeFormulas) If Err = 0 Then If Not allFormulaRng Is Nothing Then For Each fmRng In allFormulaRng n = n + 1 With sht arFormula(n, 1) = n - 1 '序號 arFormula(n, 2) = sht.Name '表名 arFormula(n, 3) = fmRng.Address(0, 0) '地址 arFormula(n, 4) = fmRng.Formula '公式 End With Next End If Else '無公式，打印表名和錯誤說明 Debug.Print sht.Name & "_" & Err.Description Err.Clear End If Next '寫入結(jié)果 With Sheets("公式") .Cells.Clear With .Columns("A:F") .Font.Size = 11 .Font.Name = "Microsoft YaHei UI" .HorizontalAlignment = xlLeft .NumberFormatLocal = "@" End With .[A1].Resize(1, 4) = Array("序號", "表名", "地址", "公式") .[A2].Resize(n, 4) = arFormula .Columns("A:F").AutoFit End WithEnd Sub

如果使用

具體參考：番外篇-EXCEL如何使用宏(VBA)

這里也稍微講一下，可能部分同學(xué)沒細(xì)去看過

使用步驟:

1、復(fù)制代碼：Ctrl+C 直接復(fù)制，沒什么講的

2、進入VBE，粘貼代碼

3、修改表名為公式-用于存放結(jié)果

4、插入控件，綁定代碼

5、點擊按鈕，執(zhí)行

動畫演示：

小結(jié)

當(dāng)我們?nèi)腴TEXCEL后，可以慢慢去學(xué)習(xí)VBA，VBA的強大之處，就是可以把重復(fù)的、繁瑣、有邏輯的事情，一鍵搞定

最后建議：收藏備查，覺得不錯，分享一下！

總結(jié)

以上是生活随笔為你收集整理的excel vba编程代码大全_实战VBA代码一键提取EXCEL中的所有公式！的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。