如何在使用VBScript保留格式的同时扩展合并单元格的范围

在使用VBScript保留格式的同时扩展合并单元格的范围，可以通过以下步骤实现：

首先，获取要操作的工作表对象。可以使用ActiveSheet属性获取当前活动的工作表对象，或者使用Worksheets("Sheet1")方法获取指定名称的工作表对象。
然后，使用Range对象选择要扩展合并单元格的范围。可以使用Range("A1")选择单个单元格，或者使用Range("A1:B2")选择一个矩形区域。
接下来，使用MergeCells属性判断选定的范围是否已经合并单元格。如果已经合并单元格，则需要先取消合并，以便扩展范围。可以使用Range("A1").MergeCells来判断指定单元格是否已经合并。
如果选定的范围已经合并单元格，可以使用UnMerge方法取消合并。例如，Range("A1:B2").UnMerge将取消合并范围内的所有单元格。
然后，使用Merge方法将选定的范围重新合并为一个单元格。例如，Range("A1:B2").Merge将合并范围内的所有单元格。
最后，使用HorizontalAlignment和VerticalAlignment属性设置合并后单元格的文本对齐方式。例如，Range("A1:B2").HorizontalAlignment = xlCenter将水平居中对齐合并后的单元格。