Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #20002 m.zmrzlina senior tag Wollie #19998
    Új Válasz #20002
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    m.zmrzlina

    senior tag

    válasz Wollie #19998 üzenetére

    Próbáld meg a következőt. Az F oszlopban lévő szövegeken megy végig, az E oszlopba kigyűjti az egyedi rekordokat és a D1 cellába kiírja hogy hány különböző rekordot talált. Természetesen a tartományok átírhatók.

    Sub lista()
    Dim intHanyfele As Integer

    Do While ActiveCell.Value <> ""
    If Application.WorksheetFunction.CountIf(Range("E:E"), ActiveCell.Value) = 0 Then
    Cells(intHanyfele + 1, 5).Value = ActiveCell.Value
    intHanyfele = intHanyfele + 1
    End If
    ActiveCell.Offset(1, 0).Select
    Loop

    Range("D1").Value = intHanyfele
    End Sub

    Kicsit ágyúval verébre módszernek tűnik mert meg lehet oldani irányított szűréssel is. Más helyre másolja és Csak egyedi rekordok megjelenítése opciók bekattintva, majd az egyedi rekordokat darabtelivel megszámolni.

Új hozzászólás Aktív témák