VBA中的RefEdit控件历来存在此问题。下面的Exit事件代码尝试在文本（范围引用）错误时清除该文本。我希望代码是有帮助的。

Private Sub RefEdit1_Exit()
    Ref = Me.RefEdit1.Text
    If VBA.InStr(Ref, ",") = 0 Then
        If Len(Ref) - Len(Replace(Ref, "!", "")) >1  Then Me.RefEdit1.Text = ""
    Else
        For Each subRef In Split(Ref, ",")
            If Len(subRef) - Len(Replace(subRef, "!", "")) >1  Then
                Me.RefEdit1.Text = ""
                Exit For
            End If
        Next
    End If
End Sub

字符串

根据我的评论，将添加一个解决方案，以避免使用一个故障RefEdit控件。
先决条件。
对照：
-UserForm

• 文本框
• 命令按钮
  x1c 0d1x的数据
  变量：
  -rangeToSet As Range -要分配的主范围
  -inptResult As Range -执行选择检查的InputBox结果变量
  -isRangeSelected As Boolean -用于进一步检查的模块全局布尔变量
  使用方法：
  按下按钮并选择范围：）
  代码：

Option Explicit

Dim isRangeSelected As Boolean

Private Sub selectRangeButton_Click()
Dim rangeToSet As Range
Dim inptResult As Range

Me.rangeTextBox.Text = ""

On Error Resume Next
Set inptResult = Application.InputBox(Prompt:="Select range", Type:=8)
Err.Clear
On Error GoTo 0

If Not inptResult Is Nothing Then
    Set rangeToSet = inptResult
    isRangeSelected = True
    Me.rangeTextBox.Text = rangeToSet.Address
Else
    Me.rangeTextBox.Text = "The range is not selected"
    isRangeSelected = False
End If

End Sub

字符串