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


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


本文介绍了如何使用VBA在Excel中实现自动操作,具体为点击SubCommandButton1后,分别在第一行上方插入一行(ShiftDown方向)和第一列左侧插入一列(ShiftToRight方向)。
一、在第一行的上方插入一行
Sub CommandButton1_Click()
Sheet1.Range("A1:iv1").Insert Shift:=xlShiftDown
End Sub


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


5489

被折叠的 条评论
为什么被折叠?