Hur filtrerar jag data bara genom att klicka på cellinnehåll i Excel?

Normalt i Excel kan du använda filterfunktionen för att filtrera data efter ditt behov. Men i den här artikeln kommer jag att prata om hur man filtrerar data bara genom att klicka på ett cellvärde. Ta följande data som exempel, när jag dubbelklickar på cellen A2, kommer alla motsvarande poster baserade på detta klickade värde att filtreras på en gång enligt skärmbilden nedan.

Filtrera data bara genom att klicka på ett cellvärde med VBA-kod

Filtrera data bara genom att klicka på ett cellvärde med VBA-kod

Här kommer jag att tillhandahålla en VBA-kod så att du kan filtrera data genom att klicka på en cell, gör så här:

1. Ge först din data ett intervallnamn, vänligen ange ett intervallnamn i Namn Boxoch tryck på ange nyckel, se skärmdump:

2. Högerklicka på arkfliken som du vill filtrera genom att klicka på cellen och välj sedan Visa kod från snabbmenyn och i den öppnade Microsoft Visual Basic för applikationer fönster, kopiera och klistra in följande kod i den tomma modulen:

VBA-kod: Filtrera data genom att klicka på cellvärde:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    Dim rgTable As Range
    Dim rgData As Range
    Dim xColumn As Integer
    On Error Resume Next
    Application.ScreenUpdating = False
    Set rgTable = Range("mydata")
    With rgTable
        Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
        If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
            xColumn = ActiveCell.Column - .Column + 1
            If ActiveSheet.AutoFilterMode = False Then
                .AutoFilter
            End If
            If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
                .AutoFilter Field:=xColumn
            Else
                .AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
            End If
        End If
    End With
    Set rgData = Nothing
    Set rgTable = Nothing
    Application.ScreenUpdating = True
End Sub

Anmärkningar: I ovanstående kod, min data är intervallnamnet du har skapat för ditt dataintervall, ändra det till ditt behov.

3. Spara och stäng sedan kodfönstret, nu när du dubbelklickar på valfri cell i dataintervallet som du vill filtrera bort, kommer dess motsvarande poster att filtreras enligt följande skärmdump:

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Fler relaterade artiklar:

Hur ändrar man cellvärdet genom att klicka på cellen?

Hur sorterar jag kolumndata genom att klicka på rubriken i Excel?