合并或拆分单元格

命令说明

合并或者拆分所选单元格

命令原型

Excel.MergeRange(objExcelWorkBook,sheet,strCell,option,bSave)

命令参数

参数	必选	类型	默认值	说明
objExcelWorkBook	True	expression	objExcelWorkBook	使用 "打开Excel工作簿"命令（Excel.OpenExcel） 或 "绑定Excel工作簿" 命令（Excel.BindBook）返回的工作簿对象
sheet	True	string	"Sheet1"	如果使用字符串，则表示指定工作表的名字；使用数字，则表示指定工作表的顺序（从0开始）
strCell	True	string	"A1:B1"	指定的单元格，支持单元格名如"A1"与行列数组如[行号，列号]两种形式，当使用单元格名时不区分大小写
option	True	boolean	True	合并单元格或者取消合并，选择是合并单元格，选择否拆分单元格
bSave	True	boolean	False	操作完成立即保存

运行实例

/*********************************合并或拆分单元格***************************************
命令原型：
    Excel.MergeRange(objExcelWorkBook,"Sheet1","A1:B1",true,false)
入参：
    objExcelWorkBook--Excel工作簿对象（使用 "打开Excel"命令（Excel.OpenExcel） 打开的工作簿或使用"绑定Excel"命令（Excel.BindBook）绑定的工作簿对象）。
    sheet--如果使用字符串，则表示指定工作表的名字；使用数字，则表示指定工作表的顺序（从0开始）。
    strCell--指定的单元格，支持单元格名如"A1"与行列数组如[行号，列号]两种形式，当使用单元格名时不区分大小写。
    option--合并单元格或者取消合并，选择是合并单元格，选择否拆分单元格。（布尔值true/false）
    bSave--操作完成立即保存。（布尔值true/false）
注意事项：
    该命令不能单独使用，需配合 "打开Excel"命令（Excel.OpenExcel） 或"绑定Excel"命令（Excel.BindBook）一起使用才能正常使用，单独使用则会报错。
**********************************************************************************/
Dim objExcelWorkBook = ""
objExcelWorkBook = Excel.OpenExcel(@res"测试.xlsx",True,"Excel","","")
Excel.MergeRange(objExcelWorkBook,"Sheet1","A20:B20",True,False)
TracePrint "合并或拆分单元格：Excel对象Sheet1工作表的A20和B20单元格已合并"
Excel.CloseExcel(objExcelWorkBook,True)

可视化样例