[英]Copy Special Cells to next empty row on another sheet
我試圖將帶有數字的行復制到另一個工作表。 我已經從另一個論壇獲得了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
您可以嘗試以下方法:
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
我看不到您定義和設置lastrow
代碼中的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
請嘗試下面的代碼。這會將數據從名為“ 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
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.