Giúp mình chuyển công thức sang dạng code VBA. (1 người xem)

[nguyenkhoadng]

Nhờ các bạn giúp mình chuyển công thức bên dưới sang công thức dạng code trong VBA với.
Mình cảm ơn!

=IF(INDIRECT("C"&ROW()-1)=0;1;INDIRECT("C"&ROW()-1)+1)

 

[SA_DQ]

Option Explicit
Sub Formulas()
    Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(INDIRECT(""C""&ROW()-1)=0,1,INDIRECT(""C""&ROW()-1)+1)"
    Selection.AutoFill Destination:=Range("F2:F21"), Type:=xlFillDefault
    Selection.Select
End Sub

 

[ndu96081631]

Nhờ các bạn giúp mình chuyển công thức bên dưới sang công thức dạng code trong VBA với.
Mình cảm ơn!

=IF(INDIRECT("C"&ROW()-1)=0;1;INDIRECT("C"&ROW()-1)+1)

Nếu tôi đoán không lầm thì công thức này dùng để fill STT vào những cell trống (không liên tục) nằm trong 1 cột
Bạn đưa file lên, tôi làm luôn cho