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

• #28215 poffsoft addikt nyirisandor #28212

  Új Válasz 2015-08-25 12:32:30 #28215

  Ú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

  

  poffsoft

  addikt

  válasz nyirisandor #28212 üzenetére

  Szia,
  google tömbképletes megoldásokat kínál.
  Ha lehet makróval is:
  Dim row As Range
  Dim elements() As String
  Dim elementSize As Integer
  Dim newElement As Boolean
  Dim i As Integer
  Dim distance As Integer
  Dim result As String
  
  elementSize = 0
  newElement = True
  
  For Each row In rng.Rows
  If row.Value <> "" Then
  newElement = True
  For i = 1 To elementSize Step 1
  If elements(i - 1) = row.Value Then
  newElement = False
  End If
  Next i
  If newElement Then
  elementSize = elementSize + 1
  ReDim Preserve elements(elementSize - 1)
  elements(elementSize - 1) = row.Value
  End If
  End If
  Next
  
  distance = Range(Application.Caller.Address).row - rng.row
  
  If distance < elementSize Then
  result = elements(distance)
  listUnique = result
  Else
  listUnique = ""
  End If
  End Function

  forrás

  több

  ha megvan a lista, már csak egy sima DARABTELI() amire szükséged van.

  A példatáblát jobb lenne xls formátumban mellékelni

  [ Szerkesztve ]

  [ Szerkesztve ]

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