Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
楼主: 兰色幻想

[已解决]看似不能实现的技巧:批量替换批注的内容

  [复制链接]
发表于 2010-8-10 19:33 | 显示全部楼层
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

发表于 2010-8-10 19:34 | 显示全部楼层
回复

使用道具 举报

发表于 2010-8-11 15:09 | 显示全部楼层
回复

使用道具 举报

发表于 2010-8-12 07:43 | 显示全部楼层

Sub abc()<br/>&nbsp;&nbsp;&nbsp; For Each cl In ActiveSheet.Comments<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(cl.Text, "ab") Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cl.Text (Replace(cl.Text, "ab", "abceeffff"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next<br/>End Sub
回复

使用道具 举报

发表于 2010-8-13 08:47 | 显示全部楼层

<p>学习一下</p><p>&nbsp;</p><p>&nbsp;</p>[em01]
回复

使用道具 举报

发表于 2010-8-13 11:01 | 显示全部楼层

<p>向高手学习</p>
回复

使用道具 举报

发表于 2010-8-13 20:43 | 显示全部楼层

见所未见
回复

使用道具 举报

发表于 2010-8-18 22:34 | 显示全部楼层

学习
回复

使用道具 举报

发表于 2010-8-19 21:08 | 显示全部楼层

kankan 好好学习一下
回复

使用道具 举报

发表于 2010-8-22 22:56 | 显示全部楼层

<p>我也学习一下</p>
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-7-3 05:04 , Processed in 0.129541 second(s), 6 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表