كيفية جمع قيم الخلايا في عمود حتى الوصول إلى خلية فارغة؟
إذا كان لديك قائمة من الأرقام التي تحتوي على بعض الخلايا الفارغة، والآن تحتاج إلى جمع الأرقام الموجودة أعلاها أو أدناها حتى الخلايا الفارغة في هذه القائمة للحصول على النتائج التالية. هل لديك أي طرق سريعة أو سهلة لحل هذه المهمة في Excel؟
جمع قيم الخلايا أعلاه حتى الوصول إلى خلية فارغة
جمع قيم الخلايا أدناه حتى الوصول إلى خلية فارغة
جمع قيم الخلايا أدناه حتى الوصول إلى خلايا فارغة باستخدام صيغة صفيف
جمع قيم الخلايا أعلاه حتى الوصول إلى خلايا فارغة باستخدام كود VBA
جمع قيم الخلايا أدناه حتى الوصول إلى خلايا فارغة باستخدام صيغة صفيف
لجمع قيم الخلايا أدناه حتى الوصول إلى خلايا فارغة، إليك صيغة صفيف، يرجى القيام بما يلي:
1. أدخل هذه الصيغة في خلية فارغة بجانب عمود الأرقام الخاص بك، E1 على سبيل المثال.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 هما أول خليتين في العمود الخاص بك، D17 هي الخلية الفارغة الأخيرة في عمود الأرقام).
2. ثم اضغط على مفاتيح Ctrl + Shift + Enter معًا، وبعد ذلك اسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد جمع الأرقام أدناه حتى الوصول إلى الخلايا الفارغة، انظر إلى لقطة الشاشة:
جمع قيم الخلايا أعلاه حتى الوصول إلى خلايا فارغة باستخدام كود VBA
إذا كنت بحاجة إلى جمع قيم الخلايا أعلاه حتى الوصول إلى خلايا فارغة، فقد تساعدك كود VBA التالي.
1. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
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. ثم انقر فوق زر موافق، سيتم جمع جميع قيم الخلايا أعلاها كما هو موضح في لقطة الشاشة التالية:
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel مع Kutools لـ Excel، واختبر الكفاءة كما لم يحدث من قبل. Kutools لـ Excel يقدم أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير
- تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!