Excel VBA - 複製行號

Question

我很新VBA，我試圖讓宏查找表中的下一個空行，然後複製行號，然後將該值粘貼到另一個工作簿。

這是盡我所能。

Sub Retrieve_Row_Number() 

Dim erow As Integer 

erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 

Workbooks.Open "\\hamfile\public\(P) Maintenance\MJR_Status.xlsm", ReadOnly 
ActiveSheet.Cells(erow, 1).Select 

我已經看到與MSGBOX用於顯示的行數的功能ActiveCell.Row但我想複製它，所以它可以用作粘貼到第二片

單元值如果任何人都可以給我的代碼到選定行的行號複製到這將是非常感激

Answer 1

剪貼板嘗試使用下面的代碼：

Sub RowAdd() 

Dim eRow As Integer 
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Select 
eRow = ActiveCell.Offset(1, 0).Row 
Workbooks.Open "\\hamfile\public\(P) Maintenance\MJR_Status.xlsm", ReadOnly 
ActiveSheet.Cells(eRow, 1).Select 

End Sub