EXCEL使用VBA范围内随机填入指定文本

2023-02-28技术经验 浏览

EXCEL使用VBA范围内随机填入指定文本，例如我又，文本1，文本2，文本3，三个文本数据，我需要他随机填入A1到A10的区域。
解答：

Sub RandomFill()
Dim arr As Variant
arr = Array("文本1", "文本2", "文本3")
For Each Cell In Range("A1:A10")
   Cell.Value = arr(Int((UBound(arr) - LBound(arr) + 1) * Rnd + LBound(arr)))
Next
End Sub