如何在 Excel VBA 脚本中增加单元格？

在 Excel VBA 脚本中增加单元格可以使用 Range 对象的 Offset 方法。Offset 方法可以在指定的单元格基础上进行偏移，从而选择新的单元格。

下面是一个示例代码，演示如何在 VBA 脚本中增加单元格：

Sub AddCell()
    Dim rng As Range
    Set rng = Range("A1") ' 设置初始单元格
    
    ' 在初始单元格的右边增加一个单元格
    rng.Offset(0, 1).Insert Shift:=xlToRight
    
    ' 在初始单元格的下方增加一个单元格
    rng.Offset(1, 0).Insert Shift:=xlDown
End Sub

上述代码中，首先使用 Range 对象的 Offset 方法选择初始单元格（这里选择的是 A1 单元格）。然后，通过 Offset 方法的参数指定偏移量，第一个参数表示行的偏移量，第二个参数表示列的偏移量。例如，rng.Offset(0, 1) 表示在初始单元格的右边增加一个单元格，rng.Offset(1, 0) 表示在初始单元格的下方增加一个单元格。

在示例代码中，使用 Insert 方法将新的单元格插入到指定位置。Shift 参数用于指定插入后相对于原有单元格的位置，xlToRight 表示插入到原有单元格的右边，xlDown 表示插入到原有单元格的下方。

这样，通过使用 Offset 方法和 Insert 方法，就可以在 Excel VBA 脚本中增加单元格。

参考链接：

• Range.Offset 方法 (Excel)
• Range.Insert 方法 (Excel)