Astuces Excel
  1. Astuces Excel
  3. VBA Loop pour supprimer plusieurs colonnes
Intereting Posts
Code Excel VBA pour comparer deux tables et mettre en surbrillance des erreurs Erreur VLOOKUP – EXCEL Où se trouve le file Excel Object Library Renommer et save des files Excel avec Python Comment find les différences les plus importantes et les plus faibles dans une colonne d'une table Excel? login de PowerPoint et Excel jQuery: comment append un nom sur le file lors de l'export de table pour excel Utiliser datatables Excel pour filterr la requête SQL Server Copier les informations d'une feuille de calcul vers une autre lorsqu'une cellule de cette ligne répond à certains critères Comment puis-je faire fonctionner mon code plus rapidement? Copier les cellules d'une feuille à l'autre Erreur 9: l'indice hors gamme dans VBA excel Obtenir une valeur ComboBox dans une cellule? formule pour find la première cellule non vide Ouvrez Excel à partir de Word à l'aide de FileDialog "Erreur d'exécution" 13 "uniquement lorsque" Fill down "est utilisé?

VBA Loop pour supprimer plusieurs colonnes

Je souhaite searchr / faire un suivi de tous les en-têtes de colonnes situés sur la rangée 1 du file ouvert et le supprimer s'il correspond à dColumns, qui est une list de colonnes dont je n'ai pas besoin et que j'ai mis une gamme. 

Sub LLextract() 'Last cell in column Dim WS As Worksheet Dim LastCell As Range Dim LastCellRowNumber As Long Set WS = ThisWorkbook.Worksheets("Consolidated Data") With WS Set LastCell = .Cells(.Rows.Count, "A").End(xlUp) LastCellRowNumber = LastCell.Row + 0 End With Dim wb As Workbook, wb2 As Workbook Dim vFile As Variant 'Set source workbook Set wb = ActiveWorkbook 'Open the target workbook vFile = Application.GetOpenFilename("CSV Files (*.csv), *.csv", , _ "Select a CSV file", , False) 'if the user didn't select a file, exit sub If TypeName(vFile) = "Boolean" Then Exit Sub Workbooks.Open vFile 'Set selectedworkbook Set wb2 = ActiveWorkbook Dim dColumns As Range Set dColumns = wb.Worksheets("LL Columns to Delete").Range("A:A") Dim i As Integer Dim A As Range For i = 94 To 1 Step -1 Set A = wb2.Cells(1, i) If wb2.Cells(1, i) = dColumns Then A.EntireColumn.Delete Next i 'wb2.Worksheets(1).Range("A1").Select End Sub

Vous ne pouvez pas faire simplement Range("A") , remplacez-le par Range("A:A") .

(Mais qu'est-ce que vous essayez de faire avec dColumns ?)

Je l'ai résolu en supprimant simplement la colonne lorsque j'ouvre wb2. Cette question n'a plus besoin d'être répondue ou résolue.