将特殊单元格复制到另一个表单上的下一个空行

我试图将数字复制到另一个工作表。 我从另一个论坛获得了SpecialCells代码，但是将数据粘贴到另一个表单中时出现问题。 感谢您的帮助！

这里是我有的代码：

Sub Sample() Dim ws As Worksheet Dim rng As Range Dim ws1 As Worksheet On Error GoTo Whoa Set ws = Sheets("3") Set ws1 = Sheets("Sheet1") With ws Set rng = .Cells.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow Copy ws1.Range("A" & lastrow) End With Exit Sub End sub 

Answer 1

你可以试试这个：

 Sub Sample() With Sheets("Sheet1") Sheets("3").UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1) End With End sub 

Answer 2

我没有看到你的代码中的任何你定义和设置lastrow 。

修改你的最后一节到：

 With ws Set Rng = .Cells.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow lastrow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row + 1 ' <-- get the last row in column A '<-- just in case you are looking for the first empty row in Column A Rng.Copy ws1.Range("A" & lastrow) '<-- you need to add the Rng.Copy End With 

Answer 3

请尝试下面的代码。这将从名为“3”的表格复制到“sheet1”。

 Sub Sample() Dim ws As Worksheet Dim rng As Range Dim ws1 As Worksheet Set ws = Sheets("3") Set ws1 = Sheets("Sheet1") LastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row Set rng = ws.Cells.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow rng.Copy ws1.Activate Range("A" & LastRow + 1).Select ActiveSheet.Paste End Sub