检查条件并在 EXCEL 工作表中插入列

【问题标题】：Check for condition and insert column in EXCEL worksheet检查条件并在 EXCEL 工作表中插入列
【发布时间】：2023-02-25 06:12:04
【问题描述】：

我在 excel 中有一张表。我想检查列的名称，如果是真的，我想插入一个新列，否则它必须继续检查。

我找不到任何办法

【问题讨论】：

你试过什么了？你遇到了什么问题？你的主题说行，但你的问题说列。
直到现在我手动完成它（找到我需要的列）然后我插入列。然后我继续检查以找到下一列并继续检查）

标签： excel vba

【解决方案1】：

Sub test()
   Call addNewCol(Me, "PINAKAS1", "Στήλη3")
End Sub

Private Sub addNewCol(ws As Worksheet, tableName As String, colName As String)
   Dim lst As ListObject, h As Long
   Set lst = ws.ListObjects(tableName)
   If lst Is Nothing Then
      MsgBox ("addNewCol> " & tableName & " don't exist")
   End If
   With lst
      For h = 1 To .ListColumns.Count
      If .ListColumns(h).Name = colName Then
         .ListColumns.Add Position:=h
         Exit Sub
      End If
      Next
   End With
End Sub

【讨论】：