如何在Excel第一列随机高亮4个含数据的单元格？

方法1：VBA宏（推荐，自动清除旧高亮+适配动态数据集） #

运行宏时会先清除之前的高亮，再随机选中4个有数据的单元格上色，完全匹配需求：

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 插入新模块：右键当前工作簿 → 插入 → 模块
3. 粘贴以下代码：

Sub RandomHighlight4Cells()
    Dim lastRow As Long
    Dim selectedRows As New Collection
    Dim i As Integer, randRow As Integer
    
    ' 清除第一列所有单元格的填充色（保留其他格式）
    Columns(1).Interior.ColorIndex = xlColorIndexNone
    
    ' 获取第一列最后一个有数据的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    If lastRow < 4 Then
        MsgBox "第一列数据不足4个！"
        Exit Sub
    End If
    
    ' 随机选择4个不重复的行号
    On Error Resume Next ' 捕获重复行号的错误
    Do While selectedRows.Count < 4
        randRow = Int((lastRow - 1 + 1) * Rnd + 1) ' 生成1到lastRow的随机数
        selectedRows.Add randRow, Key:=CStr(randRow) ' 用Key避免重复
    Loop
    On Error GoTo 0
    
    ' 给选中的单元格设置填充色（示例为黄色，可自行修改）
    For Each item In selectedRows
        Cells(item, 1).Interior.Color = RGB(255, 255, 0)
    Next
End Sub

4. 按F5运行宏，或回到Excel添加按钮绑定这个宏

代码关键点： #

• Columns(1).Interior.ColorIndex = xlColorIndexNone：彻底清除第一列旧高亮，避免残留
• Cells(Rows.Count,1).End(xlUp).Row：自动识别第一列数据范围，适配动态增减的数据集
• 用Collection的Key属性确保选中的单元格不重复
• 可修改RGB(255,255,0)替换为其他颜色，比如蓝色RGB(0,176,240)

方法2：条件格式+辅助列（无需宏） #

如果不想用宏，可通过辅助列配合条件格式实现，刷新时按F9即可更新高亮：

1. 插入辅助列（比如B列），在B1单元格输入公式：

=IF(A1<>"",RAND(),"")

2. 双击B1单元格的填充柄，快速将公式下拉到第一列最后一个有数据的行
3. 选中第一列（或仅选中有数据的单元格），点击「开始」→「条件格式」→「新建规则」
4. 选择「使用公式确定要设置格式的单元格」，输入公式：

=RANK(B1,$B:$B,1)<=4

5. 点击「格式」设置填充色，确定后完成

注意事项： #

• 每次按F9会重新计算随机数，自动更新高亮的单元格
• 若第一列新增数据，需将B列的公式下拉到新行，否则新数据不会参与随机选择

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