在Excel中复制行将超出行限制？

Question

我正在尝试使用下面的VBA代码来复制基于count列的行。我有279,754行，将扩展为1,969,671行。我知道excel 2016的行限制为1,048,576。我正在使用Excel 2016，我知道它有＆＃39; Get and Transform＆＃39;，有没有办法可以用它来解决我的问题？如果有任何用途，我的最终输出格式必须是CSV格式。任何帮助非常感谢。 Source page of VBA code.

Public Sub CopyData()
' This routing will copy rows based on the quantity to a new sheet.
Dim rngSinglecell As Range
Dim rngQuantityCells As Range
Dim intCount As Integer

' Set this for the range where the Quantity column exists. This works only if there are no empty cells
Set rngQuantityCells = Range("D1", Range("D1").End(xlDown))

For Each rngSinglecell In rngQuantityCells
    ' Check if this cell actually contains a number
    If IsNumeric(rngSinglecell.Value) Then
        ' Check if the number is greater than 0
        If rngSinglecell.Value > 0 Then
            ' Copy this row as many times as .value
            For intCount = 1 To rngSinglecell.Value
                ' Copy the row into the next emtpy row in sheet2
                Range(rngSinglecell.Address).EntireRow.Copy Destination:= Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)                                
                ' The above line finds the next empty row.

            Next
        End If
    End If
Next
End Sub