اشرف سعيد السويسي قام بنشر أبريل 26, 2022 مشاركة قام بنشر أبريل 26, 2022 ارغب فى معادلة او كود لنقل اسماء العملاء الى ورقة 2 مع عدم التكرار 5555.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر أبريل 26, 2022 أفضل إجابة مشاركة قام بنشر أبريل 26, 2022 السلام عليكم ورحمة الله استخدم هذا الكود Sub UniqData() Dim ws As Worksheet, sh As Worksheet, C As Range Set ws = Sheets("1") Set sh = Sheets("2") Dim obj As Scripting.dictionary Set obj = New Scripting.dictionary For Each C In ws.Range("C3:C" & ws.Range("C" & Rows.Count).End(3).Row) obj(C & "") = "" Next sh.Range("B4").Resize(obj.Count) = Application.Transpose(obj.keys) End Sub 2 رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر أبريل 26, 2022 مشاركة قام بنشر أبريل 26, 2022 شاهد المرفق اخي 5555.xls 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.