Hur man extraherar rekord med icke -kriterier genom VBA

Innehållsförteckning

I den här artikeln kommer vi att lära oss hur man extraherar post utan kriterier via VBA i Microsoft Excel.

Låt oss ta ett exempel för att förstå hur vi kan sätta filtret och välja kriterier och sedan vidta nödvändiga åtgärder:-

Vi har data i intervall A: G -kolumner, där kolumn A innehåller namn, kolumn b innehåller adress, kolumn C innehåller stad, kolumn D -region, kolumn E -land, kolumn F -telefonnummer och kolumn G innehåller kriterier.

Vi vill skriva makrot för att sätta filtret och sedan filtrera data enligt Inte innehåller data i G -kolumnen och sedan radera Inte innehåller data. Ta sedan bort filtret och visa all data.

För att extrahera post med Not -kriterier, följ nedanstående steg:

  • Öppna VBA -sidan tryck på tangenten Alt+F11
  • Sätt i en modul
  • Gå sedan till igen infoga -menyn och klicka på proceduren, där du kommer att få proceduren om du inte vet hur man ska starta makrot
  • Skriv koden nedan:
Sub Delete_NotEligible () ActiveSheet.Range ("$ A $ 1: $ G $ 15"). Autofilterfält: = 7, Criteria1: = "" Rader ("2:12"). Välj Selection.Delete Shift: = xlUp Range (" B1 "). Välj Selection.AutoFilter End Sub 
  • För att köra koden, tryck på F5 på tangentbordet.
  • Data kommer att filtreras och sedan enligt uppsatta kriterier kommer filtrerade data att raderas.

Kodförklaring:

  • Vi har definierat rubrikintervallet för data för att sätta filtret med kriterier för icke-tomma celler i behörighetskolumnen
  • Definiera i koden för att välja raden och radera sedan hela raden
  • Öppna filtret i slutet

På detta sätt kan vi sätta filtret på grundval av särskilda kriterier och sedan radera data.

Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.

Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen

Du kommer att bidra till utvecklingen av webbplatsen, dela sidan med dina vänner

wave wave wave wave wave