Find alle x-værdier og slet

Har du prøvet med et filter eller sortering ?

Hej NCG har prøvet begge dele, men synes ikke at kunne finde en funktion hvor jeg så kan slette de fundne værdier

Kunne en makro være en mulighed?

Det kunne det, hvordan fikser man sådan en?

Jeg skal gøre et forsøg..

Kopier nedenstående VBA-kode (Ctrl+c)
Højreklik på relevante ark / Visprogramkode / Indsæt Ctrl+V
Luk VBA-vinduet
Koden effektueres ved Alt+F8 / Marker den viste makro (sletKolonner) / Afspil makro
<alternativt oprette en knap, derforbindesmedmakroen>


Dim antalKol As Integer, søgeVærdi
Dim kol As Integer, kolSlettet As Integer
Sub sletKolonner()
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    søgeVærdi = InputBox("Indtast søgeværdi", Søg & Sletkolonne)
    kolSlettet = 0
   
    Application.ScreenUpdating = False
   
    For kol = 1 To antalKol
        If søgIkolonne(kol, søgeVærdi) > 0 Then
            Columns(kol).Select
            Selection.Delete
            kol = kol - 1
            kolSlettet = kolSlettet + 1
        End If
    Next kol
   
    Range("A1").Select
    Application.ScreenUpdating = True
   
    MsgBox CStr(kolSlettet) & " kolonner slettet"
End Sub
Private Function søgIkolonne(kolonne, værdi)

    With ActiveSheet.Columns(kolonne)
        Set c = .Find(værdi, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            søgIkolonne = c.Column
        Else
            søgIkolonne = 0
        End If
    End With
End Function

Tak for makroen supertekst

Hvordan opretter jeg den konkret og afspiller den?

Går ud fra jeg skal udskifte "indtast søgeværdi" med den værdi jeg ønsker? Er der andet jeg selv skal ændre på i den tekst du har skrevet foroven?

DETTE ER HVORDAN DU "INSTALLERER"

Kopier nedenstående VBA-kode (Ctrl+c)
Højreklik på relevante ark / Visprogramkode / Indsæt Ctrl+V
Luk VBA-vinduet

HVORDAN MAKROEN AKTIVERES:

Koden effektueres ved Alt+F8 / Marker den viste makro (sletKolonner) / Afspil makro
<alternativt oprette en knap, der forbindes med makroen

RESTEN ER DEN KODE, SOM DU SKAL KOPIERE OG INDSÆTTE....
(Der skal ikke ændres noget)

Hvor finder jeg præcist: "relevante ark / visprogramkode" ?

Er det stadig i Excel eller i VBA?

Det ark, som du skal søge i og evt. slette kolonner i - er det relevante ark. Hvis du højreklikker på arkfanen - vil du i menuen bl.a. se "Vis programkode".

Hvis det kan være en hjælp - så er du velkommen til at få min Excel-fil. Du skal blot sende en mail til mig. @-adresse under min profil.

Det er lidt problematisk eftersom der er 360.000 kolonner. Det betyder min computer simpelthen ikke kan håndtere alt den data, er der evt. en anden mulighed? Imens x-værdierne udgør 250.000 kolonner.

F.eks. sorterer alle x-værdier så de fremgår øverst i regnearket, og så derefter markere og slette dem?

Jeg kan se at datatypen for antal kolonner m.v. skal ændres - d.v.s. at de 2 første rækker i koden skal ændres til:

Dim antalKol As long, søgeVærdi
Dim kol As long, kolSlettet As long

(Integer er ændret til Long)