Sut i grynhoi gwerthoedd celloedd mewn colofn nes cyrraedd cell wag?
Os oes gennych chi restr o rifau a boblogodd rai celloedd gwag, ac yn awr, mae angen i chi grynhoi'r rhifau uchod neu'n is nes bod celloedd gwag yn y rhestr hon i gael y canlyniadau canlynol. Oes gennych chi unrhyw ffyrdd cyflym neu hawdd o ddatrys y swydd hon yn Excel?
Swmiwch werthoedd celloedd uchod nes eu bod yn wag
Swmiwch werthoedd celloedd isod nes eu bod yn wag
Swmiwch werthoedd celloedd isod nes bod celloedd gwag gyda fformiwla arae
Swmiwch werthoedd celloedd uchod nes bod celloedd gwag gyda chod VBA
Swmiwch werthoedd celloedd isod nes bod celloedd gwag gyda fformiwla arae
I grynhoi gwerthoedd celloedd isod nes bod bylchau, dyma fformiwla arae, gwnewch fel hyn:
1. Rhowch y fformiwla hon i mewn i gell wag wrth ymyl eich colofn rhifau, E1, Er enghraifft.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 yw'r ddwy gell gyntaf yn eich colofn, D17 yw'r gell wag olaf yn y golofn rif).
2. Yna pwyswch Ctrl + Shift + Enter allweddi gyda'i gilydd, ac yna llusgwch y handlen llenwi i lawr i'r celloedd rydych chi am eu crynhoi isod nes bylchau, gweler y screenshot:
Swmiwch werthoedd celloedd uchod nes bod celloedd gwag gyda chod VBA
Os oes angen i chi grynhoi gwerthoedd celloedd uchod nes bod celloedd gwag, gall y cod VBA canlynol ffafrio chi.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Swmiwch werthoedd celloedd uchod nes bod bylchau:
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis yr ystod o gelloedd rydych chi am grynhoi celloedd uchod nes bod celloedd gwag, gweler y screenshot:
4. Yna cliciwch OK botwm, mae'r holl werthoedd celloedd uwchben celloedd gwag wedi'u hadio fel a ddangosir y screenshot canlynol:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
