如果不想插入整行,或者是删除整行,又频繁插入固定大小的单元格。可以使用ActiveCell.Row获取活动单元格所在的行号。
做一个快速添加和删除单元格。
用变量 I 接收ActiveCell.Row的返回,MsgBox做一下提示,预防误操作。
Insert括号中第一个参数是向下插入。
Delete括号中的参数是向上删除。
完整代码
function CommandButton1_Click()
{
//插入
var I= ActiveCell.Row
if(MsgBox('确认是否在当前选中行插入一行',jsOKCancel)==1)
{
Range('A'+ I+':'+'E'+I).Insert(xlShiftDown, true)
}
}
/**
* CommandButton2_Click Macro
*/
function CommandButton2_Click()
{
//删除
var I= ActiveCell.Row
if(MsgBox('确认是否删除当前选中行',jsOKCancel)==1)
{
Range('A'+ I+':'+'E'+I).Delete(xlShiftUp)
}
}