如何在 Excel 中为单元格随机填充背景色？

以下 VBA 宏代码可为您指定区域中的每个单元格随机填充背景色。操作步骤如下：

步骤 1：按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

步骤 2：单击“插入”>“模块”，然后将以下 VBA 代码粘贴到弹出的模块窗口中。

VBA：为单元格添加随机颜色的背景或填充颜色

Sub TrimExcessSpaces()
Dim rng As Range
Dim WorkRng As Range
Dim xRed As Byte
Dim xGreen As Byte
Dim xBule As Byte
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
xRed = Application.WorksheetFunction.RandBetween(0, 255)
xGreen = Application.WorksheetFunction.RandBetween(0, 255)
xBule = Application.WorksheetFunction.RandBetween(0, 255)
rng.Pattern = xlSolid
rng.PatternColorIndex = xlAutomatic
rng.Interior.Color = VBA.RGB(xRed, xGreen, xBule)
Next
End Sub

步骤 3：按下 F5 键，或点击运行按钮即可执行此 VBA 宏。

步骤 4：此时会弹出一个对话框，只需选择您要添加随机背景色的区域，然后点击确定按钮即可。

现在，您将看到限定区域内的所有单元格均已随机填充了不同颜色。请参见下方截图：

在某些情况下，您可能需要在限定区域中为随机选定的单元格添加背景颜色。此时，不妨尝试使用 Kutools for Excel 的随机排序工具，即可轻松为这些随机单元格添加背景颜色。

步骤 1：选择您希望从中随机查找单元格并添加背景颜色的区域。

步骤 2：单击 Kutools > 选择范围 > 随机排序。

步骤 3：在打开的随机排序对话框中，切换到选择选项卡，在要选中的个数：框中输入一个数字，勾选单元格选项，然后点击确定按钮。请参见下方截图：

步骤 4：现在，限定区域中已随机选中指定数量的单元格。接着，点击开始选项卡上的填充颜色按钮（位于）箭头旁边），并从下拉列表中选择一种背景颜色。

现在您将看到背景颜色已添加到随机选中的单元格中，如下方截图所示：

随机对列或区域中的单元格进行排序

随机选择单元格

生成随机字符串