VBA开发Excel数字迷宫时If条件未按规则生效生成异常值求助

问题根因 #

你的代码存在4处直接导致数值不符合预期的错误：

1. 重复累加数值
   前两个随机值分组的If块中，你已经在区间判断分支内执行了rng.Value = rng.Value + RandVal，分支结束后又额外写了一次相同的累加语句，导致符合前两个分组条件的随机值被重复累加。
2. 判断结构不互斥，数值被反复修改
   你将28个随机值拆成了三个独立的If判断块，而非互斥的ElseIf/Select Case结构。第一个If块中修改完RandVal后，修改后的值可能命中第二个、第三个If块的匹配条件，导致RandVal被反复减7、反复累加，最终值完全失控。
3. 第三组数值漏写写入逻辑
   第三个If块的区间判断结束后，你没有写单元格赋值语句，属于第三组的随机值就算完成映射计算，也不会被写入单元格，这就是你始终看不到8、9、10、11、13这类数值的核心原因。
4. 随机数生成不严谨
   RandVal = ((28 * Rnd) + 1)直接赋值给Integer类型时，会按照四舍六入规则取整，无法严格生成1-28的均匀整数，存在边界值取整错误。

你观察到的“只出现12、14、15、16，无大于21的数值”是以上错误叠加的结果：大于21的随机值本身占比低，且大部分属于第三组，根本不会被写入；剩余值经过重复累加、反复修改后，只有刚好命中判断缝隙的值会留在单元格里，呈现出你看到的无规律异常值。

简化修复方案 #

你设计的映射规则本质是：1-28的随机值，每7个为一组，每组的值减去对应倍数的7，最终统一映射为1-7的结果，完全不需要拆成三个分组重复写三遍相同的计算逻辑。修复后代码如下：

Private Sub CommandButton1_Click()
    Dim RandVal As Integer
    Dim rng As Range
    ' 初始化随机种子，避免每次运行生成相同随机序列
    Randomize
    For Each rng In Range("A1:AY51")
        If rng.Value = "" Then
            ' 严格生成1-28范围的整数随机值
            RandVal = Int(28 * Rnd + 1)
            
            ' 统一做区间映射，无需按分组重复编码
            If RandVal > 21 Then
                RandVal = RandVal - 21
            ElseIf RandVal > 14 Then
                RandVal = RandVal - 14
            ElseIf RandVal > 7 Then
                RandVal = RandVal - 7
            End If
            
            ' 单次写入结果，避免重复累加
            rng.Value = RandVal
            
            ' 后续可在此处根据原始RandVal所属区间，添加不同格子的颜色、效果标记逻辑
        End If
    Next rng
End Sub

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