COPY最後一行從WB1和最後一行WB2

Question

貼我有兩個工作簿1. thisWB 2. newWB
現在我需要把數據從thisWB的lastblank排+ 1 newWB工作簿中複製和lastblank排+ 1粘貼。
我已經把一些代碼象下面，但它不工作，你可以建議的是與下面的代碼

Application.ScreenUpdating = False 
Dim LastRow As Long 
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
Dim ws As Worksheet 
Dim blankcell As Long 
blankcell = Columns(1).Find("", LookIn:=xlValues, lookat:=xlWhole).Row 
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
Windows(thisWB).Sheets("BS All Entities").Rows(blankcell + 1 & ":" & LastRow).Copy Destination:=Windows(newWB).Sheets("BS All Entities").Cells(Rows.Count, "A").End(xlUp).Offset(2, 0) 
Application.ScreenUpdating = True 

感謝您對所有您的幫助提前的問題。 KR 馬諾

Answer 1

試試下面的代碼：

Application.ScreenUpdating = False 
Dim rngLastColumnOld As Long 
Dim rngLastRowOld As Long 
Dim rngTemp As Range 
Dim rngFirstBlankOld As Range 
Dim rngCopyFrom As Range 
Dim rngFirstBlankNew As Range 


With Windows(thisWB).Sheets("BS All Entities") 
    Set rngTemp = .Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) 
      If rngTemp Is Nothing Then 
       rngLastColumnOld = 1 
      Else 
       rngLastColumnOld = rngTemp.Column 
      End If 
    rngLastRowOld = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
    Set rngFirstBlankOld = .Range("A1").End(xlDown).Offset(1) 
    Set rngCopyFrom = .Range(rngFirstBlankOld, .Cells(rngLastRowOld, rngLastColumnOld)) 
End With 

Set rngFirstBlankNew = Windows(newWB).Sheets("BS All Entities").Cells(Rows.Count, "A").End(xlUp).Offset(1).EntireRow 

rngFirstBlankNew.Resize(rngCopyFrom.Rows.Count, rngCopyFrom.Columns.Count).Value = rngCopyFrom.Value 
Application.ScreenUpdating = True 

Answer 2

去通過這個鏈接

http://www.mrexcel.com/forum/excel-questions/755467-using-visual-basic-applications-paste-data-multiple-sheets.html

唯一變化的是不是同一工作簿片我使用不同的工作簿片