- Google Pixel topik
- iPhone topik
- Nem növel telepméretet a Galaxy S26 Ultra
- Milyen GPS-t vegyek?
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Xiaomi 14 - párátlanul jó lehetne
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Kézbe fogták az ultravékony Z Fold7-et
- Xiaomi Mi 11 Lite - 4G-vel vagy 5G-vel kéred?
- Xiaomi 15 - kicsi telefon nagy energiával
-
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
válasz
Gabcsika #4436 üzenetére
Nagy nehezen megszületett.
Sub Egyezo()
Sheets("Sheet1").Select
'******* Rendezés ***************
Range("A2").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B1") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
'************************************
sor_1 = 1: sor_2 = 1
Sheets("Sheet2").Select
Do
első = sor_1
A = Cells(sor_2, 1)
Sheets("Sheet1").Select
Do While Cells(sor_1, 1) <> ""
If Cells(sor_1, 1) = A Then
If Cells(sor_1 + 1, 1) > A Or Cells(sor_1 + 1, 1) = "" Then
ucsó = sor_1
Range("B" & első & ":B" & ucsó).Select
ActiveWorkbook.Names.Add Name:="tartomány", RefersTo:=Selection
Sheets("Sheet2").Select
Cells(sor_2, 2).Select
Selection.FormulaR1C1 = "=SUMPRODUCT((tartomány<>"""")/COUNTIF(tartomány,tartomány))"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Select
ActiveWorkbook.Names("tartomány").Delete
sor_1 = sor_1 + 1
Exit Do
End If
End If
sor_1 = sor_1 + 1
Loop
sor_2 = sor_2 + 1
Sheets("Sheet2").Select
Loop While Cells(sor_2, 1) <> ""
Application.CutCopyMode = False
End SubA csillagokkal határolt rész a Sheet1-en való rendezés. Nálam nincs rovatfej. Ha ez nem jó, helyette rögzítsd makróban a kétkulcsos rendezést, első kulcs az A, második a B oszlop, emelkedő sorrendben.
-
Delila_1
veterán
válasz
Gabcsika #4436 üzenetére
Meg lehet számoltatni az adatok "féleségét". A B oszlop adatait elnevezed tartománynak.
=SZORZATÖSSZEG((tartomány<>"")/DARABTELI(tartomány;tartomány))
avagy
=SUMPRODUCT((tartomány<>"")/COUNTIF(tartomány;tartomány))Ezzel az a baj, hogy azt mutatja meg, hány féle érték van a B oszlopban, függetlenül az A oszlop tartalmáról.
Miért nem jó a kimutatás? Már máskor is kapálóztál ellene.
Új hozzászólás Aktív témák
- exHWSW - Értünk mindenhez IS
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Google Pixel topik
- Sorozatok
- Amlogic S905, S912 processzoros készülékek
- Diablo IV
- Androidos fejegységek
- Nem keres több megrendelőt az Intel 18A node-ra az Intel
- Milyen széket vegyek?
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- 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
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Bomba ár! HP EliteBook 840 G5 - i5-8G I 8GB I 128GB SSD I 14" FHD Touch I HDMI I Cam I W11 I Gari!
- Honor Magic 7 Pro - Fekete - Új kipróbált készülék! Karcmentes gyárilag független! 512GB Memória!
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 4070 Ti Super GAMER PC termékbeszámítással
- Samsung Galaxy A12 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest