excel怎么拉出1至100000(excel把公式计算的结果提取)

有的时候,我们希望把表中的公式提取出来,进行保存!少量,我们可以手动复制,量大,猝……所以我们今天就分享一下如何一键提取用什么,VBA上吧!还是老规矩,我们先看一下动画效果动画效果制作教程这里我们使用VBA代码处理,才能达到一键的效果具体代码如下,已注释源码:Option Explici…

有的时候,我们希望把表中的公式提取出来,进行保存!

少量,我们可以手动复制,量大,猝……

所以我们今天就分享一下如何一键提取

用什么,VBA上吧!

还是老规矩,我们先看一下动画效果

动画效果


excel怎么拉出1至100000(excel把公式计算的结果提取)

制作教程

这里我们使用VBA代码处理,才能达到一键的效果

具体代码如下,已注释


excel怎么拉出1至100000(excel把公式计算的结果提取)


excel怎么拉出1至100000(excel把公式计算的结果提取)

源码:

Option Explicit
'日期:2020-5-15
'作者:Excel办公实战-小易
'功能:提取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
'已使用区域中定位公式
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

'写入结果
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 With
End Sub

如果使用

具体参考:

番外篇-EXCEL如何使用宏(VBA)

这里也稍微讲一下,可能部分同学没有去看过

使用步骤:

1、复制代码:Ctrl+C 直接复制,没什么讲的

2、进入VBE,粘贴代码

3、修改表名为公式-用于存放结果

4、插入控件,绑定代码

5、点击按钮,执行

动画演示:



excel怎么拉出1至100000(excel把公式计算的结果提取)

小结

当我们入门EXCEL后,可以慢慢去学习VBA,VBA的强大之处,就是可以把重复的、繁琐、有逻辑的事情,一键搞定

最后建议:收藏备查,觉得不错,分享一下!

Excel办公实战,高效办公,每天进步一点点!

关注小编,下次精彩不迷路!

喜欢小编的文章,一定要点赞,关注,转发

您的鼓励是小编最大的动力!

趣懂得网所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体),仅供学习参考。用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权,请联系我们1875979182@qq.com 反馈 本站将在三个工作日内改正。

发表评论

您的电子邮箱地址不会被公开。