如何在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：现在，指定数量的单元格已在指定区域内被随机选中。然后点击 主页 选项卡上 填充颜色 按钮旁边的箭头，并从下拉列表中选择一种背景颜色。

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

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

随机选择单元格

生成随机字符串