Нахождение следующего порядкового номера в vba

Question

Я создаю кнопку, которая может автоматически вводить номер по порядку. Таким образом, в ячейке «А1» ячейка является заголовком и является номером заголовка. «А2» пусто. Мне бы хотелось, чтобы, если я нажму на свою кнопку, A2 будет 1, а когда я нажму на нее снова, A3 будет 2 и так далее. Я пытаюсь применить это к моей пользовательской форме, и я застрял в этой части. Какой код я могу использовать для этого?

Спасибо

Private Sub Save_Click()
Dim ws as Worksheet: Set ws = Thisworkbook.ActiveSheet
Dim LastRow as Long
Dim title as Long

title = ws.Range("A:A").Find("Title Number").Row
LastRow = ws.Range("A:A").Find(What:="", After:=Cells(title,1)).Row

Я застрял в этой части, я не знаю, как начать это после этого. Что я пытаюсь сделать, так это то, что каким бы ни было это число, я бы хотел сослаться на это число, чтобы я мог вводить больше данных в эту конкретную строку чисел.

Надеюсь, у меня есть смысл.

Answer 1

Вы можете сделать что-то вроде этого:

Sub test()
    Dim ws As Worksheet
    Dim f As Range, nums As Range

    Set ws = ThisWorkbook.ActiveSheet

    'find the header
    Set f = ws.Range("A:A").Find("Title Number", lookat:=xlWhole, LookIn:=xlValues)

    If Not f Is Nothing Then
        'find the occupied range below the header
        Set nums = ws.Range(f.Offset(1, 0), ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0))
        'populate max. value plus one
        nums.Cells(nums.Cells.Count).Value = Application.Max(nums) + 1
    Else
        MsgBox "No Title Number header!"
    End If

End Sub