如何关闭Excel VBA中「数据已存在」的提示弹窗？

你的代码核心问题是把Application.DisplayAlerts设成了True——这相当于主动开启Excel的提示弹窗，完全起不到禁用效果。针对TextToColumns操作触发的“数据已存在”提示，正确的处理方式如下：

修改后的代码 #

Private Sub DocumentIDTextBox1_Change()
    ' 先保存当前的提示状态，避免影响后续操作
    Dim originalAlertState As Boolean
    originalAlertState = Application.DisplayAlerts
    
    ' 禁用所有Excel提示弹窗
    Application.DisplayAlerts = False
    Application.AlertBeforeOverwriting = False
    
    ' 执行你的业务操作
    Range("AA22").Value = " Document: "
    Range("AA22").Font.Bold = True
    Range("AB22").Value = DocumentIDTextBox1.Value
    Range("AB22").TextToColumns Destination:=Range("AC22"), DataType:=xlDelimited, Other:=True, OtherChar:="-"
    
    ' 恢复原始提示状态（必须做，不然之后所有操作都没提示）
    Application.DisplayAlerts = originalAlertState
End Sub

关键说明 #

1. DisplayAlerts的正确用法：设为False才会关闭Excel的各类操作提示，包括TextToColumns覆盖单元格的提示；你之前写的True是让提示正常显示，完全搞反了。
2. 保存并恢复原始状态：如果直接把DisplayAlerts一直设为False，后续用户手动操作或其他代码也会丢失提示，容易误操作，所以必须在操作前后做状态保存和恢复。
3. AlertBeforeOverwriting的作用：这个属性主要针对保存文件时的覆盖提示，对TextToColumns的单元格覆盖提示几乎没用，重点还是靠DisplayAlerts。

额外排查点 #

如果修改后仍有弹窗，检查目标区域AC22及后续单元格是否存在合并单元格——TextToColumns无法在合并单元格上执行，会触发错误提示，这种情况需要先取消合并再执行拆分操作。

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