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