تغيير حالة مجموعة خلايا بناء على المحتوى

[emad2018]

الرجاء استفسار ......... هل يمكن دمج مجموعة خلايا ذاتياً باستخدام دالة معينة في حالة احتوائها على نفس البيانات أو إنه يجب استخدام فيجوال بيسك؟

مرفق ملف توضيح

وشكراً

مسألة3.xlsx

[سليم حاصبيا]

جرب هذا الملف

الماكرو

Option Explicit

Sub MergeSameCell()

Dim Rng As Range
Dim cel As Range
Dim xRows As Integer
Dim i%, j%
Set cel = Range("g3:g6")

Application.ScreenUpdating = False
Application.DisplayAlerts = False

xRows = cel.Rows.Count
For Each Rng In cel.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
       cel.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 salim.xlsm

[emad2018]

تسلم أستاذ سليم

بارك الله فيك 

حقيقة اتفادى استخدام الماكرو لان حجم البيانات التي أتعامل معها كبير وهذا يؤدي الى بطء في اداء ملفات اكسيل

شكرا