Jak zsumować wartości komórek w kolumnie, aż do osiągnięcia pustej komórki?
Jeśli masz listę liczb wypełnioną pustymi komórkami, a teraz musisz zsumować liczby powyżej lub poniżej, aż do pustych komórek na tej liście, aby uzyskać następujące wyniki. Czy masz jakieś szybkie lub łatwe sposoby rozwiązania tego zadania w programie Excel?
Sumuj wartości komórek powyżej do pustej komórki
Sumuj wartości komórek poniżej do pustej komórki
Sumuj wartości komórek poniżej do pustych komórek z formułą tablicową
Sumuj wartości komórek powyżej, aż do pustych komórek z kodem VBA
Sumuj wartości komórek poniżej do pustych komórek z formułą tablicową
Aby zsumować wartości komórek poniżej do pustych miejsc, oto formuła tablicowa, wykonaj następujące czynności:
1. Wprowadź tę formułę w pustą komórkę obok kolumny z liczbami, E1, na przykład.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 to pierwsze dwie komórki w Twojej kolumnie, D17 to ostatnia pusta komórka w kolumnie liczb).
2. Następnie naciśnij Ctrl + Shift + Enter klucze razem, a następnie przeciągnij uchwyt wypełniania w dół do komórek, które chcesz zsumować liczby poniżej, aż do pustych miejsc, patrz zrzut ekranu:
Sumuj wartości komórek powyżej, aż do pustych komórek z kodem VBA
Jeśli chcesz zsumować wartości komórek powyżej, aż do pustych komórek, następujący kod VBA może wyświadczyć ci przysługę.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: sumuj wartości komórek powyżej do pustych miejsc:
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. Następnie naciśnij F5 klawisz , aby uruchomić ten kod, i pojawi się okno z przypomnieniem o wybraniu zakresu komórek, dla których chcesz zsumować komórki powyżej, aż do pustych komórek, zobacz zrzut ekranu:
4. Następnie kliknij OK przycisk, wszystkie wartości komórek powyżej pustych komórek zostały dodane, jak pokazano na poniższym zrzucie ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!