注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

秦王李世民的博客

大航海游戏爱好者请进

 
 
 

日志

 
 

去除Excel表单元格中的超级链接  

2010-09-09 09:10:45|  分类: VAB Excel |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

1.删除Excel表中所有单元格的超级链接

Sub 删除所有超级链接()
    Cells.Select
    Selection.Hyperlinks.Delete
End Sub


2.删除指定区域单元格的超级链接

Sub 删除指定区域超级链接()
Dim i, j
    For i = 1 To 1000                         '1至1000行
        For j = 1 To 35                         '1至35列
            Cells(i, j).Select
            Selection.Hyperlinks.Delete
        Next j
    Next i

End Sub

 

3.删除选定区域单元格的超级链接

Sub 删除选定区域超级链接()

Dim Hs1, Hs2, Ls1, Ls2
    '选定区域
    Hs1 = Selection.Row                                                                  '起始行数
    Ls1 = Selection.Column                                                             '起始列数
    Hs2 = Hs1 + Selection.Rows.Count - 1                                       '结束行数
    Ls2 = Ls1 + Selection.Columns.Count - 1                                  '结束列数

    For i = Hs1 To Hs2
        For j = Ls1 To Ls2
            Cells(i, j).Select
            Selection.Hyperlinks.Delete
        Next j
    Next i

End Sub

 

主要用于Excel表复制粘贴网页后的整理

  评论这张
 
阅读(816)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017