Excel VBA修改单元格区域与随机选单元问题：已移除单元仍被选中

你遇到的这个问题挺典型的——明明每次移除单元格后，namesList的Count和Address都正确显示了剩余范围，但循环过程中还是会选中已经被移除的单元格，而且ExcludeCell函数在其他场景表现正常。咱们一步步拆解问题出在哪：

核心问题推测：随机选取逻辑的偏差 #

最大的可能性是你的GetRandomName函数没有严格基于传入的namesList集合来随机选取单元格。比如如果这个函数是直接从工作表的原始固定区域（而非动态更新的namesList）里选单元格，那即使namesList已经移除了部分单元格，它还是会选中原始区域里的旧单元格。

举个反例，如果GetRandomName是这么写的（错误示范）：

Function GetRandomName(rng As Range) As Range
    ' 错误：直接基于工作表行号随机，而非传入的rng集合
    Dim randRow As Integer
    randRow = Int((10 - 2 + 1) * Rnd + 2) ' 假设原始区域是行2到行10
    Set GetRandomName = rng.Parent.Cells(randRow, 1)
End Function

这种写法完全忽略了传入的namesList，自然会选到已经被移除的单元格。

辅助排查点：地址比较与对象引用的细节 #

除了随机函数的问题，还有两个细节可能引发异常：

1. 地址比较未包含工作表信息：
   你的ExcludeCell函数里用RNG.Address <> rngExc.Address来判断单元格是否重复，但Address默认不带工作表名称。如果rngMain和rngExc来自不同工作表，就会出现地址相同但实际是不同单元格的情况，导致移除逻辑失效。

2. 冗余的单元格引用：
   你在调用ExcludeCell时写了genSheet.Range(randomName.Address)，但randomName本身就是一个Range对象，直接传randomName更安全——如果randomName的父工作表不是genSheet，这行代码会错误引用genSheet里的同名地址单元格，而非你选中的那个单元格。

解决方案与代码优化 #

1. 修正GetRandomName函数（必须做）

确保它严格从传入的namesList集合里随机选取单元格：

Function GetRandomName(rng As Range) As Range
    If rng Is Nothing Or rng.Count = 0 Then Exit Function
    Dim randIndex As Long
    randIndex = Int(Rnd * rng.Count) + 1
    Set GetRandomName = rng.Cells(randIndex)
End Function

2. 优化ExcludeCell函数的地址比较

加上External:=True，让地址包含工作表信息，避免跨表冲突：

Function ExcludeCell(ByVal rngMain As Range, rngExc As Range) As Range
    Dim rngTemp As Range
    Dim RNG As Range
    Set rngTemp = rngMain
    Set rngMain = Nothing
    
    For Each RNG In rngTemp
        ' 用带工作表的完整地址比较，避免跨表地址重复
        If RNG.Address(External:=True) <> rngExc.Address(External:=True) Then
            If rngMain Is Nothing Then
                Set rngMain = RNG
            Else
                Set rngMain = Union(rngMain, RNG)
            End If
        End If
    Next
    
    Set ExcludeCell = rngMain
End Function

3. 简化主循环里的移除逻辑

直接传入randomName对象，避免冗余引用：

' ... 主循环内的逻辑修改 ...
If available = True Then
    ' ... 你的单元格赋值逻辑 ...
    ' 直接传randomName，不用再从genSheet重新取
    Set namesList = ExcludeCell(namesList, randomName)
    namesString = RangeToString(namesList)
    MsgBox namesList.Address
    Exit For
End If

按这些修改后，namesList的动态更新会完全同步到随机选取逻辑里，就不会再出现选中已移除单元格的问题了。

内容的提问来源于stack exchange，提问作者Jeremy H.