Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet gyorsan összesíteni az Excel minden második vagy n-edik sorát / oszlopát?

Mint mindannyian tudjuk, alkalmazhatjuk a Sum függvényt egy cellalista hozzáadásához, de néha minden más cellát összegeznünk kell valamilyen célból, és az Excel-nek nincs standard funkciója, amely lehetővé tenné számunkra az összes n-edik cellát. Ebben a helyzetben hogyan összegezhetnénk az Excel minden második vagy n-edik sorát / oszlopát?

Összegezzen minden másikat vagy n-edik sort / oszlopot a Képletek segítségével

Összegezzen minden másikat vagy n-edik sort / oszlopot a Felhasználó által definiált funkcióval

Összeg / átlag / minden második vagy n-edik sor / oszlop megszámlálása a Kutools for Excel alkalmazással


A következő példán keresztül megmutatom, hogyan kell alkalmazni a képleteket, amelyek minden más cellát összegeznek.

1. Használja a tömbképleteket az összes többi sor vagy oszlop összegzéséhez

Egy üres cellába írja be ezt a képletet: =SUM(IF(MOD(ROW($B$1:$B$15),2)=0,$B$1:$B$15,0)), majd nyomja meg a gombot Ctrl + Shift + Enter kulcsokat, és a B oszlop összes többi cellaértékét összegezték. Képernyőképek megtekintése:

doc-összeg-minden-más-cella1 2 doc-összeg-minden-más-cella2

Megjegyzések:

1. A fenti tömbképletben megváltoztathatja a 2-es számot 3-ra, 4-re, 5-re ..., ez azt jelenti, hogy minden 3., 4., 5. és XNUMX. sor összege…

2. Ha minden más oszlopot összegezni szeretne, megadhatja a következő képletet: =SUM(IF(MOD(COLUMN($A$1:$O$1),2)=0,$A$1:$O$1,0)), és nyomja meg a gombot Ctrl + Shift + Enter gombokat az eredmény eléréséhez. Lásd a képernyőképet:

doc-összeg-minden-más-cella3

2. A képletek segítségével összesítse össze a többi sort vagy oszlopot

Itt van egy másik képlet, amellyel összegezheti a munkalap minden második vagy n-edik celláját.

Egy üres cellába írja be ezt a képletet: =SUMPRODUCT((MOD(ROW($B$1:$B$15),3)=0)*($B$1:$B$15)). Ezután nyomja meg a gombot belép gombot, és minden harmadik cella hozzá lett adva. Képernyőképek megtekintése:

doc-összeg-minden-más-cella4 2 doc-összeg-minden-más-cella5

Megjegyzések:

1. A fenti képletben megváltoztathatja a 3-as számot 4-re, 5-re, 6-ra ... ez azt jelenti, hogy minden 4. sorban, minden 5. sorban, minden 6. sorban összeadunk…

2. Ha minden más oszlopot összegezni szeretne, megadhatja a következő képletet: =SUMPRODUCT((MOD(COLUMN($A$1:$O$1),3)=0)*($A$1:$O$1)).

doc-összeg-minden-más-cella6


A következő, felhasználó által definiált függvény segíthet az Excel minden második vagy n-edik cellájának hozzáadásában.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

Function SumIntervalRows(WorkRng As Range, interval As Integer) As Double
'Updateby Extendoffice
Dim arr As Variant
Dim total As Double
total = 0
arr = WorkRng.Value
For i = interval To UBound(arr, 1) Step interval
    total = total + arr(i, 1)
Next
SumIntervalRows = total
End Function
Function SumIntervalCols(WorkRng As Range, interval As Integer) As Double
Dim arr As Variant
Dim total As Double
total = 0
arr = WorkRng.Value
For j = interval To UBound(arr, 2) Step interval
    total = total + arr(1, j)
Next
SumIntervalCols = total
End Function

3. Ezután mentse el ezt a kódot, és írja be a következő képletet egy üres cellába, ha szükséges, lásd a képernyőképeket:

Minden negyedik sor összegzéséhez: = SumIntervalRows (B1: B15,4)

doc-összeg-minden-más-cella7

Minden negyedik oszlop összegzéséhez: = SumIntervalCols (A1: O1,4)

doc-összeg-minden-más-cella8

4. Ezután nyomja meg a gombot belép kulcsot, megkapja a számítást. Képernyőképek megtekintése:

Minden negyedik sort összegezzen:

doc-összeg-minden-más-cella9

Minden negyedik oszlopot összegezzen:

doc-összeg-minden-más-cella10

