在选择列时添加新行 # 取决于循环 #

Question

我在 SQL 中有如下行（第 1 行和第 2 行）：

我想要的重要事情是将每一行再次添加到同一张表中 12 次。 第 1 到 12 列包含每个类别（每行）的每月预算信息。 我需要 12 行格式的数据，其中预算位于字段 DT_VALUE_Nbr 中，因为读取此数据的软件需要一个预算编号/行。

现在12行添加到同一个表没有问题，我以后会改变这个，我只是不知道如何在vba中编写循环，在其中更改记录集并插入修改后记录集到数据库中。

建议我作为 Access VBA 模块执行此操作，因为模块已经发生了许多计算。

我对表格的查询：

SQL = " SELECT AS_VAR_ORG_Version_SK, ORG_Sk, VAR_Sk, DT_VALUE_Nbr, [1], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12] " & _
      " FROM dbo.AAAAAA_TEMP "

Answer 1

鉴于"Sheet1" 上 Excel 中的这些数据：

你可以运行这段代码：

Sub testit()

Dim LastRow As Long, CurRow As Long, NewRow As Long, DestLast As Long
Dim DataSht As Worksheet, DestSht As Worksheet

Set DataSht = Sheets("Sheet1")
Set DestSht = Sheets("Sheet2")
LastRow = DataSht.Range("A" & Rows.Count).End(xlUp).Row

DestSht.Cells.Clear

DataSht.Rows(1).Copy
DestSht.Range("A1").PasteSpecial
DestSht.Range("F1").Value = "Month"
DestSht.Range("G1:Q1").Delete

For CurRow = 2 To LastRow
    For NewRow = 1 To 12
        DestLast = DestSht.Range("E" & Rows.Count).End(xlUp).Row + 1
        DataSht.Range("A" & CurRow & ":Q" & CurRow).Copy
        DestSht.Range("A" & DestLast).PasteSpecial
        DestSht.Range("E" & DestLast).Value = DestSht.Cells(DestLast, NewRow + 5).Value
        DestSht.Range("F" & DestLast).Value = NewRow
        DestSht.Range("G" & DestLast & ":Q" & DestLast).Delete
    Next NewRow
Next CurRow

End Sub

并在"Sheet2" 上获得此输出：