Excel VBA：如何取消ComboBox操作前选中的单元格区域？

你的问题出在对Excel选区控制的理解上——你写的unselect子过程只是把传入的Range对象设为Nothing，但这并不会改变Excel界面上实际的选中状态，因为这个变量只是原选区的一个引用，和Excel的选区控制完全无关。

正确的取消选区方法 #

Excel中无法完全清除选区（必须有一个单元格处于选中状态），但我们可以通过选中一个单个单元格（比如空白单元格）来取消之前的多选区域。最简单的做法是在ComboBox1_Change()过程的末尾添加以下代码：

' 选择当前工作表的A1单元格来取消原选区，可根据需求调整目标单元格
ActiveSheet.Range("A1").Select

如果你不想改变原活动单元格的位置，可以先记录当前活动单元格，之后再选回来：

Dim originalCell As Range
Set originalCell = ActiveCell

' 取消原选区
ActiveSheet.Range("A1").Select

' 回到原来的活动单元格
originalCell.Select

修改后的完整代码 #

把你原来的unselect rng调用替换成上面的代码，修改后的ComboBox1_Change()过程如下：

Private Sub ComboBox1_Change()
    Dim operatore As String
    Dim op1 As String
    Dim op2 As String
    Dim trovato As Integer
    Dim rng As Range
    Set rng = Selection
    operatore = ComboBox1.Value
    op1 = Left(operatore, 3)
    op2 = Right(operatore, 3)
    trovato = 0
    
    If rng Is Nothing Then
        MsgBox "Non hai selezionato nessun range di celle!"
        Exit Sub
    End If
    
    For Each cell In rng
        If (trovato = 2) Then
            Exit For
        ElseIf StrComp(cell.Value, op1) = 0 Then
            trovato = trovato + 1
        End If
    Next cell
    
    If (trovato < 2) Then
        MsgBox "Operatori non trovati nella selezione!"
        Exit Sub
    Else
        Select Case operatore
            Case "Op1<-->Op2"
                For Each cell In Selection
                    If cell.Value = "Op1" Then
                        cell.Value = "Op2"
                    ElseIf cell.Value = "Op2" Then
                        cell.Value = "Op1"
                    End If
                Next cell
                MsgBox "Scambiato Op1 con Op2"
                Set rng = Nothing
            Case "Op1<-->Op3"
                For Each cell In Selection
                    If cell.Value = "Op1" Then
                        cell.Value = "Op3"
                    ElseIf cell.Value = "Op3" Then
                        cell.Value = "Op1"
                    End If
                Next cell
                MsgBox "Scambiato Op1 con Op3"
        End Select
    End If
    
    ' 取消原选区：选择当前工作表的A1单元格
    ActiveSheet.Range("A1").Select
End Sub

' 这个原来的unselect子过程可以删除了，因为它不起作用
' Public Sub unselect(dataRange As Range)
'     Set dataRange = Nothing
' End Sub

额外说明 #

• 如果你担心选中A1会干扰用户操作，可以选择一个隐藏的单元格，或者确保目标单元格是空白且不影响工作的位置。
• 如果你需要完全避免改变选中状态（虽然Excel不允许），另一种思路是在操作前记录选区，操作后恢复，但这和你的需求相反——你是想取消原选区，所以选单个单元格更直接。

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