Excel VBA - Pridanie riadku s absolútnym odkazom. Ako pokračujem v číselnom poradí? 1,2,3 atď. - excel, vba, excel-vba

Mám makro, ktoré pridáva riadok a ťahá nadolvzoru z vyššie uvedeného riadku. To funguje dobre, okrem môjho absolútneho odkazu. Potrebujem kód, ktorý prináša môj požadovaný stav nižšie. Ja som nováčik na to, takže ak by ste mohli pridať do môjho kódu, ktorý by bol veľmi ocenil!

Aktuálny stav - VBA Pridať riadkový kód (nižšie) prináša:

$B$1
$B$1
$B$1

Požadovaný štát - kódex prináša:

$B$1
$B$2
$B$3

Aktuálny kód VBA je:

Sub Insert_Row()
ActiveSheet.Unprotect
Application.Goto Reference:="Insert_Row"
Dim insRows As Long
insRows = ActiveCell.Row
Selection.EntireRow.Insert

Range("B" & insRows - 1, "B" & insRows - 1).Select
Selection.AutoFill Destination:=Range _
("B" & insRows - 1, "B" & insRows), Type:=xlFillValues

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowDeletingRows:=True
End Sub

Vďaka!!

odpovede:

Podarilo sa mi vyriešiť tento problém tým, že všetky bunky v stĺpci B Absolútne raz som dokončil VBA kód. Urobil som to takto:

Dim LastCell As Range

Set LastCell = Range("B" & Rows.Count).End(xlUp)
Range("B1", LastCell).Formula = Application.ConvertFormula _
(Formula:=Range("B1", LastCell).Formula, FromReferenceStyle:=xlA1, _
ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)