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

• m.zmrzlina senior tag

  #20002

  #19998 Wollie

  2014-01-09 13:38:49

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #19998 Wollie

  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