一、在第一行的上方插入一行
Sub CommandButton1_Click()
Sheet1.Range("A1:iv1").Insert Shift:=xlShiftDown
End Sub
二、在第一列的左侧插入一列
Sub CommandButton1_Click()
Sheet1.Range("A:A").Insert Shift:=xlShiftToRight
End Sub
一、在第一行的上方插入一行
Sub CommandButton1_Click()
Sheet1.Range("A1:iv1").Insert Shift:=xlShiftDown
End Sub
二、在第一列的左侧插入一列
Sub CommandButton1_Click()
Sheet1.Range("A:A").Insert Shift:=xlShiftToRight
End Sub