Excel将网址字符串转成超链接

有一列的网页链接方式一：通过HYPERLINK()函数方式二：VBA宏运算在“视图”中点击“宏”输入创建宏的名称，点击创建输入vb代码Sub text2hyperlink()Dim R As RangeFor Each R In SelectionActiveSheet.Hyperlinks.Add R, R.TextNextEnd Sub选中网址，点击执行即可。...

DataWorkder_QIng

9550人浏览 · 2020-06-02 19:46:00

DataWorkder_QIng · 2020-06-02 19:46:00 发布

有一列的网页链接
方式一：通过HYPERLINK()函数
方式二：VBA宏运算
在“视图”中点击“宏”

输入创建宏的名称，点击创建

输入vb代码

Sub text2hyperlink()
 Dim R As Range
    For Each R In Selection
        ActiveSheet.Hyperlinks.Add R, R.Text
    Next
End Sub

在这里插入图片描述
选中网址，点击执行即可。

2048 AI社区

有“AI”的1024 = 2048，欢迎大家加入2048 AI社区

更多推荐

捡起python之：简单的任务系统

工作需要加之ai技术的应用再一次使python全面称王，博主大二时学习了python，现在需要捡一捡，今天的小项目是：简单的任务系统。

2048 AI社区

【AI】实战案例：用提示词生成微服务架构设计的思路

本文通过三个实战案例（电商订单、物流跟踪、在线教育）详细讲解如何用AI提示词生成微服务架构设计思路。每个案例包含需求分析、提示词设计、AI输出解析三部分，重点说明如何通过明确业务场景、核心功能、非功能需求等要素，让AI输出可落地的设计方案。案例展示了服务拆分、接口设计、中间件选型、性能优化等关键环节，并提供可直接复用的技术栈配置建议，帮助开发者快速构建符合业务需求的微服务架构。