excel - 如何制作一个循环将每个单元格划分 3 次？

Question

我已经下载了美国国内生产总值，但这最初是按三个月计算的，我每个月都需要它，因此，我想除以 GDP/3 的每个单元格，以使我的时间序列更长，并能够通过月:我想在 VBA 中创建一个循环，将 GDP 列表的每个值除以 3 次，然后将其放在计算出的每个新值下方:

Sub PIB()

Set lista = Range("D13:D275")

For Each cell In lista
    For i = 1 To 3
        Range("E13").Offset(i - 1, 0).Value = cell.Value / 3
    Next i
Next cell

End Sub

尽管如此，当我运行它时，它会正确 split ，但仅超出前 3 个单元格:

我想有效地将​​每个单元格划分 3 次，并将每个值放在彼此下方，我该怎么做？

Answer 1

这是你正在尝试的吗:

Sub PIB()

Dim arr As Variant: arr = Range("D13:D275").Value
Dim dict As Object: Set dict = CreateObject("Scripting.Dictionary")
Dim x As Long

For x = LBound(arr) To UBound(arr)
    For i = 1 To 3
        dict.Add Join(Array(arr(x, 1), x, i), "|"), arr(x, 1) / 3
    Next i
Next

Range("E13").Resize(dict.Count).Value = Application.Transpose(dict.Items)

End Sub

注意非显式的 Range 引用。