从string数组中select随机值

如何在单元格A1随机input以下代码“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)))