Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4291|回复: 16

[VBA特2期]抢9:选中批注中具有特定字符的所有单元格

[复制链接]
发表于 2010-12-6 15:45 | 显示全部楼层 |阅读模式
<p>[VBA特2期]抢9:选中批注中具有特定字符的所有单元格</p><p>假设当前工作表中有很多单元格都批注,其中有的批注中含有字符“EP”,请编代码将这些单元格选中</p>
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2010-12-6 15:55 | 显示全部楼层

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

发表于 2010-12-6 16:01 | 显示全部楼层

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

发表于 2010-12-6 16:01 | 显示全部楼层

[em01]
回复

使用道具 举报

发表于 2010-12-6 16:03 | 显示全部楼层

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

发表于 2010-12-6 16:04 | 显示全部楼层

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

发表于 2010-12-6 20:48 | 显示全部楼层

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

发表于 2010-12-6 21:27 | 显示全部楼层

Sub Macro2()<br/>&nbsp;&nbsp;&nbsp; Set pz = Cells.SpecialCells(xlCellTypeComments)<br/>&nbsp;&nbsp;&nbsp; Dim rng As Range<br/>&nbsp;&nbsp;&nbsp; Dim s As String<br/>&nbsp;&nbsp;&nbsp; s = ""<br/>&nbsp;&nbsp;&nbsp; For Each rng In pz<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(rng.Comment.Text, "EP") Then s = s &amp; "," &amp; rng.Address<br/>&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp; s = Mid(s, 2)<br/>&nbsp;&nbsp;&nbsp; Range(s).Select<br/>End Sub<br/>
回复

使用道具 举报

发表于 2010-12-7 00:13 | 显示全部楼层

游客,如果您要查看本帖隐藏内容请回复

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
回复

使用道具 举报

发表于 2010-12-10 22:47 | 显示全部楼层

<p>
游客,如果您要查看本帖隐藏内容请回复
</p>
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-20 04:03 , Processed in 0.229717 second(s), 5 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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