随机化宏需求：需输出多列对应数据而非仅第一列

现有宏RandomSelectionClaimsND仅从"Claims data"工作表导出A列的10个随机索赔编号到"Claims ND"工作表，以下是修改后的代码，可同时导出对应行的B列（Benefit Type）和C列（Claim Status）数据：

Sub RandomSelectionClaimsND()

    Dim sourceSheet As Worksheet
    Dim destSheet As Worksheet
    Dim numRows As Integer
    Dim selectedRows() As Integer
    Dim i As Integer
    Dim j As Integer
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Claims data")
    Set destSheet = ThisWorkbook.Sheets("Claims ND")
    
    ' 统计源数据的总行数（基于A列，因为索赔编号在A列）
    numRows = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 创建数组存储选中的行号
    ReDim selectedRows(1 To 10)
    
    ' 随机选取10个不重复的行号
    For i = 1 To 10
        ' 生成1到总行数之间的随机行号
        selectedRows(i) = Int((numRows) * Rnd + 1)
        
        ' 检查是否重复，重复则重新生成
        For j = 1 To i - 1
            If selectedRows(i) = selectedRows(j) Then
                i = i - 1
                Exit For
            End If
        Next j
    Next i
    
    ' 对选中的行号进行升序排序
    Call BubbleSort(selectedRows, 10)
    
    ' 复制选中行的A、B、C三列数据到目标工作表
    For i = 1 To 10
        sourceSheet.Range("A" & selectedRows(i) & ":C" & selectedRows(i)).Copy _
        destSheet.Range("A" & i + 1 & ":C" & i + 1)
    Next i
    
End Sub

Sub BubbleSort(arr() As Integer, n As Integer)
    
    Dim i As Integer
    Dim j As Integer
    Dim temp As Integer
    
    For i = 1 To n - 1
        For j = i + 1 To n
            If arr(i) > arr(j) Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i
    
End Sub

修改说明： #

• 移除了不必要的sourceRange和destRange变量，简化代码逻辑
• 复制操作改为直接复制整行的A到C列，替代原来仅复制A列单个单元格的操作
• 优化了随机行号生成的表达式（Int((numRows) * Rnd + 1)等价于原代码，更简洁）

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