VBA代碼插入列和公式

Question

我有一個文件，需要刪除某些列。 然后，我需要插入一列稱為“正值”的列並添加一個公式，以便僅從另一列中獲得正值。

到目前為止，我已經拼湊了以下代碼以刪除我不需要的列，但是我被困在如何在現有列“ 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 nad - 2單元格引用中的原因。