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

• #31234 Delila_1 veterán hallgat #31233

  Új Válasz 2016-04-05 15:35:56 #31234

  Ú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 hallgat #31233 üzenetére

  Készíts egy másolatot a B oszlopról a D-be. Ebben az oszlopban Ismétlődések eltávolítása. Az E oszlopot állítsd szöveg formátumúra. Indulhat a makró.

  Sub Ismetlodes()
  Dim sorB As Long, sorD As Long, sorE As Long
  Dim usorD As Long, usorB As Long
  
  usorD = Range("D" & Rows.Count).End(xlUp).Row
  usorB = Range("B" & Rows.Count).End(xlUp).Row
  sorE = 2
  For sorD = 2 To usorD
  For sorB = 2 To usorB
  If Cells(sorB, "B") = Cells(sorD, "D") Then Cells(sorE, "E") = Cells(sorE, "E") & "," & Cells(sorB, "A")
  Next
  Cells(sorE, "E") = Right(Cells(sorE, "E"), Len(Cells(sorE, "E")) - 1)
  sorE = sorE + 1
  Next
  End Sub

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