为表格添加二级右键菜单，快捷运行JS宏代码

//鼠标右键事件，单鼠标右键时触发

function Workbook_SheetBeforeRightClick(Sh, rg, cancel)

{

// 获取Application对象中的CommandBars对象，参数"Cell"表示右键菜单。

let cb = Application.CommandBars("Cell");

cb.Reset(); // 重置右键菜单。

let cc=cb.Controls.Add(msoControlPopup) //设置一级菜单

cc.Caption="合并拆分" //设置一级菜单名称

ar=['合并单元格','拆分单元格']; // 定义一个数组，用于存放二级菜单名称。

ar.forEach((a)=>{ // 使用forEach方法遍历数组ar。

with(cc.Control.Controls.Add()){ // 添加二级菜单，使用with语句简化代码。

OnAction = a; // 设置二级菜单选项的点击事件处理函数。

Caption = a; // 设置二级菜单选项的标题。

}

})

}

// 合并单元格函数。该函数用于合并当前选定的单元格。

function 合并单元格(){

Selection.Merge(); // 合并选中的单元格。

}

// 取消合并单元格函数。该函数用于取消当前选定的单元格的合并状态。

function 拆分单元格(){

Selection.UnMerge(); //对选择单元格取消合并

}