Ինչպե՞ս ամփոփել բջիջների արժեքները սյունակում մինչև դատարկ բջիջ հասնելը:
Եթե ունեք որոշ դատարկ բջիջներով բնակեցված թվերի ցուցակ, և այժմ, անհրաժեշտ է ամփոփել վերևի կամ ներքևի թվերը, մինչև այս ցուցակի դատարկ բջիջները ՝ հետևյալ արդյունքները ստանալու համար: Ունե՞ք Excel- ում այս աշխատանքը լուծելու արագ կամ հեշտ եղանակներ:
Բջջայինի գումարային արժեքները վերևում մինչև դատարկ բջիջ
Ստորև բերված բջջային արժեքները մինչև դատարկ բջիջ
Ստորև բերված բջիջների արժեքները մինչև զանգվածի բանաձևով դատարկ բջիջներ
Վերը նշված բջիջների արժեքները մինչև VBA կոդով դատարկ բջիջները
Ստորև բերված բջիջների արժեքները մինչև զանգվածի բանաձևով դատարկ բջիջներ
Ստորև բերված բջիջների արժեքներն ամփոփելու համար ՝ ահա զանգվածի բանաձև, արեք հետևյալ կերպ.
1, Այս բանաձևը մուտքագրեք դատարկ բջիջ ձեր համարների սյունակի կողքին, E1, Օրինակ.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 ձեր սյունակի առաջին երկու բջիջներն են, D17 համարի սյունակի վերջին դատարկ բջիջն է):
2, Դրանից հետո սեղմեք Ctrl + Shift + Մուտք ստեղները միասին, այնուհետև լրացնելու բռնիչը ներքև քաշեք դեպի այն բջիջները, որոնք ցանկանում եք ստորև թվերը գումարել մինչև դատարկներ, տե՛ս նկարը.
Վերը նշված բջիջների արժեքները մինչև VBA կոդով դատարկ բջիջները
Եթե Ձեզ անհրաժեշտ է ամփոփել վերը նշված բջիջների արժեքները մինչև դատարկ բջիջները, հետևյալ VBA կոդը կարող է ձեզ լավություն բերել:
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Բջջային բջիջների արժեքները վերևում մինչև դատարկներ.
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, Դրանից հետո սեղմեք F5 բանալին գործարկելու համար այս կոդը, և հուշման տուփ է հայտնվում՝ հիշեցնելու համար ընտրելով բջիջների այն տիրույթը, որը ցանկանում եք գումարել վերևում գտնվող բջիջները մինչև դատարկ բջիջները, տես սքրինշոթը.
4. Այնուհետեւ կտտացրեք OK կոճակը, դատարկ բջիջների վերևում գտնվող բոլոր բջիջների արժեքները ավելացվել են, ինչպես ցույց է տրված հետևյալ սքրինշոթը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: