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

Question

我有当前的xlsx文件：

我想扩展单元格的合并，以便它们从B＃转到J＃。

例如，当前B3到G3合并为一个单元格。我想把它扩展到B3到J3。

如何在VBScript中完成此操作？

Answer 1

您应该在Excel VBE中编写代码并将其转换为VBScript。您必须将任何Excel常量转换为它们的值，或者创建自己的常量来保存它们的值。您也无法在VBScript中使用命名参数。

范围有一个BorderAround方法，它将在范围内添加边框。

Excel VBA

范围（＆＃34; B3：J3＆＃34;）.BorderAround LineStyle：= xlContinuous，Weight：= xlMedium，ColorIndex：= xlColorIndexAutomatic

的VBScript

范围（＆＃34; B3：J3＆＃34;）.BorderAround 1，-4138，-4105

示例VBScript

const xlContinuous = 1 
const xlMedium = -4138 
const xlColorIndexAutomatic = -4105 

Dim oExcel, xlWB, xlWS
Set oExcel = WScript.CreateObject("Excel.Application")
oExcel.Visible = True

Set xlWB = oExcel.Workbooks.Add
Set xlWS = xlWB.ActiveSheet

xlWS.Range("B3:J3").Merge

xlWS.Range("B3:J3").BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic

Set xlWB = Nothing
Set oExcel = Nothing

Answer 2

选择合并的单元格，转到“合并并居中”下拉菜单，然后单击“取消合并单元格”。

然后选择要覆盖的单元格并再次单击“合并并居中”。这也应该匹配格式。

注意：一次做一组，否则您会收到错误消息或搞砸。