tạm thời dùng VBA, các bạn phát triển tiếp nhé:
Function RandomNum(rng As Range) As Long
Dim arr(), i As Integer, j As Integer, kq() As Integer, k As Integer, m As Integer, n As Integer
arr = rng.Value: i = UBound(arr): j = UBound(arr, 2)
ReDim kq(1 To i j)
For k = 1 To j - 1 Step 2
For m = 1 To i
If arr(m, k + 1) = "" Then
n = n + 1
kq(n) = arr(m, k)
End If
Next m
Next k
If n = 0 Then Exit Function
RandomNum = kq(Int((n Rnd) + 1))
End Function
