-
PROHARDVER!
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
- DELL Precision 7540 - Intel Core i9-9980HK, RTX 3000 (nagyon erős GPU-val)
- BESZÁMÍTÁS! Gigabyte B760M i5 13400F 16GB DDR4 512GB SSD RTX 3070 8GB Pure Base 500DX fehér 650W
- AKCIÓ! MSI B450 R5 5500 16GB DDR4 512GB SSD RTX 2070 8GB GDDR6 Rampage Shiva Zalman 500W
- Tablet felvásárlás!! Samsung Galaxy Tab A8, Samsung Galaxy Tab A9, Samsung Galaxy Tab S6 Lite
- AKCIÓ! Microsoft XBOX Series S 512GB játékkonzol garanciával hibátlan működéssel
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: Promenade Publishing House Kft.
Város: Budapest