VBA 生成4X4单元格并随机填入文本：红、黄、蓝、绿、橙、紫、黑、粉

VBA (Visual Basic for Applications) 是Excel中的宏语言，可以用来自动化工作表操作。如果你想在Excel中生成一个4x4的矩阵，并填充随机的颜色，你可以使用下面这个简单的脚本：

Sub GenerateRandomColors()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '假设你的工作表名为"Sheet1"
    
    Dim rng As Range
    Set rng = ws.Range("A1").Resize(4, 4) '创建一个4x4的范围从A1开始
    
    Dim colors() As Variant
    colors = Array("红", "黄", "蓝", "绿", "橙", "紫", "黑", "粉")
    
    Dim row As Long, col As Long
    For row = 1 To 4
        For col = 1 To 4
            rng(row, col).Value = colors(Int(Rnd * UBound(colors))) '随机选择一个颜色
        Next col
    Next row
End Sub

这个脚本首先设置了一个工作表范围，然后创建了一个包含8种颜色的数组。接下来两个嵌套循环遍历每一行每一列，通过`Rnd`函数随机生成一个0到7的索引，再使用这个索引来选取数组中的颜色。

运行此宏后，4x4的单元格就会随机填充这八种颜色之一。