Skip to main content

Conas uimhreacha a shuimiú nó a chur leo i gcill aonair in Excel?

In a lán cásanna, b’fhéidir go mbeidh ort na huimhreacha go léir a shuimiú i gcill amháin. Mar shampla, tá sreangán téacs Aicme 1 Grád 2 i gcill A1, agus is é 1 + 2 = 3 toradh na n-uimhreacha seo a chur leis. Taispeánfaidh an t-alt seo modhanna duit chun uimhreacha a chur i gcill aonair le sonraí.

Uimhreacha suime i gcill amháin le feidhm atá sainithe ag an Úsáideoir
Suimigh uimhreacha go héasca i gcill amháin gan ach cúpla cad a tharlaíonn

Uimhreacha suime i gcill amháin le feidhm atá sainithe ag an Úsáideoir

Is féidir leat uimhreacha a shuimiú i gcill amháin leis an bhfeidhm thíos atá sainithe ag an Úsáideoir.

1. Brúigh Eile + F11 eochracha ag an am céanna chun an Feidhmchlár Bunúsach Amharc Microsoft fhuinneog.

2. Sa Feidhmchlár Bunúsach Amharc Microsoft fuinneog, cliceáil Ionsáigh > Modúil. Agus ansin cóipeáil an VBA thíos sa Modúil fhuinneog.

VBA: uimhreacha suime i gcill aonair

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.Pruthaigh an Eile + Q eochracha chun an Feidhmchlár Bunúsach Amharc Microsoft fhuinneog.

4. Roghnaigh cill bhán chun an toradh a aschur. Iontráil an fhoirmle thíos isteach agus brúigh an Iontráil eochair (Is é A2 an chill ina ndéanfaidh tú uimhreacha aonair a shuimiú).

=SUMNUMS(A2)

5. Ansin tarraing Láimhseáil Líon na cille toraidh chun an fhoirmle a chur i bhfeidhm ar chealla eile atá ag teastáil.

nótaí: Ní bhaineann an fheidhm seo atá sainithe ag an úsáideoir le cealla i bhformáid uimhreacha.

Suimigh uimhreacha go héasca i gcill amháin gan ach cúpla cad a tharlaíonn

Kutools le haghaidh Excel'S Uimhreacha suime i gcill is féidir le foirmle cuidiú le huimhreacha a shuimiú go héasca i gcill amháin (lena n-áirítear cill formáide téacs agus cill formáide uimhreach) le roinnt cliceáil amháin.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

1. Roghnaigh cill bhán chun an t-atosú a aschur. Agus ansin cliceáil Kutools > Cúntóir Foirmle > Cúntóir Foirmle.

2. Sa Cúntóir Foirmle bosca dialóige, cumraigh mar a leanas le do thoil.

2.1) Faigh agus roghnaigh Uimhreacha suime i gcill sa Roghnaigh foirmle bosca;
Leideanna: Is féidir leat an scagairí bosca, clóscríobh eochairfhocal chun an fhoirmle atá uait a scagadh.
2.2) Sa Cell bosca, sonraigh cill ina bhfuil na huimhreacha a thabharfaidh tú suim dóibh;
2.3) Cliceáil ar an OK cnaipe. Féach an pictiúr:

3. Ansin tá an toradh daonra i gcill roghnaithe. Roghnaigh an chill toradh, agus ansin tarraing a Láimhseáil Líon isteach chun na torthaí eile a fháil.

  Más mian leat triail saor in aisce (30 lá) a bheith agat ar an bhfóntas seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.

Déan uimhreacha a shuimiú go héasca i gcill amháin le Kutools le haghaidh Excel

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup  |   VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle   |  Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla   |  Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí:  12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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