- Google Pixel 9a - a lapos munka
- Xiaomi 15 - kicsi telefon nagy energiával
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Samsung Galaxy A52s 5G - jó S-tehetség
- Poco X3 NFC - minden, ami kell
- Android alkalmazások - szoftver kibeszélő topik
- Honor 200 Pro - mobilportré
- Telekom mobilszolgáltatások
- Samsung Galaxy A56 - megbízható középszerűség
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
Hirdetés
-
Mobilarena
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
veterán
Í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 Sub -
Fferi50
Topikgazda
Szia!
A Word körlevélben az adatforrás - jelen esetben az Excel - egy sora egy rekordnak felel meg. Ha azt szeretnéd, hogy a szőrös összes előfordulása egy levélben jelenjen meg, akkor valamennyi hozzá kapcsolódó tételt egy Excel sorba kell betenni, pl. így:
Szőrös;kutya;négylábú;kétszemű;kutya;kétlábú;négyszemű;macska;kétlábú;ötszemű
Természetesen az egyes oszlopokat mezőknek kell elnevezned.
Ebben az esetben a körlevélben már az összes oszlopot fel tudod venni egy mintalevélben.Üdv.
Új hozzászólás Aktív témák
Hirdetés
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Assassin's Creed Shadows Collector's Edition PC
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- DDR5 16GB 8GB 32GB 4800MHz 5600MHz RAM Több db
- TOP PC konfig /Ryzen 7 9800X3D, 32GB DDR5 RAM, 1TB SSD/ akciós áron eladó!
- HP ZBook 15 G6 i7-9850H 16GB RAM 512GB SSD NVIDIA Quadro T2000 15.6 FHD 1 év garancia
- Eladó ÚJ BONTATLAN Honor Magic6 Lite 8/256GB / fekete / 24 hó jótállással
- MacBook White unibody eladó töltőárban
Állásajánlatok
Cég: FOTC
Város: Budapest