كيفية دمج الصفوف المتجاورة بسرعة مع نفس البيانات في Excel؟
لنفترض أن لديك ورقة عمل بنفس البيانات في الصفوف المجاورة ، وتريد الآن دمج نفس الخلايا في خلية واحدة ، بحيث تبدو البيانات نظيفة وجميلة. كيف تدمج الصفوف المتجاورة مع نفس البيانات بسرعة وسهولة؟ اليوم ، سأقدم لكم طريقة سريعة لحل هذه المشكلة.
دمج الصفوف المتجاورة من نفس البيانات مع التعليمات البرمجية لـ VBA
بالطبع يمكنك دمج نفس البيانات مع دمج وتوسيط الأمر ، ولكن إذا كانت هناك مئات الخلايا بحاجة إلى الدمج ، فستستغرق هذه الطريقة وقتًا طويلاً. لذلك يمكن أن يساعدك رمز VBA التالي على دمج نفس البيانات بسهولة.
1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدةنافذة.
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. ثم اضغط على F5 مفتاح لتشغيل هذا الرمز ، يتم عرض مربع حوار على الشاشة لتحديد نطاق للعمل معه. انظر لقطة الشاشة:
4. ثم اضغط OK، سيتم دمج نفس البيانات الموجودة في العمود A معًا. انظر لقطة الشاشة:
دمج الصفوف المجاورة من نفس البيانات مع كوتولس ل إكسيل
مع دمج نفس الخلايا فائدة كوتولس ل إكسيل، يمكنك دمج نفس القيم بسرعة في عدة أعمدة بنقرة واحدة.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيل، يمكنك القيام بما يلي:
1. حدد الأعمدة التي تريد دمج الصفوف المجاورة لها بنفس البيانات.
2. انقر كوتولس > دمج وتقسيم > دمج نفس الخلايا، انظر لقطة الشاشة:
3. وبعد ذلك تم دمج نفس البيانات الموجودة في الأعمدة المحددة في خلية واحدة. انظر لقطة الشاشة:
انقر لتنزيل Kutools for Excel والتجربة المجانية الآن!
لمعرفة المزيد عن هذا ، يرجى زيارة هذا دمج نفس الخلايا ميزة.
عرض توضيحي: دمج نفس الخلايا في خلية واحدة أو إلغاء الدمج لتعبئة القيم المكررة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!