Insertar nueva columna en la tabla Excel VBA

Solución:

Es posible agregar una columna a una tabla en un lugar en particular y nombrarla, usando la misma línea de código.

Table.ListColumns.Add(2).Name = "New Header"

Esto agregará una columna a la izquierda de la segunda columna de la tabla y la llamará New Header. Puede hacer que su código sea dinámico agregando una columna a la izquierda de una cuyo nombre conozca. De esta forma, no es necesario especificar el valor entero de la ubicación fija de una nueva columna.

Dim newColNum as Integer
newColNum = Range("Table[Column Name]").Column
Table.ListColumns.Add(newColNum).Name = "New Header"

[Column Name] es el nombre de la columna de su tabla donde desea insertar una nueva columna. Puede tener cualquier posición en la tabla y puede pasar su valor como un número entero a Add.

  Dim Table As ListObject
  Set Table = Sheet1.ListObjects("Table1")
  Table.ListColumns.Add 2
  Table.HeaderRowRange(2) = "New header"

---

---

Utiliza Nuestro Buscador