Skip to main content

Conas luachanna cille a shuimiú i gcolún go dtí go sroichtear cill bán?

Má tá liosta agat d’uimhreacha a raibh roinnt cealla bána iontu, agus anois, ní mór duit na huimhreacha thuas nó thíos a shuimiú go dtí go mbeidh cealla bána ar an liosta seo chun na torthaí seo a leanas a fháil. An bhfuil aon bhealaí tapa nó éasca agat chun an post seo a réiteach in Excel?

Suim luachanna cille thuas go dtí cill bhán

suim doc go dtí go bán 1

Suim luachanna cille thíos go dtí go mbeidh cill bán

suim doc go dtí go bán 2

Suim luachanna cille thíos go dtí go mbeidh cealla bána le foirmle eagar

Suim luachanna cille thuas go dtí go mbeidh cealla bána le cód VBA


mboilgeog cheart gorm saighead Suim luachanna cille thíos go dtí go mbeidh cealla bána le foirmle eagar

Chun luachanna cille thíos a achoimriú go dtí bearnaí, seo foirmle eagar, déan mar seo:

1. Iontráil an fhoirmle seo i gcill bhán in aice le do cholún uimhreacha, E1, Mar shampla.

=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 an bhfuil an chéad dá chealla i do cholún, D17 an chillín bán deireanach sa cholún uimhreacha).

2. Ansin brúigh Ctrl + Shift + Iontráil eochracha le chéile, agus ansin tarraing an láimhseáil líonta síos go dtí na cealla ar mhaith leat na huimhreacha thíos a shuimiú go dtí bearnaí, féach an scáileán:

suim doc go dtí go bán 3


mboilgeog cheart gorm saighead Suim luachanna cille thuas go dtí go mbeidh cealla bána le cód VBA

Más gá duit luachanna cille thuas a shuimiú go dtí cealla bána, féadfaidh an cód VBA seo a leanas fabhar a thabhairt duit.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Luachanna suime cille thuas go dtí na bearnaí:

Sub InsertTotals()
'Updateby Extendoffice
    Dim xRg As Range
    Dim i, j, StartRow, StartCol As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.AddressLocal
    Set xRg = Application.InputBox("please select the cells:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    StartRow = xRg.Row
    StartCol = xRg.Column
    For i = StartCol To xRg.Columns.Count + StartCol - 1
        For j = xRg.Row To xRg.Rows.Count + StartRow - 1
            If Cells(j, i) = "" Then
                Cells(j, i).Formula = "=SUM(" & Cells(StartRow, i).Address & ":" & Cells(j - 1, i).Address & ")"
                StartRow = j + 1
            End If
        Next
        StartRow = xRg.Row
    Next
End Sub

3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach le cur i gcuimhne duit an raon cealla a theastaíonn uait cealla thuas a shuimiú go dtí cealla bána a roghnú, féach an scáileán:

suim doc go dtí go bán 4

4. Ansin cliceáil OK cnaipe, tá na luachanna cille go léir os cionn cealla bána curtha suas mar a leanas an pictiúr a thaispeántar:

suim doc go dtí go bán 5

Uirlisí Táirgiúlachta Oifige is Fearr

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 ...

cluaisín kte 201905


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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The formula doesn't work for me. It gives me an error in the part (A1:A100=""), it tells me false in that step
This comment was minimized by the moderator on the site
Como adicionar negrito no resultado?
This comment was minimized by the moderator on the site
tükçe kod olsaydı iyiydi...
This comment was minimized by the moderator on the site
How to Sum Cell Values Below Until Blank Cells With VBA Code
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations