随机选择单元格清除内容- Excel VBA

Sub ClearRandomCellContent()
    Dim rng As Range
    Dim cell As Range
    Dim totalCells As Integer
    Dim randomCellIndex As Integer
    
    ' 设置要操作的单元格范围
    Set rng = Range("A1:D10")
    
    ' 获取单元格总数
    totalCells = rng.Cells.Count
    
    ' 生成一个随机数，用于选择要清除内容的单元格
    randomCellIndex = Int((totalCells * Rnd) + 1)
    
    ' 遍历单元格范围，找到随机选择的单元格并清除内容
    For Each cell In rng
        If cell.Row * rng.Columns.Count + cell.Column = randomCellIndex Then
            cell.ClearContents
            Exit For
        End If
    Next cell
End Sub