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