Excel技巧：如何让结果单元格仅在输入有值时显示拼接内容

需求说明 #

• 场景：复制电话号码时会附带前缀（例如3 mobile 0760916474）
• 现有问题：用="*124949446"&RIGHT(A25,9)或=CONCAT(Sheet2!A2,RIGHT(A1,9))拼接回调号与后9位数字时，输入单元格为空仍会显示回调号
• 优化目标：
  • 输入单元格粘贴内容后自动仅保留后9位数字
  • 结果单元格仅在输入单元格有值时显示完整拼接字符串（例如*124949446760916474）

解决方案 #

一、纯公式实现（无需脚本） #

1. 输入单元格处理（自动提取后9位）

新增一个辅助输入单元格（比如B列），用户将带前缀的号码粘贴到B列，在目标输入单元格（比如A列）用公式提取后9位：

=IF(B1="","",RIGHT(B1,9))

这样B1为空时A1也为空，B1有内容时A1自动只保留最后9位数字。

2. 结果单元格拼接（空值不显示回调号）

在结果单元格（比如C列）用IF函数判断输入单元格（A1）是否为空，再执行拼接：

• 固定回调号版本：

=IF(A1="","","*124949446"&A1)

• 引用Sheet2中回调号的版本：

=IF(A1="","",CONCAT(Sheet2!A2,A1))

二、VBA脚本实现（自动处理粘贴，无需辅助列） #

如果想直接在输入单元格粘贴内容就自动处理，同时同步更新结果单元格，可使用Excel的VBA事件脚本：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理A列的单元格
    If Intersect(Target, Me.Range("A:A")) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    On Error GoTo ResetEvents
    
    For Each cell In Target
        If cell.Value <> "" Then
            ' 提取后9位数字
            cell.Value = Right(cell.Value, 9)
            ' 更新右侧结果单元格（可根据需求修改Offset参数）
            cell.Offset(0, 1).Value = "*124949446" & cell.Value
        Else
            cell.Offset(0, 1).Value = ""
        End If
    Next cell
    
ResetEvents:
    Application.EnableEvents = True
End Sub

使用步骤：

1. 打开Excel，按Alt+F11进入VBA编辑器
2. 在左侧项目栏找到目标工作表，双击打开代码窗口
3. 粘贴上述代码，保存文件为.xlsm格式（启用宏的工作簿）
4. 之后在A列粘贴带前缀的号码，会自动保留后9位，右侧单元格同步生成拼接后的回调号；清空A列时结果单元格也会清空。

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