VBA：復制數據行范圍 x 次

Question

我需要將相同的信息（按順序）復制並粘貼到同一列中 1000 次。 數據將從 1990 年到 2019 年運行，分為幾個季度......

1990 FY1990 FQ11990 31-Jan-90 1 
1990 FY1990 FQ21990 31-Jan-90 2
1990 FY1990 FQ31990 31-Jan-90 3
1990 FY1990 FQ41990 31-Jan-90 4

1990 FY1990 FQ11990 31-Jan-90 1 
1990 FY1990 FQ21990 31-Jan-90 2
etc
etc

有沒有我可以編寫的代碼來自動執行此操作？

Answer 1

我相信你錯了，我相信預期的結果更像是：

1990 FY1990 FQ11990 31-Jan-90 1 
1990 FY1990 FQ21990 31-Jan-90 2
1990 FY1990 FQ31990 31-Jan-90 3
1990 FY1990 FQ41990 31-Jan-90 4

1991 FY1991 FQ11991 31-Jan-91 1 
1991 FY1991 FQ21991 31-Jan-91 2
etc
etc

為此，您應該意識到您的預期輸出如下所示：

aaaa FYaaaa FQbaaaa 31-Jan-aa b

在哪里：
aaaa和aa是年份，四位數或兩位數
b是季度數

aaaa和aa之間有什么聯系？ 簡單： aa = MOD(aaaa,100) 。

從那里你可以開始（意識到在 Excel 中，連接非常簡單： "TotalString" = "Total" & "String" ），所以我們開始（偽代碼）：

offset_number = 0
for aaaa = 1990 to 2019:
  for b = 1 to 4:
    resulting_string = aaaa & " FY" & aaaa & " FQ" & b & aaaa & " 31-Jan-" & MOD(aaaa,100) & " " & b
    Starting_Cell.Offset(offset_number,0) = resulting_string
    offset_number = offset_number + 1
  Next b
Next aaaa