用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列中。