-
Fototrend
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
-
Mutt
senior tag
válasz
atillaahun
#17532
üzenetére
Hello,
Üdv, szükségem lenne valami nyerő ötletre hogy rakok sorba Dr.-okat, Prof. Dr.-okat, meg sima nevű embereket, egy kb. 500-as táblába, úgy hogy a rendezési elv ugye mindenkinek a normál vezetékneve, címzések nélkül.
A szűk keresztmetszet itt, hogy hogyan tudod eltávolítani a nevekből a titulusokat.
Excelben sok szöveg függvény van, a HELYETTE például ezt csinálja, de egyszerre csak 1 cserét csinál meg.
Ezért készítettem egy UDF-et amely egyszerre több cserél csinál csak sorold fel vhova azokat amiket le kell cserélni.Itt a kód:
Function HelyetteTobb(Eredeti, rngKereses As Range)
Dim szoveg_regi As Range
Dim szoveg
HelyetteTobb = "N/A"
szoveg = Eredeti
For Each szoveg_regi In rngKereses
szoveg = Replace(szoveg, CStr(szoveg_regi.Value), "", compare:=vbTextCompare)
Next szoveg_regi
HelyetteTobb = Trim(szoveg)
End FunctionLépések:
1. A fenti függvényt használva megkapod a sima neveket.
2. DARABTELI függvénnyel meghatározod hogy a név ABC-sorrend szerint hanyadik helyre kerül.
3. Az elöző függvény eredményét felhasználva ABC-sorrendbe kiíratod a listát. Itt sok megoldás lehet, pl. ELTOLÁS, INDEX, FKERES.üdv.
-
Delila_1
veterán
válasz
atillaahun
#17532
üzenetére
Az első kérdésre:
Az A oszlopban vannak a nevek.
B1 ->
=HA(BAL(A1;2)="dr";JOBB(A1;HOSSZ(A1)-4);HA(BAL(A1;4)="prof";JOBB(A1;HOSSZ(A1)-6);A1))C1 ->
=HA(BAL(A1;2)="dr";B1&" dr.";HA(BAL(A1;4)="prof";B1&" prof.";B1))A másodikat próbáld meg a Szövegből oszlopok funkcióval megoldani, ahol határolójelnek a szóközt adod meg. Nem lesz tökéletes, mert pl. az utca neve több szóból is állhat.
Új hozzászólás Aktív témák
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Samsung Galaxy Felhasználók OFF topicja
- Apple iPhone 17 Pro Max – fennsík
- Valószínűleg késnek majd a Valve új Steam eszközei
- BestBuy topik
- Kínai és egyéb olcsó órák topikja
- Xbox Series X|S
- Netflix
- Android szakmai topik
- Anglia - élmények, tapasztalatok
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Ableton Live 12 Suite Education
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- ÚJ 15" Microsoft Surface Laptop 7 X Elite 16GB 512GB
- 27% - ÚJ - XFX Radeon RX 9070 16GB GDDR6 Swift OC Videokártya! BeszámítOK
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- 27% - MSI MAG 27C6F Monitor! 1920x1080 / 0.5ms / 180Hz / FreeSync
- REFURBISHED és ÚJ - HP USB-C Dock G5 (5TW10AA) - 3x4K felbontás
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50