VBA如何从指定列随机选取10%不重复行并在B列标记Y

你可以新增一个独立的随机抽样子过程，复用给不同用户的筛选结果调用，避免代码冗余。以下是修改后的完整可运行代码：

Sub randomSelection()
    Dim dt As Date
    dt = "20/08/2021"
    Dim lRow As Long
    Dim userArr As Variant
    ' 把需要处理的用户名存在数组里，后续新增用户直接加数组元素即可
    userArr = Array("SW\\Grogu", "SW\\Finn")
    
    ' 格式化日期为筛选需要的格式
    Range("J:J").NumberFormat = "dd/mm/yyyy"
    
    ' 遍历所有要处理的用户
    Dim i As Integer
    For i = LBound(userArr) To UBound(userArr)
        ' 按日期和发起人筛选
        ActiveSheet.Range("$A$1:$W$10000").AutoFilter 10, Criteria1:="=" & dt
        ActiveSheet.Range("$A$1:$W$10000").AutoFilter Field:=16, Criteria1:=userArr(i)
        
        ' 调用随机抽样过程处理当前筛选结果
        Call sample10PercentRows
    Next i
    
    ' 还原日期格式
    Range("J:J").NumberFormat = "yyyy-mm-dd"
    ' 清除筛选
    ActiveSheet.Range("$A$1:$W$10000").AutoFilter
End Sub

' 独立的10%随机抽样子过程
Sub sample10PercentRows()
    Dim visibleRng As Range
    Dim lRow As Long, totalVisible As Long, sampleCnt As Long
    Dim dic As Object
    Set dic = CreateObject("Scripting.Dictionary")
    
    With ActiveSheet
        lRow = .Cells(Rows.Count, 16).End(xlUp).Row
        ' 筛选后不足2行（只有表头）直接退出
        If lRow < 3 Then Exit Sub
        
        ' 获取筛选后的P列可见单元格区域
        Set visibleRng = .Cells(1, 16).Offset(1, 0).Resize(lRow - 1).SpecialCells(xlCellTypeVisible)
        totalVisible = visibleRng.Cells.Count
        ' 计算需要抽取的行数：10%向上取整
        sampleCnt = WorksheetFunction.Ceiling(totalVisible * 0.1, 1)
        
        Randomize ' 初始化随机数种子
        Do While dic.Count < sampleCnt
            ' 生成1到总可见行数之间的随机索引
            Dim rndIndex As Long
            rndIndex = Int((totalVisible * Rnd) + 1)
            ' 未抽取过的行加入字典，同时B列填Y
            If Not dic.exists(rndIndex) Then
                dic.Add rndIndex, True
                visibleRng.Cells(rndIndex).Offset(0, -14).Value = "Y" ' P列向左偏移14列就是B列
            End If
        Loop
    End With
    Set dic = Nothing
End Sub

核心逻辑说明 #

• 抽取行数计算：调用Excel内置的Ceiling函数实现向上取整，完全满足0.8取1、1.3取2的要求
• 去重抽取：用字典存储已经抽过的索引，避免同一行被重复选中
• 列定位：通过P列单元格向左偏移14列直接定位到同行的B列，不需要额外计算行号
• 代码复用：把抽样逻辑封装成独立子过程，后续新增要处理的用户只需要在userArr数组里加用户名即可，不需要重复写筛选逻辑

内容的提问来源于stack exchange，提问作者Vonny82