如何不新增列让单元格输入内容自动追加根URL生成超链接

你可以通过工作表Change事件实现自动转换，操作步骤如下：

1. 打开目标工作表，按Alt+F11调出VBA编辑器
2. 在左侧项目管理器中双击对应工作表名称，粘贴如下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理单个单元格的编辑场景
    If Target.CountLarge > 1 Then Exit Sub
    ' 空单元格不处理
    If Target.Value = "" Then Exit Sub
    
    Dim inputText As String, linkText As String, linkUrl As String
    inputText = Trim(Target.Value)
    ' 生成首字母大写的显示文本
    linkText = UCase(Left(inputText, 1)) & LCase(Mid(inputText, 2))
    ' 拼接跳转链接
    linkUrl = "https://foo.com/" & linkText
    
    ' 关闭事件避免递归触发
    Application.EnableEvents = False
    ' 给当前单元格设置超链接
    Target.Hyperlinks.Add Anchor:=Target, Address:=linkUrl, TextToDisplay:=linkText
    Application.EnableEvents = True
End Sub

3. 将文件保存为xlsm启用宏的格式即可生效。后续在该工作表任意单元格输入文本回车，都会自动转换为对应超链接，无需新建列。

如果你不需要自动将输入内容首字母大写，直接删掉代码中大小写转换的对应逻辑即可。

通过Apps Script的onEdit触发器实现，操作步骤如下：

1. 打开目标表格，点击顶部菜单栏「扩展程序」-「Apps Script」
2. 清空默认代码，粘贴如下代码：

function onEdit(e) {
  const range = e.range;
  // 多单元格编辑、空内容不处理
  if (range.getNumRows() > 1 || range.getNumColumns() > 1 || !e.value) return;
  
  const inputText = e.value.trim();
  const linkText = inputText.charAt(0).toUpperCase() + inputText.slice(1).toLowerCase();
  const linkUrl = `https://foo.com/${linkText}`;
  // 给当前单元格设置超链接
  range.setRichTextValue(SpreadsheetApp.newRichTextValue()
    .setText(linkText)
    .setLinkUrl(linkUrl)
    .build());
}

3. 点击保存按钮，按照提示授权脚本权限后回到表格即可生效。

内容的提问来源于stack exchange，提问作者Tiel