Como excluir colunas específicas de todas as pastas de trabalho do Excel em uma pasta específica

Question

Eu tenho uma pasta na qual tenho cerca de 30 arquivos do Excel. Em cada um desses arquivos, preciso excluir cerca de 20 colunas específicas.

Aqui estão alguns detalhes:

1. Estou usando o Excel 2013
2. As colunas estão na primeira folha do arquivo do Excel. cada arquivo pode ter várias planilhas, mas as colunas que precisam ser excluídas estão na primeira planilha.

3. Aqui estão os nomes das colunas, mas por favor note que as colunas são por vezes repetidas:

   Urze

   Luz Nacional

   Geral

   Louisa

   Terruin

Adoraria alguma ajuda.

    

Answer 1

Não tenho certeza se você realmente quer apenas uma função de planilha, mas como você não pesquisou a si mesmo, eu acho que você não sabe quais opções você tem e, portanto, o VBa será suficiente.

Esse VBa faz isso por você, mas significa colá-lo em cada planilha, mas como você só tem 30, presumo que seja gerenciável.

Sub Button1_Click()

Dim columnTitles(0 To 5) As String
    columnTitles(0) = "Heather"
    columnTitles(1) = "National Light"
    columnTitles(2) = "General"
    columnTitles(3) = "Louisa"
    columnTitles(4) = "Terruin"

Do While (True)
Dim didDelete As Boolean
didDelete = False

     Dim c As Range
        For Each c In ActiveSheet.UsedRange

             If c.Row > 1 Then
                Exit For
            End If

            For Each Title In columnTitles

                If (Title = c.Value) Then
                    Columns(c.Column).Delete
                    didDelete = True
                    Exit For
                End If

            Next
        Next c

        If (didDelete = False) Then
        Exit Do
        End If


Loop

End Sub

Antes

Depois

(Eu sei que deixei de fora o National Light na tela, mas testei e funciona)