Excel VBA-生成下一个空行号并复制到电子表格

Question

VBA Issue.

I'm a VBA novice, and I'm trying to see if I can get my code to do just a little more for me. Currently, the code opens a spreadsheet on my sharedrive, checks for the next empty row, and provides me with row number. For example, I have 39 rows of data, and the 40th row is empty, it give me the number 40.

It currently provides me this number in a msgbox. What I would like it to do is input that number in to a cell on my open worksheet.

The number essentially works as an ID, which also shows us how many 'complaints' have been filed.

Any Ideas?

Here is my code currently:

Sub LastRowWithData()

Dim lastRow As Long
Dim ConcernMemosMaster As Workbook

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set ConcernMemosMaster = Workbooks.Open("N:\myfilepath")
lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 1

ConcernMemosMaster.Close

Application.DisplayAlerts = True

MsgBox lastRow

End Sub

Answer 1

The below code will stick the number of rows + 1 ( your lastRow variable ) in the active sheet cell A1 .

If you wanted it in a different cell than modify the line

currentSheet.Range("A1") = lastRow

and replace A1 with a different cell reference.

Your macro:

Sub LastRowWithData()

    Dim currentSheet As Worksheet
    Set currentSheet = ActiveSheet

    Dim lastRow As Long
    Dim ConcernMemosMaster As Workbook

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Set ConcernMemosMaster = Workbooks.Open("N:\myfilepath")
    lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row + 1

    ConcernMemosMaster.Close

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

    currentSheet.Range("A1") = lastRow

End Sub