excel - 如何用正确的数据填充空白单元格而不覆盖其上方的数据

Question

好的，我一直试图让这个工作，我想出了这个，但它显然不工作......

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With


With wsJL
    Dim wsJL As Worksheet
    Set wsJL = Sheets("Jobs List")

        lastrow = wsJL.Cells(Rows.Count, "J").End(xlUp).Row
        fstcell = wsJL.Cells(Rows.Count, "I").End(xlUp).Row
        wsJL.Range("AA1:AD1").Copy wsJL.Range("J & fstcell:N" & lastrow)
End With

这部分不起作用...

wsJL.Range("AA1:AD1").Copy wsJL.Range("J & fstcell:N" & lastrow)

我想知道如何让它发挥作用......我从来没有见过这样的公式，虽然我的谷歌搜索所以我什至不知道它是否可能。

感谢您的帮助。

Answer 1

你并没有完全让我跟随整个过程，但我认为你会这样做：

wsJL.Range("AA1:AD1").Copy wsJL.Range("J" & fstcell & ":N" & lastrow)

请注意，&运算符可能无法在您的字符串中工作。