VBA - 如何在excel中插入空列

Question

我有一个excel电子表格，我在其中使用VBA代码生成两列L和M.在生成包含数据的两列后，我想在Column 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

Answer 2

您应该禁用CutCopyMode，以免意外插入

子InsertRowAbove（） ' 'InsertRow宏 '向下推活动行 ' 昏暗的人只要

blob_service = BlobService(account_name, account_key) 
generator = blob_service.list_blobs(container) # this is empty

结束子