Excel VBA在使用随机数时避免不同列中的重复值

Sub GenerateRandomNumbers()
    Dim rng As Range
    Dim arr() As Variant
    Dim i As Long, j As Long
    Dim num As Double
    Dim isDuplicate As Boolean
    
    ' 设置随机数生成范围
    Set rng = Range("A1:A10")
    
    ' 初始化数组
    ReDim arr(1 To rng.Rows.Count)
    
    ' 生成随机数
    For i = 1 To rng.Rows.Count
        isDuplicate = True
        
        ' 检查是否重复
        Do While isDuplicate
            num = Rnd()
            isDuplicate = False
            
            ' 检查数组中是否存在相同的随机数
            For j = 1 To i - 1
                If arr(j) = num Then
                    isDuplicate = True
                    Exit For
                End If
            Next j
        Loop
        
        ' 将随机数存入数组
        arr(i) = num
        
        ' 将随机数写入单元格
        rng.Cells(i).Value = num
    Next i
End Sub