Excel Vba - 复制行号-Java 学习之路

-3

我是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函数显示行号但是我想复制它以便它可以用作粘贴到第二张表中的单元格值

如果有人可以给我代码将所选行的行号复制到剪贴板，那将非常感激

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

回复于 2024-04-30T03:59:52+08:00

Excel Vba - 复制行号

1 回答

相关问题