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

以下是用 VBA 实现把一列选中的数据的每个数据重复五次然后依次放在 C 列的代码：

Sub Repeat_Column_Data()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim lastRow As Integer
    
    ' 获取选中范围的最后一行
    lastRow = Selection.Rows.Count + Selection.Row - 1
    
    ' 循环遍历选中范围的每个单元格
    For i = Selection.Row To lastRow
        ' 循环重复五次
        For j = 1 To 5
            ' 计算要放置的列数
            k = (j - 1) + ((i - Selection.Row) * 5) + Selection.Columns.Count
            ' 把数据放入指定的单元格
            Cells(i, k).Value = Cells(i, 1).Value
        Next j
    Next i
End Sub

你可以按下 Alt + F11 打开 VBA 编辑器，将代码复制粘贴到一个新的 VBA 模块中，然后保存。接下来，在 Excel 中选中要操作的列，然后按下 Alt + F8 打开宏对话框，选择刚才保存的宏并执行即可。

相关问题

用vba实现把B列中的每个数据都重复五次然后依次放在c列

可以以下的VBA代码实现你的需求：

Sub RepeatData()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    Dim i As Long, j As Long
    j = 1
    For i = 1 To lastRow
        Dim data As String
        data = Cells(i, "B").Value
        Dim k As Long
        For k = 1 To 5
            Cells(j, "C").Value = data
            j = j + 1
        Next k
    Next i
End Sub

这段代码首先获取了B列的最后一行，然后遍历B列中的每一行数据。对于每个数据，使用一个内部的循环将其重复五次，并依次放在C列中。最终得到的结果是B列中的每个数据都重复了五次，并依次放在C列中。

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

假设你要将选中的一列数据重复五次，并将结果放在该列的旁边，则可以使用以下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(0, 1)
    
    '遍历选中的列
    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

这个宏的实现逻辑跟前面的类似，只是输出位置的偏移量不同，我们使用`Offset(0, 1)`将输出位置移动到选中列的右侧。然后，遍历选中列中的每个单元格，将每个单元格的值重复五次，并逐个输出到右侧。最后，完成了任务，重复的数据已经被输出到了选中列的右侧。