-
GAMEPOD.hu
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
Írtam hozzá egy makrót. Nem mondom, hogy villámgyors lesz 40 k adatnál, de gyorsabb, mint "gyalogosan".
Az adatok az A:D oszlopokban vannak, és címsor van az első sorban.
Az A oszlopot átmásolja a G-be, ott megszünteti a duplikációkat. Az összevont B-D adatokat a H oszlopba írja, pontosvesszővel elválasztva.
A körlevélben a G lesz a cím, a H a szöveg.Sub Korlevelhez()
Dim sor As Long, tartomanyA As Range, tartomanyG As Range
Dim CVA As Range, CVG As Range, oszlop As Integer, szoveg As String
Columns("A:A").Copy Range("G1") 'másolás a G oszlopba
'Duplikációk megszüntetése
ActiveSheet.Range("$G:$G").RemoveDuplicates Columns:=1, Header:=xlNo
Set tartomanyA = Range("A2" & ":A" & Range("A2").End(xlDown).Row)
Set tartomanyG = Range("G2" & ":G" & Range("G2").End(xlDown).Row)
'Összevonás a H oszlopba
For Each CVG In tartomanyG
For Each CVA In tartomanyA
If CVA = CVG Then
szoveg = ""
For oszlop = 2 To 4
szoveg = szoveg & Cells(CVA.Row, oszlop) & ";"
Next
Cells(CVG.Row, "H") = Cells(CVG.Row, "H") & szoveg
End If
Next
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
- Lemezes Retro PC Játékok
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen