嘿，我看你在开发VBA扫雷时遇到了地雷重复放置的麻烦——明明设置了10个炸弹，结果偶尔只显示9个，这确实挺影响游戏体验的！核心问题很明确：你当前的逻辑应该是在随机生成地雷坐标时，没有检查这个单元格是否已经被地雷占用了，导致重复生成的坐标会覆盖之前的地雷，最终有效地雷数量不足。

问题根源 #

当你随机生成i和j坐标直接放置地雷时，完全有可能两次生成同一个单元格的坐标，这时候后一次的操作其实没新增地雷，只是重复覆盖了，所以最终实际的地雷数量会比你设置的少。

修复方案：跟踪已占用的单元格 #

我们可以用一个二维数组来记录每个单元格是否已经放置了地雷，每次生成随机坐标后先检查这个位置是否可用，只有未被占用的才放置地雷，直到达到设定的地雷数量。

下面是修改后的完整示例代码：

Sub Minesweeper()
    Dim Mines As Integer
    Dim i As Integer, j As Integer
    Dim placedMines As Integer
    ' 定义二维数组，对应你的棋盘范围：行8-15，列6-13
    Dim hasMine(8 To 15, 6 To 13) As Boolean
    
    ' 初始化棋盘样式和地雷跟踪数组
    For i = 8 To 15
        For j = 6 To 13
            Cells(i, j).HorizontalAlignment = xlCenter
            Cells(i, j).Value = "" ' 清空单元格内容
            hasMine(i, j) = False ' 初始化为无地雷
        Next j
    Next i
    
    Mines = 10 ' 设定地雷数量
    placedMines = 0 ' 已成功放置的地雷计数
    
    ' 加入Randomize保证每次随机序列不同（可选但推荐）
    Randomize Timer
    
    ' 循环直到放置够指定数量的地雷
    Do While placedMines < Mines
        ' 生成棋盘范围内的随机坐标
        i = Int((15 - 8 + 1) * Rnd + 8)
        j = Int((13 - 6 + 1) * Rnd + 6)
        
        ' 检查该位置是否还没有地雷
        If Not hasMine(i, j) Then
            hasMine(i, j) = True ' 标记为已放置地雷
            Cells(i, j).Value = "💣" ' 显示地雷符号，你可以换成自己的样式
            placedMines = placedMines + 1 ' 计数加1
        End If
    Loop
End Sub

关键细节说明 #

• 二维数组跟踪：hasMine数组专门记录每个单元格的地雷状态，避免了直接操作单元格判断的性能损耗（尤其是棋盘较大时）。
• 循环控制：用Do While循环代替固定次数的For循环，确保只有成功放置新地雷时才增加计数，直到达到目标数量。
• 随机数优化：加入Randomize Timer可以让每次运行游戏时的地雷位置都不一样，避免重复的布局。

如果你不想用数组，也可以直接检查单元格的值（比如判断Cells(i,j).Value是否已经是地雷符号），但数组的方式更高效也更清晰哦。

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