Megjegyzések: Megváltoztathatja a 4-es számot bármely más számra, például 2, 3, 5 ... ez azt jelenti, hogy minden második, minden harmadik, minden ötödik sor vagy oszlop összege.


Lehet, hogy mind a képletek, mind a felhasználó által definiált függvény kissé nehézkes a legtöbbőtök számára, itt bemutathatom Önnek a feladat megoldásának egyszerűbb módját.

Val vel Kutools az Excel számára'S Válassza az Intervallum sorok és oszlopok lehetőséget, kiválaszthatja az összes többi vagy n-edik cellát, amelyre először szüksége van, majd a kijelölt celláknak meghatározott nevet adhat, végül a Sum összegzésével a cellákat összegezheti.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. 

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Válassza ki azt az oszlopot, amelyet minden második vagy n-edik cellában összegezni szeretne.

2. Kattints Kutools > választ > Válassza az Intervallum sorok és oszlopok lehetőséget, lásd a képernyőképet:

3. Az Válassza az Intervallum sorok és oszlopok lehetőséget párbeszédpanelen adja meg a szükséges műveleteket, lásd a képernyőképet:

doc-összeg-minden-más-cella12

4. Kattints OK, és minden más sort kiválasztott az első sorból, és most megtekintheti a kiszámított eredményeket, például az átlagot, az összeget, a számot az állapotsor alján. Lásd a képernyőképet:

doc-összeg-minden-más-cella13

Megjegyzések:

1. Ezzel a funkcióval beállíthatja a 2, 3, 4 ... számot Intervalluma opciót, és kiválasztja a cellákat 2, 3, 4 soros intervallummal a tartomány első sorától kezdve a 3. lépésben.

2. A fenti lépésekkel szükség szerint össze is foglalhat minden másikat vagy n-edik oszlopot.

Ha többet szeretne tudni erről a funkcióról, kattintson a gombra Válassza az Intervallum sorok és oszlopok lehetőséget.

Töltse le és ingyenes próbaverziót Kutools for Excel Now!


Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

Kapcsolódó cikkek:

Hogyan összegezzük csak az Excel szűrt vagy látható celláit?

