vba A列、B列、C列随机抽一列放到D列

可以使用VBA中的随机函数来实现将A列、B列、C列中的数据随机抽取一列放到D列。以下是一个简单的示例代码：

Sub RandomColumn()
    Dim lastRow As Long
    Dim rngA As Range, rngB As Range, rngC As Range
    Dim rngD As Range, cellD As Range
    
    ' 获取A列、B列、C列的范围
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Set rngA = Range("A1:A" & lastRow)
    Set rngB = Range("B1:B" & lastRow)
    Set rngC = Range("C1:C" & lastRow)
    
    ' 清空D列数据
    Range("D1:D" & lastRow).ClearContents
    
    ' 遍历D列，随机抽取A列、B列、C列的数据
    Set rngD = Range("D1:D" & lastRow)
    For Each cellD In rngD
        ' 随机生成0到2之间的整数，分别对应A列、B列、C列
        Select Case WorksheetFunction.RandBetween(0, 2)
            Case 0
                cellD.Value = rngA(cellD.Row).Value
            Case 1
                cellD.Value = rngB(cellD.Row).Value
            Case 2
                cellD.Value = rngC(cellD.Row).Value
        End Select
    Next cellD
End Sub

执行上述代码后，将会随机抽取A列、B列、C列中的数据放到D列中