用vba实现把一列选中的数据的每个数据重复五次然后列在另一行

假设你要将选中的一列数据重复五次，并将结果放在其下方，则可以使用以下VBA代码：

Sub RepeatData()
    Dim selectedRange As Range
    Dim outputRange As Range
    Dim cell As Range
    Dim i As Integer
    
    '获取选中的列
    Set selectedRange = Selection.Columns(1)
    
    '确定输出的位置
    Set outputRange = selectedRange.Offset(selectedRange.Rows.Count, 0)
    
    '遍历选中的列
    For Each cell In selectedRange
        '将每个单元格的值重复五次，并逐个输出到下方
        For i = 1 To 5
            outputRange.Value = cell.Value
            Set outputRange = outputRange.Offset(1, 0)
        Next i
    Next cell
End Sub

这个宏的实现逻辑如下：

1. 首先，它获取选中的列，我们通过`Selection.Columns(1)`获取选中的第一列数据，这里假设选中的是一整列数据，如果选中的不是一整列，那么需要修改这一行代码。

2. 然后，它确定了输出的位置，即选中列的下方，我们通过`selectedRange.Rows.Count`获取选中列中单元格的数量，然后使用`Offset`函数将输出位置移动到选中列的下方。

3. 接下来，它遍历选中的列中的每个单元格，并将每个单元格的值重复五次，并逐个输出到下方。

4. 最后，它完成了任务，重复的数据已经被输出到了选中列的下方。