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

• #21239 Delila_1 veterán user112 #21232

  Új Válasz 2014-04-11 07:15:19 #21239

  Ú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

  

  Delila_1

  veterán

  válasz user112 #21232 üzenetére

  Szia!

  Bár kaptál már választ, adok egy makrós megoldást, ami 3-nál több változat esetén is működik.

  A makró lényege, hogy az A oszlop adatait az F oszlopba másolja, majd ebből eltávolítja az ismétlődéseket.
  Egy ciklusban az F mellé, az első üres oszlopba írja a hozzá tartozó B értéket.

  A makró végén ***-os sorok közé írt rész törli az eredeti A és B oszlop tartalmát, helyére írja a kigyűjtött adatokat, majd a kigyűjtött részt is törli. Ha erre nincs szükséged, töröld a makróból ezeket a sorokat.

  Azért javasolom a makrós megoldást, mert az összetett képletekkel nem terheli a memóriát, és nem növeli a fájl méretét ezekkel.

  Sub valami()
  Dim sor As Long, usor As Long, ertek As String, jel As String
  Dim sor1 As Long
  
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  'A oszlop adatainak másolása az F oszlopba
  Range("A1:A" & usor).Copy Range("F1")
  
  'Ismétlődések eltávolítása az F oszlopból
  ActiveSheet.Range("$F$1:$F$" & usor).RemoveDuplicates Columns:=1, Header:=xlNo
  
  For sor = 1 To usor
  ertek = Cells(sor, "A")
  jel = Cells(sor, "B")
  sor1 = Application.WorksheetFunction.Match(ertek, Columns(6), 0)
  Cells(sor1, Cells(sor1, Columns.Count).End(xlToLeft).Column + 1) = jel
  Next
  
  '**************************************************
  Range("A1:B" & usor) = ""
  Range("F1").Select
  Selection.CurrentRegion.Copy Range("A1")
  Range("F:Z") = ""
  '**************************************************
  End Sub

• #21233 detroitrw addikt user112 #21232

  Új Válasz 2014-04-10 18:47:09 #21233

  Ú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

  

  detroitrw

  addikt

  válasz user112 #21232 üzenetére

  ilyenre gondolsz?

  F2 cella értéke:
  =HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");F$1);SOR($A$1:$A$10);0);2);"")

  J2 cella értéke:
  =ÖSSZEFŰZ(E2;" ";HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");F$1);SOR($A$1:$A$10);0);2);"");" ";HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");G$1);SOR($A$1:$A$10);0);2);"");" ";HAHIBA(INDEX($A$1:$B$10;HOL.VAN(KICSI(HA($E2=$A$1:$B$10;SOR($A$1:$A$10);"");H$1);SOR($A$1:$A$10);0);2);""))

  ezek ctrl+shift+enter kombinációval használhatók/aktiválhatók

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