درج ردیف و ایجاد ردیف در اکسل

درج ردیف در اکسل در صورتیکه ردیف پاک شود ردیف ها تغییر خواهند نمود 

Row()-1=

ایجاد ردیف اتومات 

ActiveCell.EntireRow.Insert XlShiftDown

اضافه کردن ردیف

وقتی شما شماره ای در کالمن B بالای Total (در کالمن A ) قرار بدهید ردیف ایجاد و کرسر به کالمن A روی ردیف ایجادشده خواهد رفت.

(Private Sub Worksheet_Change(ByVal Target As Range

If Target.Column <> 2 Then Exit Sub

If Cells(Target.Row, 2).Offset(1, -1) = "Total" Then

Rows(Target.Row + 1).Insert

Cells(Target.Row + 1, 1).Select

End If

End Sub