Question

很抱歉，如果已经讨论过这个问题，我正在努力解决我需要复制和粘贴的范围的语法问题。我试图在不使用剪贴板的情况下这样做，并发现我可以使用.Value = .Value（Excel VBA Copy and Paste (without using Copy+Paste functions) on empty row）

有两个工作簿，我正在从wbsource.Worksheets(1)复制到wb1.ws

论点是 - 如果列 L＆amp; row 有 “是” ，那么......如果L5等于是，则复制A5：L5并粘贴到wb1.ws中的第一个空行。

我的部分代码是

If .Cells(rw, 12) = "Yes" Then
    Dim lastrw As Long
    lastrw = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    wbsource.Worksheets(1).???? = ws.Range("A" & lastrw).Value
End If

如果你能帮我解决这个

的语法，我真的很感激

Answer 1

我相信以下内容适合您：

If wbsource.Worksheets(1).Cells(rw, 12) = "Yes" Then
    Dim lastrw As Long
    lastrw = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    ws.Range("A" & lastrw & ":L" & lastrw).Value = wbsource.Worksheets(1).Range("A" & rw & ":L" & rw).Value
End If

Excel VBA复制/粘贴没有剪贴板定义范围

1 个答案: