复制多个范围并粘贴到其他工作表下一个空行？

我试图复制多个范围，当用户点击一个单元格。 然后我想将这些值粘贴到下一个可用行的另一个工作表上。

以下是我迄今为止所尝试的：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$AB$12:$AD$13" Then Range("B1").Copy Range("E11").Copy Sheets("Data").Range("B" & lastrow).PasteSpecial xlPasteValues End If End Sub 

但是我得到一个应用程序未定义的错误。

Answer 1

当有人想触发一个事件时，我总是有一点小小的意思。

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("AB12:AD13")) Is Nothing Then Worksheets("Data").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Resize(1, 2) = _ Array(Range("B1").Value, Range("E11").Value) End If End Sub 

您可能还需要查看Worksheet.BeforeDoubleClick事件，作为触发值传输的备用方法。

Answer 2

尝试这个

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) lastrow = Worksheets("data").Range("B" & Rows.Count).End(xlUp).Row + 1 If Not Intersect(Target, Range("AB12:AD13")) Is Nothing Then Range("B1").Copy Sheets("Data").Range("B" & lastrow) Range("E11").Copy Sheets("Data").Range("C" & lastrow) End If End Sub