كيف يمكن دمج قيم الخلايا في عمودٍ ما حتى تصل إلى أول خلية فارغة في Excel؟
على سبيل المثال، لدي قائمة من القيم تتضمّن بعض الخلايا الفارغة، وأرغب في دمج كل مجموعة من البيانات بين الخلايا الفارغة في خلية واحدة، ثم عرض القيم المدمَجة في عمود آخر، كما هو موضح في لقطة الشاشة التالية. كيف يمكنني دمج قيم الخلايا حتى يتم العثور على خلية فارغة في العمود؟
دمج قيم الخلايا حتى يتم العثور على خلية فارغة في عمود باستخدام كود VBA
دمج قيم الخلايا حتى يتم العثور على خلية فارغة في عمود باستخدام Kutools لـ Excel
دمج قيم الخلايا حتى يتم العثور على خلية فارغة في عمود باستخدام كود VBA
لا توجد طريقة مباشرة لدمج خلايا متفرقة، لكن يمكنك استخدام كود VBA التالي للتعامل معها. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي فينافذة الوحدة النمطية.
كود VBA: دمج قيم الخلايا حتى يتم العثور على خلية فارغة
Sub Concatenatecells()
'updateby Extendoffice
Dim xRg As Range
Dim xSaveToRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xTStr As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "the selected range is more than one column", vbInformation, "Kutools for Excel"
Exit Sub
End If
Set xSaveToRg = Application.InputBox("Please select output cell:", "Kutools for Excel", , , , , , 8)
If xSaveToRg Is Nothing Then Exit Sub
Set xSaveToRg = xSaveToRg.Cells(1)
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell <> "" Then
xTStr = xTStr & xCell & " "
Else
xSaveToRg.Value = xTStr
Set xSaveToRg = xSaveToRg.Offset(1)
xTStr = ""
End If
Next
If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
Application.ScreenUpdating = True
End Sub
3.بعد ذلك اضغط على مفتاحF5لتشغيل هذا الكود، وستظهر نافذة منبثقة لتذكيرك بتحديد نطاق البيانات التي تريد دمجها، انظر لقطة الشاشة:
4. بعد ذلك، انقر فوقموافق (OK)، وستظهر نافذة منبثقة أخرى. يُرجى تحديد خلية لإخراج نتيجة الدمج. انظر لقطة الشاشة:
5.ثم انقر فوق زرموافق (OK)، وستتم عملية دمج بيانات الأعمدة بين الخلايا الفارغة، انظر لقطة الشاشة:
دمج قيم الخلايا حتى يتم العثور على خلية فارغة في عمود باستخدام Kutools لـ Excel
إذا كنت تمتلكKutools لـ Excel، فيمكنك الجمع بين ميزتَيتحويل النطاقوالدمج (Combine)لإنهاء هذه المهمة في أسرع وقت ممكن! فبفضل أداةتحويل النطاق، يمكنك تحويل عمود واحد إلى نطاق بسهولة، بينما تتيح لك ميزةالدمج (Combine)دمج هذا النطاق المحول مرة أخرى في عمود واحد.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1.حدد الخلايا التي تريد دمجها، ثم انقر فوقKutools>نطاق (Range)>تحويل النطاق، انظر لقطة الشاشة:
2. في مربع حوارتحويل النطاق، اختر خيارعمود واحد إلى نطاقضمننوع التحويل، ثم حددمفصولة بفراغاتضمنالصفوف لكل سجل (Rows per record). انظر لقطة الشاشة:
3.بعد ذلك انقر فوقموافق (Ok)، وستظهر نافذة منبثقة لتذكيرك بتحديد خلية لإخراج النتيجة، انظر لقطة الشاشة:
4. انقر فوقموافق (OK)، وستتم تحويل بيانات العمود الواحد إلى صفوف وأعمدة متعددة باستخدام الخلية الفارغة كفاصل. راجع لقطة الشاشة:
5. البيانات المحولة موزَّعة على أعمدة متعددة، لذا تحتاج إلى دمجها في عمود واحد. يُرجى تحديد نطاق البيانات، ثم انقر فوقKutools > دمج وتقسيم (Merge & Split) > دمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيم. انظر لقطة الشاشة:
6. في مربع حواردمج الأعمدة أو الصفوف (Rows)، قم بما يلي:
(1.) حدد خياردمج الأعمدةمن القائمة المنسدلةدمج النطاق المحدد بالطريقة التالية;
(2.) بعد ذلك فاصل الذي ترغب في استخدامه لفصل القيم المدمَجة؛
(3.) حدد الطريقة التي تفضلها للتعامل مع الخلايا المدمَجة: احتفظ بالبيانات الأصلية، أو احذفها، أو دمّج الخلايا من جديد. انظر لقطة الشاشة:
7. بعد الانتهاء من الإعدادات، انقر فوق زرموافق (Ok)أوتطبيق (Apply)، وستُدمج الخلايا في عمود واحد باستخدام فاصل معيّن. انظر لقطة الشاشة:
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل