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 

Iは、行番号を表示するメッセージボックスと共に使用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