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 luachanna cille thíos go dtí go mbeidh cill bán
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
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 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:
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:
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!
