Excel VBA для вставки отсутствующих столбцов на основе списка?

Question

Так что я новичок в VBA, поэтому надеюсь, что кто-нибудь может помочь.

У меня есть массив со списком заголовков столбцов:

Array = ("FName", "LName", "Email", "Country", "Gender")

А потом у меня есть лист Excel, который уже содержит столбцы с заголовками.Я хочу сравнить мой массив с заголовками в листе Excel и для любого отсутствующего заголовка вставит новый столбец.

Так, например, если на листе есть только эти столбцы:

FName|LName |Пол

Затем после запуска подпрограммы будут вставлены новые отсутствующие столбцы:

FName |LName |Пол |Email |Страна

Любая помощь о том, как я могу выполнить это с помощью макроса?

Большое спасибо за любую помощь, которую вы можете предоставить.

Answer 1

Это должно сработать - обратите внимание, что оно проверяет соответствие случая.Он также не знает, не в порядке ли столбцы, просто добавляет отсутствующий.

Sub t()
Dim headers() As Variant
headers = Array("FName", "LName", "Email", "Country", "Gender")

Dim i As Long
For i = LBound(headers) To UBound(headers)
    If Cells(1, i + 1).Value <> headers(i) Then
        Columns(i + 1).EntireColumn.Insert
        Cells(1, i + 1).Value = headers(i)
    End If
Next i

End Sub