-
IT café
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
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Milyen monitort vegyek?
- A fociról könnyedén, egy baráti társaságban
- Milyen cserélhető objektíves gépet?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Poco F5 - pokolian jó ajánlat
- iPhone topik
- Skoda, VW, Audi, Seat topik
- Politika
- Xiaomi 14 Ultra - Leica hercegnő
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest