"SOGRITA BASTIA (2020PF)", "SOGRITA SARROLA AJACCIO (2020PF)", _ĭim dict As Object: Set dict = CreateObject("Scripting.Dictionary")ĭim Key: For Each Key In DeleteStrings: dict(Key) = Empty: Next Keyĭim ws As Worksheet: Set ws = ActiveSheet ' improve!
"CAT TORRES DE LA ALAMEDA (2020PF)", "CAT VALE ANA GOMES (2020PF)", _ "BALESI LOCATIONS FIGARI (2020PF)", "CAT AULNAY (2020PF)", _ "ALBIAS STELLANTIS VO (PFV)", "ATESSA ADJACENT STELLANTIS (PFV)", _ "(2020PF OLD) SPEDITION HORST MOSOLF KORNWESTHEIM", _ "(2020PF OLD) WERNER EGERLAND NEUSEDDIN", _ If IsNumeric(Application.Match(Cells(i, "K"), valeurs_a_supprimer, 0)) Thenĭelete Criteria Rows Efficiently Sub DeleteCriteriaRows()ĭim DeleteStrings(): DeleteStrings = Array( _ LastRow = Cells(Rows.Count, "K").End(xlUp).Row Valeurs_a_supprimer = Array("(2020PF OLD) WERNER EGERLAND NEUSEDDIN", "(2020PF OLD) SPEDITION HORST MOSOLF KORNWESTHEIM", "ALBIAS STELLANTIS VO (PFV)", "ATESSA ADJACENT STELLANTIS (PFV)", "BALESI LOCATIONS FIGARI (2020PF)", "CAT AULNAY (2020PF)", "CAT AVRIGNY (2020PF)", "CAT BOURGOGNE CHALON (2020PF)", "CAT BOURGOGNE DIJON (2020PF)", "CAT GUASTICCE (2020PF)", "CAT TORRES DE LA ALAMEDA (2020PF)", "CAT VALE ANA GOMES (2020PF)", "SOGRITA BASTIA (2020PF)", "SOGRITA SARROLA AJACCIO (2020PF)", "TRNAVA STELLANTIS (PFV)") 'Ajouter les valeurs que vous voulez supprimer dans le tableau 'Supprime les lignes où les cellules de la colonne K sont égales à certaines valeurs LastRow = Cells(Rows.Count, "F").End(xlUp).Row 'Supprime les lignes où les cellules de la colonne F sont vides 'Tri la colonne FĬolumns("F:F").Sort key1:=Range("F1"), order1:=xlAscending, Header:=xlYes When I halt the code, they notify me of the error. The sorting is effective, but the processing is really slow. The Design and Layout tabs are only visible after you have clicked inside of a table, and appear at the top of the screen on the ribbon.I want to delete all of the rows in a sheet with 330000+ rows if a specified value is present in the k column fields. You will need to know where the Design and Layout Table Tools contextual tabs are when working on the design and structural layout of a table. Top of Page About the Table Tools contextual tabs To add a column to the right of the cell, click Insert Right in the Rows and Columns group. To add a column to the left of the cell, click Insert Left in the Rows and Columns group. Under Table Tools, on the Layout tab, do one of the following: Top of Page Add a column to the left or rightĬlick in a cell to the left or right of where you want to add a column. For example, to insert two rows above a row, first select two rows in your table and then click Insert Above. Tip: To insert more than one row (or column) at the same time, select as many rows or columns as you want to add before you click the insert control.
0 kommentar(er)
