(excel_2010_VBA) Вставить макросом =

Формулировка задачи:

Здравствуйте, не могу сделать в макросе так, чтобы в столбце "А" к счету по порядку прибавлялся знак равно "=" Собственно макрос следующий:

                    Листинг программы
                
 
                        
                          
                    
Sub обработка()
Dim lngQ, lngZ, lngY As Long
Const bUkva = "|A"   ' внести в ячейку
Const rAvno = "="   ' внести в ячейку
'-----------------------------------------------------------------
    lngQ = Cells(Rows.Count, 2).End(xlUp).Row
    Range("A2").Value = "1" & rAvno
    Range("A2").AutoFill Destination:=Range("A2:A" & lngQ), Type:=xlFillDefault
'-----------------------------------------------------------------
    lngZ = Cells(Rows.Count, 2).End(xlUp).Row
    Range("F2").Value = bUkva & "1"
    Range("F2").AutoFill Destination:=Range("F2:F" & lngZ), Type:=xlFillDefault
'-----------------------------------------------------------------
    lngY = Cells(Rows.Count, 2).End(xlUp).Row
    Range("G2").Value = "|1|"
    Range("G2").AutoFill Destination:=Range("G2:G" & lngY), Type:=xlFillCopy
'-----------------------------------------------------------------
End Sub

Решение задачи: «(excel_2010_VBA) Вставить макросом =»

textual
                            Листинг программы 
                        
    lngQ = Cells(Rows.Count, 2).End(xlUp).Row
    With Range("A2:A" & lngQ)
      .Formula = "=ROW()-1&""="""
      .Value = .Value
    End With