Excel 将值复制并粘贴到下两个空行循环

我现在有一个这样的代码

    Sub Rowname()

    Const SHEET_NAME As String = "Sheet1"
    Const START_ROW As String = "A"
    Const ROW_NUM As Long = 1
    Const COPY_SIZE As Integer = 2
    Dim rng As Range


    Set rng = ThisWorkbook.Worksheets(SHEET_NAME).Cells(ROW_NUM, START_ROW)
    Do Until IsEmpty(rng)
    rng.Offset(1, 0).Resize(COPY_SIZE, 1) = rng.Value2
    Set rng = rng.Offset(, COPY_SIZE + 1)
    Loop

    End Sub

我试图使我的文件名自动循环复制另外2次，直到结束

    |  A    |         to something like  |  A    |
    |123.jpg|                            |123.jpg|
    |       |                            |123.jpg|
    |       |                            |123.jpg|
    |456.jpg|                            |456.jpg|
    |       |                            |456.jpg|
    |       |                            |456.jpg|

---

我有大约2000个独特的jpg文件。

您在这里犯了错误，您的范围按列向右移动：

Set rng = rng.Offset(, COPY_SIZE + 1)

您需要按行移动它：

 Set rng = rng.Offset(COPY_SIZE + 1)

---

您在此处犯了错误，并且您的范围按列向右移动：

Set rng = rng.Offset(, COPY_SIZE + 1)

您需要按行移动它：

 Set rng = rng.Offset(COPY_SIZE + 1)