如何修改Excel VBA代码随机选取指定比例清空区域单元格

原硬编码固定30%清空比例的代码可通过新增参数输入、预设比例随机选择逻辑实现需求，修改后完整可运行代码如下：

Sub DelThirty()
    Dim rng As Range
    Dim i As Long, x As Long, y As Long, lngRetry As Long
    Dim dblClearRatio As Double
    Dim arrPresetRatio As Variant
    Dim strUserInput As String
    
    ' 中等难度预设清空比例
    arrPresetRatio = Array(0.4, 0.43, 0.49, 0.52)
    Set rng = Selection
    
    On Error GoTo ErrHandler
    
    ' 弹出参数输入窗口
    strUserInput = InputBox("请输入0-1之间的清空比例（如0.3代表清空30%非空单元格）" & vbCrLf & "留空将随机选用中等难度预设比例", "清空比例设置")
    
    ' 处理输入参数
    If strUserInput = "" Then
        ' 留空时随机抽取预设比例
        Randomize
        dblClearRatio = arrPresetRatio(Int((UBound(arrPresetRatio) - LBound(arrPresetRatio) + 1) * Rnd))
    Else
        ' 校验手动输入合法性
        If Not IsNumeric(strUserInput) Then
            MsgBox "输入无效，请输入0到1之间的数值", vbExclamation
            Exit Sub
        End If
        dblClearRatio = CDbl(strUserInput)
        If dblClearRatio < 0 Or dblClearRatio > 1 Then
            MsgBox "比例值需在0到1范围内", vbExclamation
            Exit Sub
        End If
    End If
    
    ' 关闭屏幕刷新、自动计算提升运行速度
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    
    ' 按比例清空非空单元格
    For i = 1 To Int(rng.Cells.Count * dblClearRatio)
retry:
        lngRetry = lngRetry + 1
        ' 非空单元格不足时自动终止，避免死循环
        If lngRetry > rng.Cells.Count * 2 Then Exit For
        x = WorksheetFunction.RandBetween(1, rng.Rows.Count)
        y = WorksheetFunction.RandBetween(1, rng.Columns.Count)
        If rng.Cells(x, y) <> "" Then
            rng.Cells(x, y).ClearContents
            lngRetry = 0
        Else
            GoTo retry
        End If
    Next i

    ' 恢复Excel默认设置
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    MsgBox "处理完成，本次清空比例为：" & dblClearRatio, vbInformation
    Exit Sub

ErrHandler:
    ' 异常场景下自动恢复Excel设置
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    MsgBox "运行错误：" & Err.Description, vbCritical
End Sub

使用说明 #

• 选中数独对应的单元格区域后运行宏即可
• 弹出输入框时直接点击确定/不输入任何内容：程序自动从4个预设中等难度比例中随机选一个执行清空
• 需要使用其他比例时，在输入框填入0到1之间的小数即可，例如输入0.3就是原版本固定的30%清空逻辑
• 代码保留了原版本的性能优化逻辑，同时新增了参数合法性校验、死循环防护，运行稳定性比原版更高，执行完成后会弹窗提示本次实际使用的清空比例

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