[已解决]如何批量加美元符号？

Kratos

我现在想先拉一个公式，比如公式是=sum(A1:Z1)，然后向下拉就可以使2，3，4。。。在这之后我还想把所有的引用都加上美元符号，请问有什么快捷简便的方法呢？

最佳答案

月排行榜 / 总排行榜

业余爱好者

2011-9-1 11:02

Kratos 发表于 2011-9-1 10:57
回复 业余爱好者 的帖子

不对啊，这么做变成结果前面加上$了……不好意思，好像是我没说清楚，我的意思是要 ...

这要用代码了

兰色写的

使用方法,选取公式区域,然后执行下面的程序
Sub changeyinyong()
For Each mrg In Selection
SendKeys "{F2}" '按F2键进入编辑状态
SendKeys "+{home}"  '按shift+home组合键全选公式部分
SendKeys "{F4}"  '按f4键转换
SendKeys "{enter}"  '跳出单元格编辑模式
Next mrg
End Sub

跳转到最佳答案楼层

业余爱好者

单元格格式设置一下就是了

如:$#

Kratos

回复 业余爱好者 的帖子

不对啊，这么做变成结果前面加上$了……不好意思，好像是我没说清楚，我的意思是要原来公式里面是相对引用，可以拖拉公式，完毕之后我想该成绝对引用，所以加上美元符号来定型公式~

Kratos

回复 业余爱好者 的帖子

也就是把=sum(A1:Z1),=sum(A2:Z2),=sum(A3:Z3)....一下子都变成=sum($A$1:$Z$1),=sum($A$2:$Z$2)....有好几百个呢，所以想要求一种简单的办法，有木有呢？

业余爱好者

Kratos 发表于 2011-9-1 10:57
回复 业余爱好者 的帖子

不对啊，这么做变成结果前面加上$了……不好意思，好像是我没说清楚，我的意思是要 ...

这要用代码了

兰色写的

使用方法,选取公式区域,然后执行下面的程序
Sub changeyinyong()
For Each mrg In Selection
SendKeys "{F2}" '按F2键进入编辑状态
SendKeys "+{home}"  '按shift+home组合键全选公式部分
SendKeys "{F4}"  '按f4键转换
SendKeys "{enter}"  '跳出单元格编辑模式
Next mrg
End Sub

Kratos

回复 业余爱好者 的帖子

这个给力啊！没想到按键也可以编进vba，神迹阿！

Kratos

回复 业余爱好者 的帖子

请问高手能否帮我解决以下这个问题呢？求助如何用vba破解宏密码？
http://www.excelpx.com/forum.php?mod=viewthread&tid=197372&fromuid=445347
或者蓝色有木有类似程序呀？

lotte

不需要代码也能解决啊