从Excel中的指定列表或列中随机插入值（无重复）

Kutools for Excel的 插入随机数据 该实用程序使Excel用户可以从Excel中的指定列表或列中随机插入值。

以下VBA宏代码可以帮助您为特定范围内的每个单元格添加背景颜色或使用随机颜色填充颜色。 您可以执行以下操作：

步骤1：按 其他 + F11 键以打开“ Microsoft Visual Basic应用程序”窗口。

步骤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：现在出现一个对话框，只需选择要添加具有随机颜色的背景的范围，然后单击 OK 按钮。

现在，您将看到指定范围内的所有单元格随机填充不同的颜色。 请参见下面的屏幕截图：

在某些情况下，您可能需要向指定范围内随机选择的单元格添加背景颜色。要完成它，您可以尝试 Kutools for Excel's 随机排序范围 实用程序，然后为这些随机单元格添加背景色。

第1步：选择要随机查找单元格的范围并添加背景色。

步骤2：点击 库工具 > 范围 > 随机排序范围.

步骤3：在打开随机排序范围对话框中，转到 选择 标签，在 要选择的单元数 盒子，检查 选择随机单元格 选项，然后单击 OK 按钮。 请参见下面的屏幕截图：

步骤4：现在，在指定范围内随机选择指定数量的单元格。 然后点击 箭头 除了 填充颜​​色 上的按钮 主页 标签，然后从下拉列表中选择背景颜色。

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

对列或范围内的单元格进行随机排序

随机选择细胞

产生随机字串