0

わかりました、私はこれを機能させようとしてきました、そして私はこれを思いつきました、しかしそれは明らかに機能していません...

    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)

それを機能させる方法を知りたいのですが...グーグル検索でこのように使用された数式を見たことがないので、それが可能かどうかさえわかりません。

助けてくれてありがとう。

4

1 に答える 1

1

あなたは私を完全にフォローさせることはできませんでしたが、私はあなたがこのような何かをしようとしていると思います：

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

&演算子はおそらく文字列内では機能しないことに注意してください。

于 2012-05-18T18:34:05.123 に答える