从字符串数组中选择随机值

Question

如何在单元格A1中随机输入以下代码“Jack”或“John”？目前，结果总是“2”：

Sub RandomNames ()

Dim UserNames(1 To 2) As String

UserNames(1) = "Jack"
UserNames(2) = "John"

Range("A1").Value = Application.WorksheetFunction.RandBetween(LBound(UserNames), UBound(UserNames))

End Sub

Answer 1

尝试在阵列上使用randbetween。

Range("A1").Value = UserNames(Application.RandBetween(LBound(UserNames), UBound(UserNames)))