VBA -如何从一列中随机选择10%的行，确保它们是不同的，并在B列中放一个Y？

Sub RandomSelection()
    Dim totalRows As Long
    Dim selectedRows As Long
    Dim rng As Range
    Dim cell As Range
    Dim randomRow As Long
    Dim selectedCount As Long
    
    ' 设置要处理的数据范围
    Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 计算总行数和需要选择的行数
    totalRows = rng.Rows.Count
    selectedRows = Application.RoundUp(totalRows * 0.1, 0) ' 选择10%的行数
    
    ' 初始化随机数生成器
    Randomize
    
    ' 遍历选择行
    For selectedCount = 1 To selectedRows
        ' 随机选择一行
        randomRow = Int((totalRows - selectedCount + 1) * Rnd + 1)
        
        ' 将选中的行标记为Y
        Set cell = rng.Cells(randomRow, 1).Offset(0, 1)
        cell.Value = "Y"
        
        ' 将选中的行移到已选择的行的末尾
        rng.Cells(randomRow, 1).Cut rng.Cells(totalRows - selectedCount + 1, 1)
    Next selectedCount
End Sub