Question

我的代码粘贴部分存在问题。代码从主工作簿中过滤和复制数据然后创建一个新工作簿并将复制的数据粘贴到新工作簿中，我遇到的问题是粘贴新数据时粘贴的数据相互重叠在下一个可用的行上。

这是我的代码：

Set r2 = NewWB.Sheets(1).Range("A" & Rows.count).End(xlUp).Offset(1)
        r2.PasteSpecial Paste:=xlValues
        r2.PasteSpecial Paste:=xlPasteColumnWidths
        r2.PasteSpecial Paste:=xlPasteValues
        r2.PasteSpecial Paste:=xlPasteFormats
        r2.Offset(, 14).Resize(r.Rows.count).Value = ws.name

Answer 1

With Sheets("sheet name")

  rw = .Range("A" & .Rows.Count).End(xlUp).Row + 1

  .Range("A" & rw).Value = variable1
  .Range("B" & rw).Value = variable2

End With

VBA将数据粘贴到下一个可用行上

1 个答案: