Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս Excel- ում մեկ բջիջում գումարել կամ ավելացնել թվեր:

Շատ դեպքերում կարող է անհրաժեշտ լինել բոլոր թվերը ամփոփել մեկ խցում: Օրինակ, A1 բջիջում կա 2 կարգի դասարանի 1-ին կարգի տողի տող, և այս թվերի ավելացման արդյունքը 1 + 2 = 3 է: Այս հոդվածը ձեզ ցույց կտա մանրամասներով մեկ բջիջում թվեր ավելացնելու մեթոդներ:

Օգտատիրոջ կողմից սահմանված գործառույթով հանրագումարային թվեր մեկ խցում
Հեշտությամբ ամփոփեք թվերը մեկ խցում ՝ ընդամենը մի քանի կտտոցով

Օգտատիրոջ կողմից սահմանված գործառույթով հանրագումարային թվեր մեկ խցում

Թվերը կարող եք ամփոփել մեկ բջիջում `օգտագործողի կողմից սահմանված ստորև նշված գործառույթով:

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելված պատուհան.

2. Մեջ Microsoft Visual Basic հավելված պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Եվ ապա պատճենեք ստորև ներկայացված VBA- ն այն Մոդուլներ պատուհան.

VBA. Գումարային թվեր մեկ խցում

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
	Dim arr As Variant
	Dim xIndex As Long
	arr = Split(pWorkRng, xDelim)
	For xIndex = LBound(arr) To UBound(arr) Step 1
		SumNums = SumNums + VBA.Val(arr(xIndex))
	Next
End Function

3 ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելված պատուհան.

4. Ընտրեք դատարկ բջիջ `արդյունքը դուրս բերելու համար: Մուտքագրեք դրա ներքևի բանաձևը և սեղմեք կոճակը Մտնել ստեղն (A2- ը այն բջիջն է, որում դուք կամփոփեք եզակի թվեր):

=SUMNUMS(A2)

5. Դրանից հետո քաշեք արդյունքի բջիջի Լրացրեք բռնակը ՝ բանաձևը կիրառելու համար այլ անհրաժեշտ բջիջների համար:

ՆշումՕգտագործողի կողմից սահմանված այս գործառույթը չի տարածվում թվերի ձևաչափով բջիջների վրա:

Հեշտությամբ ամփոփեք թվերը մեկ խցում ՝ ընդամենը մի քանի կտտոցով

Excel- ի համար նախատեսված գործիքներ'S Բջջային թվերի գումարը բանաձևը կարող է օգնել հեշտությամբ ամփոփել թվերը մեկ խցում (ներառյալ տեքստի ձևաչափի բջիջը և համարի ձևաչափի բջիջը) միայն մի քանի կտտոցով:

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1. Ընտրեք դատարկ բջիջ `վերափոխումը դուրս բերելու համար: Եվ հետո կտտացրեք Կուտոլս > Բանաձևի օգնական > Բանաձևի օգնական.

2. Մեջ Բանաձևի օգնական երկխոսության տուփ, խնդրում ենք կազմաձևել հետևյալը.

2.1) Գտեք և ընտրեք Բջջային թվերի գումարը է Ընտրեք բանաձեւ տուփ;
TipsԴուք կարող եք ստուգել ֆիլտր տուփ, մուտքագրեք հիմնաբառ ՝ անհրաժեշտ բանաձևը զտելու համար:
2.2) Ի Բջիջ տուփ, նշեք այն բջիջը, որը պարունակում է ձեր գումարած թվերը.
2.3) Կտտացրեք այն OK կոճակ Տեսեք,

3. Այնուհետեւ արդյունքը լրացվում է ընտրված խցում: Ընտրեք արդյունքի բջիջը և այնուհետև քաշեք նրա Լրացնելու բռնակը ներքև ՝ մյուս արդյունքները ստանալու համար:

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:

Excel- ի համար Kutools- ի հետ հեշտությամբ ամփոփեք թվերը մեկ խցում

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (8)
No ratings yet. Be the first to rate!
Eric Hammond
Eric Hammond
This comment was minimized by the moderator on the site
The VBA function code works really well. Thank you. 
Reply
0
0
Migle
Migle
This comment was minimized by the moderator on the site
How do I add +1 digit to numbers in one cell (word or excell or notepad, doesn't matter). But at My work I often have: 14,17,28,31,35,38,50,53,70,73,80,83,90,93,120,123,135,138,150,153,165,168,180,183,210,213,250,253,275,278,300,303 something like that.

And I need to make them like: 15,18,29,32,36,39,51,54,71,74,81,84,91,94,121,124,136,139,151,154,166,169,181,184,211,214,251,254,276,279,301,304. I do it manually, but maybe there is a fast way to do it?
Reply
0
0
Louanne Zettler
Louanne Zettler
This comment was minimized by the moderator on the site
I have a list of numbers that I want to automatically add 30 to each number in each single cell. Is that possible?
Reply
0
0
Em
Em
This comment was minimized by the moderator on the site
You can also very easily just type "=" in the cell. So if you had a cell that was 3 but wanted to add 1+2 it would be "=1+2" in the cell
Reply
0
0
Dan
Dan
This comment was minimized by the moderator on the site
The problem with this tool is that it adds all the digits. The problem is 125 + 2 is not 127. The tool would add it as 1 + 2 + 5 + 2. Not sure how this is useful to someone that needs to add all the numbers. Even in the example it does not make sense or seem practical. Did I miss something?
Reply
0
0
Michael
Michael     Dan
This comment was minimized by the moderator on the site
Incorrect if the numbers are entered into the cell separately, for example 125 2 and the formula is entered into the next cell. The cell with the formula will calculate 127.
Reply
0
0
crystal
crystal     Michael
This comment was minimized by the moderator on the site
Hi Michael,
Sorry for the mistake. Please enter the following VBA code into the Module (Code) window, and then apply this formula: =SUMNUMS(A1,"") to sum all digits in a cell.

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
'Updated by ExtendOffice 20221122
    If pWorkRng.CountLarge > 0 Then Exit Function
    On Error Resume Next
    Application.Volatile
    
    Dim arr As Variant
    Dim xIndex As Long
    If xDelim <> "" Then
        arr = Split(pWorkRng, xDelim)
        For xIndex = LBound(arr) To UBound(arr) Step 1
            SumNums = SumNums + VBA.Val(arr(xIndex))
        Next
    Else
        For xIndex = 1 To Len(pWorkRng) Step 1
            If IsNumeric(Mid(pWorkRng, xIndex, 1)) Then
                SumNums = SumNums + VBA.Val(Mid(pWorkRng, xIndex, 1))
            End If
        Next
    End If
End Function
Reply
Report
0
0
Omar
Omar
This comment was minimized by the moderator on the site
THANKSSSSSS SOOO MUCH THE MODULE IDEA IS AMAZING ! I NEVER KNEW IT EXISTED
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations