如何拆分单元格区域中混合存放的带超链接email id至单个单元格

一、Excel 环境实现（VBA宏方案，可完整保留原超链接） #

操作步骤：

1. 按Alt + F11打开VBA编辑器，右键左侧当前工作簿名称→插入→模块
2. 将以下代码粘贴到模块窗口：

Sub SplitEmailsKeepHyperlinks()
    Dim sourceRange As Range, cell As Range, newCell As Range
    Dim emails As Variant
    Dim i As Long, newRow As Long
    
    ' 可手动选中要处理的A列数据范围再运行，也可取消下面注释自动选中A列所有有数据的单元格
    ' Set sourceRange = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    Set sourceRange = Selection
    Application.ScreenUpdating = False
    
    ' 倒序遍历避免插入行打乱遍历逻辑
    For i = sourceRange.Rows.Count To 1 Step -1
        Set cell = sourceRange.Cells(i, 1)
        If InStr(cell.Value, " ") > 0 Then
            emails = Split(cell.Value, " ")
            ' 处理当前行第一个邮箱的超链接
            cell.Value = emails(0)
            If cell.Hyperlinks.Count > 0 Then cell.Hyperlinks.Delete
            ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="mailto:" & emails(0), TextToDisplay:=emails(0)
            
            ' 剩余邮箱插入新行并添加超链接
            For newRow = 1 To UBound(emails)
                cell.Offset(newRow, 0).EntireRow.Insert
                Set newCell = cell.Offset(newRow, 0)
                newCell.Value = emails(newRow)
                ActiveSheet.Hyperlinks.Add Anchor:=newCell, Address:="mailto:" & emails(newRow), TextToDisplay:=emails(newRow)
            Next newRow
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. 回到Excel界面，选中需要处理的A列单元格，按Alt + F8选中宏SplitEmailsKeepHyperlinks点击执行即可。

注意：如果原单元格内每个邮箱对应本身的mailto跳转规则，运行后可完全保留原跳转逻辑；如果原单元格为统一超链接，代码会自动为每个拆分后的邮箱匹配对应mailto跳转。

二、Google Sheets 环境实现（Apps Script方案） #

操作步骤：

1. 点击顶部菜单「扩展程序」→「Apps 脚本」
2. 删除默认代码，粘贴以下代码：

function splitEmailsKeepLinks() {
  const sheet = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet();
  const range = sheet.getActiveRange();
  const values = range.getValues();
  const output = [];
  
  values.forEach(row => {
    const emails = row[0].toString().split(' ');
    emails.forEach(email => {
      output.push([SpreadsheetApp.newRichTextValue().setText(email).setLinkUrl(`mailto:${email}`).build()]);
    });
  });
  // 输出结果覆盖原有选中范围，行数自动适配
  range.offset(0, 0, output.length, 1).setRichTextValues(output);
}

3. 保存项目后授权运行权限，回到表格选中要处理的A列单元格，重新打开Apps Script点击运行即可。

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