Question

我有季度数据需要转换为每月，即复制A1并将其粘贴到B1，B2和B3。比A2到B4，B5和B6。因此基本的4个季度读数到12个月的读数。为了分析目的，它将把GDP季度读数转换为12个月的格式。

我能够做到这一点

Sub quarter_to_month()
'
' quarter_to_month Macro
'

'
    Sheets("Real GDP %change anu").Select
    Range("B8").Select
    Selection.Copy
    Sheets("quarter to month").Select
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste
End Sub

但是现在它可能需要while循环来获取季度列的所有结果。我不知道该怎么做。请提出任何建议。

Answer 1

试试这段代码：

Sub Test()
 Dim CL As Range
 Dim j As Long
 j = 1
 For Each CL In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
  Range(Cells(j, 2), Cells(j + 2, 2)).Value = CL.Value
  j = j + 3
 Next
End Sub

VBA将季度数据转换为每月

1 个答案: