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

 找回密码
 
查看: 12048|回复: 55

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

  [复制链接]

154

主题

27

听众

5095

积分

解答支持团员

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

签到天数: 1 天

[LV.1]初来乍到

金币
2784
威望
11083
帖子
2618
精华
0

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

发表于 2014-7-11 16:14 |显示全部楼层
分享到: 新浪微博 腾讯微博
前两天有人在问答求助区想找一个方便的方法,可以一次性删除表格中的所有公式,把值固定下来。
* O4 N- L3 s! w  a. j6 M- M  w9 a1 R8 O% v8 R1 W
手工操作的方法是:每个Sheet都做一次 全选→复制→ 选择性粘贴→ 值
7 V( S+ t/ L, b7 |; n4 v
6 z, {/ }* ^7 l8 Y# S4 i! F( J0 g如果sheet比较多,可以考虑写个VBS脚本。
# Z* k0 j- n- s, y0 L% S9 L
- X+ ]: x9 T( w: ~, @: j脚本代码如下,三层循环, \3 D5 g1 ~/ R; K+ ^" N
最外层 表6 d1 @: M  y: y
第二层 行( `. O) z' L0 H
第三层 列
" y) x2 R; W/ U! v- ^7 s8 @* o* I1 s1 _
代码如下:
. @8 }" w1 ^, x0 Q; zDim Workbook, ActiveSheet( _: O" \" |2 H4 \
Set Workbook = ExcelApp.ActiveWorkbook
/ z' w/ l$ f9 ?Set ActiveSheet = Workbook.ActiveSheet
  ^3 ?5 U' a! Z; u1 m. X# Z! q0 v9 UDim MaxRow, MaxCol
% A' C3 ]3 s1 J; k, b
; a3 Q6 C( E$ Y* E# h2 L3 {For Each Sheet In workbook.worksheets
# N; g1 ^4 |  q- f0 ]- J3 f MaxRow = Sheet.UsedRange.Row + Sheet.UsedRange.Rows.Count-1! x# U. ]  s# K
MaxCol = Sheet.UsedRange.Column + Sheet.UsedRange.Columns.Count-1
5 u6 o: ^4 u7 ^) ? Wscript.Echo "处理" & Sheet.Name & "..."
7 X2 W- P* ?; w* O/ p  a4 \8 Q For Row = 1 To MaxRow  f5 E& t. r; j
  For Col = 1 To MaxCol1 a& H2 w) Q. V- L. x8 a# @
   If Sheet.Cells(row, col).HasFormula Then) L9 m; A9 w* m2 b
    Sheet.Cells(row, col) = Sheet.Cells(row, col).Value' U( Q( @! L* _- |
   End If    * |7 K8 ~, _9 b6 w# y8 e% q; Q3 N' ?
  Next  
, T& U  ?4 M* U2 s- {4 {3 S Next
! n% _% N/ r, Z% z+ s, U4 L' d4 vNext( O3 b2 m* O: t; N. ^5 b
MsgBox "Done"7 M0 z/ T1 \( O% D1 y
: S9 ~8 Y5 |9 w8 a5 p8 w
全文见附件:' O0 {/ J: l1 P$ I' h! N5 `
使用方法:打开要去公式的xls,xlsx文件后,双击运行附件提供的vbs文件。
0 z& N' c/ [$ ~! s3 R2 c: c5 ^; Q
& p: a  I3 D6 l- a# o  [
; q1 Q! U2 B3 T8 k4 J! B, ^: N

# U2 u" \! u9 R4 V1 N$ y7 R

本帖子中包含更多资源

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

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

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

53

主题

59

听众

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

签到天数: 1148 天

[LV.10]以坛为家III

金币
2120
威望
26168
帖子
6152
精华
0

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

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

/ i- A' K. n' f: k, F  v好帖子,来支持了!
回复

使用道具 举报

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 |显示全部楼层

  p! l& l% k( U. B+ y. @0 z9 E进来看看,也必须赞一个.顶
回复

使用道具 举报

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官方论坛     

GMT+8, 2017-11-20 08:06

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部