VBA – 如何在Excel中插入空列

我有一个Excel电子表格，其中我使用VBA代码生成两列L和M。 在生成了包含数据的两列之后，我想在列L的左边插入两个新的空列。我该怎么做？

如图所示，我想在L的左边添加新的空列。这样当前的列L和列M应该分别移动到列N和列O.

我的代码如下 –

Sub Wave() Dim N As Integer Dim Inp As Integer Dim Op As Integer Dim Src As Integer Dim MAX As Integer MAX = 1502 Src = 0 N = 0 Op = ActiveSheet.Range("K2") For Src = 0 To MAX Step 1 Inp = ActiveSheet.Range("K" & 2 + Src) Op = ma0 * Inp + ma1 * mx1 + ma2 * mx2 - mb1 * my1 - mb2 * my2 mx2 = mx1 mx1 = Inp my2 = my1 my1 = Op ActiveSheet.Range("L" & 2 + Src) = Op ActiveSheet.Range("M" & 2 + Src) = ActiveSheet.Range("L" & 2 + Src) - ActiveSheet.Range("K" & 2 + Src) Next End Sub 

Answer 1

尝试

 ActiveSheet.Columns("L:M").Insert Shift:=xlToRight