如何通过将数值“ x”除以“ n”个数字[间隔]并将该“ x”值放入“ n”行来进行拆分？

Question

我正在尝试使用一个公式进行Excel转换。

下图显示了我正在寻找的转换类型。

如果不使用公式，还有其他方法吗？

Answer 1

只要数据集与我在图片中看到的图案相同，此代码就会将您的数据转换为D列。

如果数据集模式并不总是相同，那么请指定所需的内容。

    Sub Transformation()
    Dim LastRowIndex As Integer
    Dim Value As Long

    y = 1

    With ActiveSheet
    LastRowIndex = Cells(Rows.Count, "A").End(xlUp).row
    End With


    For i = 1 To LastRowIndex
    Value = Range("B" & i)


    For Z = 1 To 4
    If Range("C" & y) <> "" Then
    Range("D" & y) = Value / 4
    y = y + 1
    End If

    Next Z



    Next i



End Sub