Elimina row con un determinato text

Ho codice VBA che pulisce i miei dati e imposta il text nelle colonne. La row inizia sempre con la parola Planning . Ho bisogno di un codice che elimina quella row e le quattro righe sopra di esso. Speriamo che questo non sia un codice duro.

  • Identificare intere righe vuote e ignorare righe che dispongono solo di celle vuote
  • Utilizzo di un'altra colonna come riferimento nella formattazione condizionale.
  • Come copiare da Excel e incollare come image in Word utilizzando Python?
  • Ottenere i dati da MS Excel in asp.net
  • Aggiungere il field Dati a Pivot in base alla cella
  • Annullare una tabella di matrix / pivot di Excel?
  • È ansible visualizzare un file Excel su Linux
  • Procedura memorizzata Excel-to-SQL con più parametri
  • cfspreadsheet valori alfanumbersci che terminano in d
  • È ansible utilizzare templates di workbook di .xls basati su parametri dinamici?
  • Colonne doppie di file di prova di Excel
  • Come creare un textzone con la stessa width di un tavolo - VBA
  • One Solution collect form web for “Elimina row con un determinato text”

    Normalmente vorrei aspettare qualche codice da parte tua, ma questo non è troppo complesso, quindi ecco qualcosa che dovrebbe farti iniziare:

     Sub test() Dim lastRow&, i& Dim findStr$ findStr = "Planning" lastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = lastRow To 1 Step -1 ' change this to 2 if you have headers If Cells(i, 1).Value = findStr Then 'Range(Rows(i), Rows(i - 4)).Select Range(Rows(i), Rows(i - 4)).EntireRow.Delete End If Next i End Sub 

    Supponiamo che "Planning" sia nella colonna A ("La row inizia sempre con la parola" Planning ""). In caso contrario, modificare gli intervalli corrispondenti a where si troverebbe.

    Microsoft Office Excel Spreadsheet è il miglior software di Office, Excel VBA e formule Excel rendono il foglio di calcolo più veloce.