Hogyan lehet összegezni az abszolút értékeket az Excelben?


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (20)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Kipróbáltam - de ez a képlet az =SUM(IF(MOD(ROW($B$1:$B$15),2)=0,$B$1:$B$15)) csak HA egyenetlen sorból indul. Ellenkező esetben rossz eredményt ad. Próbálja ki, szúrjon be egy sort az első sor elé. TANÁCS: inkább illessze be a 2. vagy 3. sort az összegzéshez (ez egy változó, illesszen be egy referencia cellát (B20) és illessze be oda, hogy minden sort melyiket szeretné összeadni. Egyébként kíváncsi vagyok, mi a fenének használsz ilyen képletet Üdvözlettel: Kraems
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, ez hasznos, de a képlet durva (legalábbis, ha oszlopokra próbálja alkalmazni) A Column(REGION) a régió 1. oszlopának oszlopindexét adja vissza. Tehát a képlet teljesen nem működik oszlopokra... De hasznos, ha elkezdi a munkát a megfelelő irányba.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez egy csodálatos cikk! Nem tudtam, hogy a MOD függvény képes kezelni egy tömb argumentumot. Nagyon élveztem a formulás megoldást, egyszerűen zseniális!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nagyon hasznos volt. Valami olyasmit kerestem, amiben összesen Ro1 1 col 1, 4, 7 stb. A SumIntervalCols használata nem működött megfelelően, ezért csak a For ciklus módosításával a következőre: For j = 1 To UBound(arr, 2) A lépésköz megadta azt, amit akartam, pl. (F2:BH2,3). Most minden harmadik cellában akartam átlagolni az összegeket, ezért hozzáadtam a következő függvényt: Function CountIntervalCols(WorkRng As Range, interval As Integer) As Double Dim arr As Variant Dim total As Double total = 0 arr = WorkRng.Value For j = 1 To UBound(arr, 2) Lépésköz If (Not IsEmpty(arr(1, j)) And IsNumeric(arr(1, j))) Then If arr(1, j) > 0 Akkor összesen = összesen + 1 End If End If Next CountIntervalCols = total End Function Ezután egyszerű volt létrehozni egy AvgIntervalCols: függvény AvgIntervalCols(WorkRng As Range, interval As Integer) As Double Dim totalsum As Double Dim totalcount As Double totalsum = SumIntervalCols(In) intervalCols = CountIntervalCols WorkRng, intervallum) Ha totalcount = 0 Akkor totalsum = 0 Különben totalsum = totalsum / totalcount End If AvgIntervalCols = totalsum Vége Funkció Köszönjük!
A weboldal moderátora ezt a megjegyzést minimalizálta
REMÉLEM, EZ SEGÍT A PROBLÉMA RENDEZÉSÉBEN
A weboldal moderátora ezt a megjegyzést minimalizálta
Az oszlopok összege is működik, de az A oszlopból kell kezdenie, különben rossz eredményt ad vissza.
A weboldal moderátora ezt a megjegyzést minimalizálta
Most nagyon érdekel az excel, ezért kérem, vezessen. szóval, in will add in last u use 4 Why.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a képlet könnyen módosítható, hogy a páratlan vagy páros sorokkal/oszlopokkal kezdődő tartományokkal működjön. Például: =SUM(IF(MOD(ROW($B$1:$B$15),2)=0,$B$1:$B$15,0)) csak a páros sorokat összegzi a megadott tartományban, de = SUM(IF(MOD(ROW($B$1:$B$15),2)=1,$B$1:$B$15,0)) csak a páratlan sorszámú sort összegzi. Ennek oka a MOD funkció működése. A MOD(4,2) 0-t ad vissza, mert a 2 4-re osztódik maradék nélkül, mert a 4 páros szám, de a MOD(5,2) 1-et ad vissza, mert 2-ből 5-be 1 marad.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a módszer nekem nem működik. Beírtam a 15 számot a B oszlopba (B1:B15), mint a példában, és bemásoltam a képletet egy üres cellába, az eredmény 0. Ha az if utasítást IF(MOD(ROW($B$1:$ B$15),2)=1, az eredmény 3795, azaz összeg(B1:B15).Mi a baj?
A weboldal moderátora ezt a megjegyzést minimalizálta
uram A Visual Basic-t a SumIntervalCols függvényhez használtam a fent leírtak szerint, és a fájlt makró engedélyezési munkalapként mentettem. a fájl következő megnyitásakor a legördülő menüből hiányzik a user define parancs. Kérjük, segítsen a felhasználói makró javításában, és más Excel munkalapokhoz is használható. üdvözlettel D KUMAR
A weboldal moderátora ezt a megjegyzést minimalizálta
Visual basic programozást használtam – kiváló! A többi lehetőség jól működött, kivéve az n.º 1 sort.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van mód arra, hogy további kritériumot adjunk ehhez a képlethez? Minden 9. sort szeretném hozzáadni, ami nagyszerű, mint -40. hálás lennék a segítségéért. Előre is köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
A képlet nem működik az oszlophoz. Kérem, segítsen valaki páratlan oszlop hozzáadásához
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Nilesh,
Ha a páratlan sorban lévő cellaértékeket szeretné összeadni, az alábbi képlet segíthet! (Kérjük, módosítsa a cellahivatkozásokat igényei szerint.)

=SUMPRODUCT(B1:B15,MOD(ROW(B1:B15)+0,2))

Próbáld ki, remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezek a vma oktatóanyagok a valaha volt legjobb dolgok. Nagyon segítőkész köszönöm srácok!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a VBA kód hasznos, módosítható úgy, hogy a sorozat első értékét is összegezze?
A weboldal moderátora ezt a megjegyzést minimalizálta
Elnézést, az utolsó kérdés, hogy ezt meg lehet-e tenni egy tömbben a Sumproduct képletben, mivel szeretném, ha az értékeket továbbra is külön-külön tárolnák.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok, minden 4. sort szeretnék összesíteni, de az összesítő értékekhez tartozó új táblázatomban 12 soronként van intervallum, van ötlete?
Pl.: 4 havonta összegezze az adatokat, és minden új év januárjában helyezze el ezeket az adatokat egy új táblázatba (12 intervallumú sor).
A weboldal moderátora ezt a megjegyzést minimalizálta
a fent megadott kódok működnek, de amikor a fájlt bezárják és újra megnyitják, nem működik. ismét ugyanazokat a kódokat kell másolni és beilleszteni. kérlek adj végleges megoldást
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,
A kód beillesztése után, amikor bezárja a munkafüzetet, mentse el a munkafüzetet Excel-makró-engedélyezett munkafüzet formátumban a kód mentéséhez.
Amikor legközelebb megnyitja a munkafüzetet, kattintson a Tartalom engedélyezése gombra a biztonsági figyelmeztető sávban.
Próbáld ki, köszönöm!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi