Tự động copy công thức từ dòng trên xuống dòng dưới khi insert! (1 người xem)

[Ngoanthihientrinh]

Chào các bác!
Em có cóp nhặt được đoạn code sau: khi ínert thì sẽ tự động copy công thức cũng như format từ dòng trên xuống dòng dưới:

Sub abc()
Dim r As Long
r = Selection.Row
If r = 1 Then Exit Sub
cc = Selection.SpecialCells(xlCellTypeLastCell).Column
Selection.EntireRow.Insert
For c = 1 To cc
If Cells(r - 1, c).HasFormula = True Then
Cells(r, c).FormulaR1C1 = Cells(r - 1, c).FormulaR1C1
End If
Next
End Sub

Vấn đề là, công thức tại tất cả các cột dòng trên đều được copy hết. Bác nào giúp em sửa lại code này cái. Em chỉ muốn nó copy công thức trong một cột, hoặc hai cột định sẵn.
Em cảm ơn trước!

 

[Ngoanthihientrinh]

Đây là file em copy nhặt được:
Các bác giúp em với:
Khi ấn vào hình mặt trời, thì vba sẽ tự động chèn dòng và copy công thức tại dòng có chứa con trỏ! Em muốn vba chỉ copy công thức trong 1 cột nhất định thôi!

 

[phulien1902]

Đây là file em copy nhặt được:
Các bác giúp em với:
Khi ấn vào hình mặt trời, thì vba sẽ tự động chèn dòng và copy công thức tại dòng có chứa con trỏ! Em muốn vba chỉ copy công thức trong 1 cột nhất định thôi!

Bạn thử với:

Sub abc2()
    Dim r As Long
    r = Selection.Row
    If r = 1 Then Exit Sub
    Selection.EntireRow.Insert
    If Cells(r - 1, 2).HasFormula = True Then
        Cells(r, 2).FormulaR1C1 = Cells(r - 1, 2).FormulaR1C1
    End If
End Sub

 

[Ngoanthihientrinh]

Bạn thử với:

Sub abc2()
    Dim r As Long
    r = Selection.Row
    If r = 1 Then Exit Sub
    Selection.EntireRow.Insert
    If Cells(r - 1, 2).HasFormula = True Then
        Cells(r, 2).FormulaR1C1 = Cells(r - 1, 2).FormulaR1C1
    End If
End Sub

Số 2 chính là cột B phải không bạn?
Nếu vậy muốn copy chỉ trong cột G thì sẽ thay = số 7?
Vây nếu muốn copy công thức trong hai cột B và C chẳng hạn thì code thay đổi như nào?
Bạn giúp mình tiếp đi =))

 

[giangleloi]

Số 2 chính là cột B phải không bạn?
Nếu vậy muốn copy chỉ trong cột G thì sẽ thay = số 7?
Vây nếu muốn copy công thức trong hai cột B và C chẳng hạn thì code thay đổi như nào?
Bạn giúp mình tiếp đi =))

Thì bạn cứ tự thí nghiệm thêm y chang thay số 2 thành số 3. Sẽ giúp bạn nhớ lâu hơn.