Hogyan lehet felosztani egy cellatartományt egy számmal az Excelben?

Előfordulhat, hogy gyorsan módosítanunk kell egy cellatartományt az Excelben. Például van egy cellasorozatom, amely egy termékcsoport árát tartalmazza, és az összes árat el akarom osztani 2-vel, és most itt jön a kérdés, hogyan lehet gyorsan felosztani egy cellatartományt egy számmal?

Oszd el a cellatartományt egy számmal a Speciális beillesztés funkcióval
Ossza el a cellatartományt egy VBA kóddal ellátott számmal
Gyorsan ossza fel egy cellatartományt egy számmal a Kutools for Excel alkalmazással

Oszd el a cellatartományt egy számmal a Speciális beillesztés funkcióval

Például az összes cellát elosztom egy 15-ös számmal Speciális beillesztés Az Excel funkcióval ezt a feladatot a következő lépésekkel hajthatja végre:

1. Helyezze az osztó számát, például a 15-et egy üres cellába, és másolja át.

2. Jelölje ki azt a tartományt, amelyen el szeretné osztani az összes számot 15-tel, és kattintson a jobb gombbal, majd válassza a lehetőséget Speciális beillesztés a menüből.

3. Ban,-ben Specia beillesztésel párbeszédpanelen kattintson a gombra Minden termék lehetőség a Paszta szakaszban válassza ki a Oszt lehetőség a Művelet szakaszban, és végül kattintson a OK gombot.

4. Törölje a korábban beírt 15-ös számot.

Most a sejtek tartományát elosztották 15-tel tömegesen. Lásd a képernyőképet:

Ossza el a cellatartományt egy VBA kóddal ellátott számmal

A VBA kód segítségével a tartomány celláit is automatikusan fel tudja osztani egy számmal.

1. Válassza ki azt a tartományt, amelyet el kíván osztani egy számmal.

2. kettyenés Fejlesztő > Visual Basic, egy új Microsoft Visual Basic alkalmazásokhoz ablak jelenik meg, kattintson a gombra betétlap > Modulok, majd írja be a következő kódot a Modulok:

VBA: Ossza el a cellák tartományát egy számmal.

Sub DivisionNum()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim xNum As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xNum = Application.InputBox("Division num", xTitleId, Type:=1)
For Each Rng In WorkRng
    Rng.Value = Rng.Value / xNum
Next
End Sub

3. Ezután kattintson  gombot a kód futtatásához. Egy felbukkanó párbeszédpanelen válassza ki azt a számot tartalmazó tartományt, amelyet el akar osztani egy bizonyos számmal, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

4. A második felbukkanó párbeszédpanelen írja be az osztó számát, majd kattintson az OK gombra. Lásd a képernyőképet:

Most a kiválasztott tartomány összes számát elosztjuk a 15-ös számmal.

Gyorsan ossza fel egy cellatartományt egy számmal a Kutools for Excel alkalmazással

Talán a VBA kód némileg nehéz az Ön számára, van-e egyszerű és gyors módszer ennek a munkának a kezelésére?

1. Válassza ki azt a számot tartalmazó tartományt, amelyet el akar osztani egy bizonyos számmal. majd kattintson Kutools > Több > Művelet, lásd a képernyőképet:

3. Ban,-ben Műveleti eszközök párbeszédpanelen válassza ki osztály a Művelet mezőbe írja be az osztó számát, például 15 a Operandus doboz. És láthatja az eredményeket a Preview Pane. És végül kattintson a gombra OK or alkalmaz gomb. Lásd a képernyőképet:

Megjegyzések: Ha képleteket is szeretne létrehozni, ellenőrizze Készítsen képleteket választási lehetőség. Ha a kiválasztott cellák képleteket tartalmaznak, és nem szeretné felosztani a képlet kiszámított eredményeit, ellenőrizze Kihagyja a képlet celláit opciót.

Gyorsan ossza fel egy cellatartományt egy számmal a Kutools for Excel alkalmazással

Kapcsolódó cikkek:

• Értékek módosítása egy cellatartományban
• Adjon hozzá értékeket több cellához
• Végezzen exponenciális számítást egy cellatartományra
• Szorozzon egy tartomány cellákat számmal
• Kerekítsen egy cellatartományt
• Vonjon ki egy számot az Excel cellatartományából

---

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.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

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!

Tovább ... Ingyenes letöltés... Vásárlás...