最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 12790|回复: 56

[VBA/VBS教程] 一次性删除工作薄中的所有公式

  [复制链接]

154

主题

28

听众

5098

积分

解答支持团员

Rank: 14Rank: 14Rank: 14Rank: 14

签到天数: 1 天

[LV.1]初来乍到

金币
2784
威望
11087
帖子
2620
精华
0

技术分享团 解答支持团 测试体验团 优秀会员奖 活跃会员奖 乐于助人奖 技巧教程分享达人

发表于 2014-7-11 16:14 |显示全部楼层
分享到: 新浪微博 腾讯微博
前两天有人在问答求助区想找一个方便的方法,可以一次性删除表格中的所有公式,把值固定下来。  _. P/ O- _, N2 y+ U3 {

' s! S# u* F+ w- R. w7 a手工操作的方法是:每个Sheet都做一次 全选→复制→ 选择性粘贴→ 值8 M; _( n! ]) J) m' z

% w( o8 P6 x0 M' G; ~如果sheet比较多,可以考虑写个VBS脚本。1 k7 I  p5 m2 Q- I5 L
9 A# @! B. R- O1 |
脚本代码如下,三层循环
0 c  }5 r$ I" w6 K最外层 表/ N9 i" u$ t  D
第二层 行/ z; m$ b9 s0 h& _' N' j: ~/ @
第三层 列
/ G' M0 t  r: i$ q: G, A- O
3 j. j  \4 c" w! U' Y  R代码如下:- c! m6 A8 ]; o
Dim Workbook, ActiveSheet3 s$ X% x& I* V( Y- f' Q
Set Workbook = ExcelApp.ActiveWorkbook
) m3 \2 C& s- L) j/ \: J9 I$ G3 V# rSet ActiveSheet = Workbook.ActiveSheet
; B+ K, }9 Q" V- HDim MaxRow, MaxCol" O  h& |. |& v3 {* p: Z7 d: [
% M9 K8 X* p' \% D: Y; [
For Each Sheet In workbook.worksheets
  p; ]- b) F2 h; I MaxRow = Sheet.UsedRange.Row + Sheet.UsedRange.Rows.Count-1
7 }6 k! d: p; s+ i- I/ ? MaxCol = Sheet.UsedRange.Column + Sheet.UsedRange.Columns.Count-1+ J% ]& |) y! ~* q* l# a
Wscript.Echo "处理" & Sheet.Name & "..."
: O3 W1 A, h! d! f/ _ For Row = 1 To MaxRow
: F7 A) h9 u. f; a* g% u. }+ U7 }  For Col = 1 To MaxCol$ }6 a' r$ Y$ \# j" R' e2 Y
   If Sheet.Cells(row, col).HasFormula Then* {' y7 j2 H2 y1 g  Y+ p& V/ f8 i
    Sheet.Cells(row, col) = Sheet.Cells(row, col).Value2 G& E" B) l, l. K6 @) ~
   End If   
' q; Q8 `) t# Q  Next  ; }  m4 r/ w1 q
Next
- A0 C, }9 Z, d& PNext' V( T5 ]  G" d7 U- z" I  d
MsgBox "Done"1 i/ T( N+ [! Q* |: x( X# }

  G2 d& {% Y1 `9 t1 \% I全文见附件:7 Q' V9 \* O0 p  f
使用方法:打开要去公式的xls,xlsx文件后,双击运行附件提供的vbs文件。7 m9 z3 k; C9 z" J! k5 g
8 `2 w9 z+ W0 `, E' p
' W/ h' g6 E+ d0 D3 o
8 P; k+ u0 x# E2 @" \( {! F" Q# o

( c: {. P5 i  w3 M' Y( f* q9 Y

本帖子中包含更多资源

您需要 登录 才可以下载或查看,

已有 4 人评分威望 收起 理由
木偶251900 + 10 学习了!
松风水月 + 12 感谢分享!
翘尾的k + 12 别看我,哥只是挤到前排看看~~~.
轩少 + 12 我们家的汪星人也喜欢你的帖子!.

总评分: 威望 + 46   查看全部评分

53

主题

60

听众

6715

积分

版主

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

签到天数: 126 天

[LV.7]常住居民III

金币
634
威望
13773
帖子
3973
精华
2

WPS粉丝团 技术分享团 乐于助人奖 技巧教程分享达人 优秀会员奖 活跃会员奖 测试体验团 版主勋章 勤奋版主奖 最佳教程奖 测试体验官 优秀模板奖

发表于 2014-7-19 16:27 |显示全部楼层
有点事忙,来迟啦,支持一个

点击了解最新动态:【轩少】__实用教程索引(2015-9-6更新)
http://bbs.wps.cn/forum.php?mod= ... amp;fromuid=2404273
回复

使用道具 举报

9

主题

22

听众

1万

积分

测试体验团员

Rank: 14Rank: 14Rank: 14Rank: 14

签到天数: 1207 天

[LV.10]以坛为家III

金币
2179
威望
26709
帖子
6220
精华
0

优秀会员奖 活跃会员奖 乐于助人奖 测试体验团

发表于 2014-7-19 17:18 |显示全部楼层

0 v7 X3 \* B6 C9 S  D# G! \! K好帖子,来支持了!
回复

使用道具 举报

6

主题

1

听众

1344

积分

LV.7

Rank: 7Rank: 7Rank: 7

签到天数: 114 天

[LV.6]常住居民II

金币
295
威望
3797
帖子
317
精华
0
发表于 2014-7-25 19:02 |显示全部楼层
谢谢楼主,试了一下,省事多了
回复

使用道具 举报

6

主题

1

听众

1344

积分

LV.7

Rank: 7Rank: 7Rank: 7

签到天数: 114 天

[LV.6]常住居民II

金币
295
威望
3797
帖子
317
精华
0
发表于 2014-7-27 04:46 |显示全部楼层
谢谢楼主的无私奉献,我又学到了不少知识
回复

使用道具 举报

0

主题

0

听众

7

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
10
帖子
8
精华
0
发表于 2014-8-6 16:57 |显示全部楼层
好用,学习了,收藏了,以后肯定用的着。
回复

使用道具 举报

0

主题

0

听众

42

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
62
帖子
39
精华
0
发表于 2014-8-16 17:26 |显示全部楼层
# R. T9 Z0 z- H' I& [3 }
进来看看,也必须赞一个.顶
回复

使用道具 举报

1

主题

0

听众

15

积分

LV.1

Rank: 1

签到天数: 1 天

[LV.1]初来乍到

金币
1
威望
30
帖子
11
精华
0
发表于 2014-8-17 15:39 |显示全部楼层
好帖子,来支持了!
回复

使用道具 举报

1

主题

0

听众

15

积分

LV.1

Rank: 1

签到天数: 1 天

[LV.1]初来乍到

金币
1
威望
30
帖子
11
精华
0
发表于 2014-8-17 15:41 |显示全部楼层
好帖子,来支持了!
回复

使用道具 举报

0

主题

0

听众

10

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
14
帖子
9
精华
0
发表于 2014-10-21 18:19 |显示全部楼层
好帖,支持了
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛 ( 粤公网安备 44049102496073号 粤ICP备13015957号-1   

GMT+8, 2018-1-22 16:38

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部