vba 插入单元格

你可以使用以下 VBA 代码将单元格插入 Excel 工作表中：

Sub InsertCell()
    '在当前选定单元格的下方插入一行
    Selection.EntireRow.Insert shift:=xlDown
    '在当前选定单元格的右侧插入一列
    'Selection.EntireColumn.Insert shift:=xlToRight
End Sub

请按照以下步骤操作：

1. 打开 Excel 文件并按下 Alt + F11 进入 VBA 编辑器。
2. 在左侧窗口中右键单击工作簿名称，然后选择插入模块。
3. 将上述代码复制并粘贴到模块中。
4. 您可以通过单击工具栏上的“运行”按钮或按下 F5 键来运行该代码。
5. 如果您要在选定单元格的右侧插入单元格，取消注释第 4 行并注释第 3 行。

希望这可以帮助到你。