如何從主excel表格自動複製最後50個數據點到另一個excel表格

Question

我有一個有5列（B12到F12）和500 +（行）數據點的精製表格。如何將最後50個數據點自動複製到另一張紙上。

Answer 1

在VBA和與該實例中，以下假設：

你的數據是在Sheet開始在B12

你的提取數據組被複制到Sheet開始B12

如果有少比50行數據複製所有行

您可以配置這些參數。

Sub CopyLast50() 

Dim lRow As Long, sRow As Long 
Dim lCol As Long, sCol As Long 
Dim numRows As Long 

'Configure these parameters 
lCol = 6 
sCol = 2 
sRow = 12 
numRows = 50 

    With Sheets("Sheet1") 
     lRow = .Cells(Rows.Count, sCol).End(xlUp).Row 
      If sRow + lRow >= numRows Then 
       .Range(.Cells(lRow, sCol).Offset(-(numRows - 1), 0), .Cells(lRow, lCol)).Copy _ 
       Destination:=Sheets("Sheet2").Cells(sRow, sCol) 
      Else 
       .Range(.Cells(sRow, sCol), .Cells(lRow, lCol)).Copy _ 
       Destination:=Sheets("Sheet2").Cells(sRow, sCol) 
      End If 
    End With 

End Sub 

請花些時間閱讀本網站的參考資料，可在幫助下找到。