用于插入列和公式的 VBA 代码

Question

我有一个需要删除某些列的文件。然后我需要插入一个名为“正值”的列并添加一个公式，以便在这个新列中只提取另一列中的正值。

到目前为止，我已经拼凑了以下代码来删除我不需要的列，但我被困在如何在名为“net”的现有列旁边插入一个新列，然后让该列只显示正面相关单元格中 net 列中的值。

当前代码

Sub ArrayLoop()
  Dim ColumnsToRemove As Variant
  Dim vItem As Variant
  Dim A As Range

  Sheets("sheet 1").Select

  ColumnsToRemove = Array("acronym", "valueusd", "value gbp")
  For Each vItem In ColumnsToRemove
    Set A = Rows(8).Find(What:=vItem, LookIn:=xlValues, lookat:=xlPart)
    Debug.Print vItem, Not A Is Nothing

    If Not A Is Nothing Then A.EntireColumn.Delete
  Next
End Sub

目前我手动插入新列并输入公式 max(E9,0)，因此如果另一列中的值大于 0，则新列要么显示 0，要么显示一个值。是否可以将这部分自动化为嗯。

提前致谢。

Answer 1

对于插入，找到单元格并发出：

If Not A Is Nothing Then A.EntireColumn.Insert

要插入公式，请使用 cell.formula= 和对应的字符串值，例如

Cells(1, A.column - 1).Formula = "=max(" & cells(9, A.column - 2).Address & ",0)" 

注意 A 在插入列时，作为找到值的范围将向右移动，这就是为什么在单元格引用中需要 - 1 和 - 2 的原因。