批量提取超链接文本、标题和内容(网址)。

今天的问题是如何批量提取工作簿中所有工作表的超链接，把标题和对应的内容就是网址给提取出来。

·左边是第一个表的元素，它有对应大学名称，北京大学、清华大学、复旦大学等等。这个有一些字段加了下划线的表示它是网址，比如点这个就可以发现它现在是北京大学的官网。而这个张三是单独的文本，其他两张表也是一样的。

·这里看一下怎么用VBA的方法完成这一功能。首先找到开发工具，然后点击VBA，这里代码我已经写好了，把它删了，把它删除。

·找到当前的工作表文件，然后右键新建模块，这里输入刚才的代码，这个代码我放在评论区。这个代码是把当前工作簿中所有的工作表对应的超连接都提取出来，并且放在一个新的表格进行运算。

·现在可以看到它就放在了新的工作表，之前只有3个，现在新建了一个，并且把内容放在这里了，分为两列，超链接的标题和超链接的内容都提取出来了，也是比较很好的实现了效果。

任务完成，收工下班。