Function RandABC()
    RandABC = [ CHAR(RANDBETWEEN(65,90))]
End Function

Function E8F_RandAny(arr) '从一个一维数组里取的随机数
    E8F_RandAny = arr(Application.RandBetween(LBound(arr), UBound(arr)))
End Function