اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

لدي ملف اكسل فيه اكثر من الفين رقم

وجالس انقل بعض الارقام الجديده من ملف اخر لنفس الملف الاول

 

وعشان اضمن عدم تكرار الرقم

فعلت خاصية : Duplicate Values

 

لاكن اكتشفت ان فيه خليتيين لنفس الرقم ولم يتم التعرف عليها في التطابق

 

يا ليت فضلا الله يسعدكم حل للمشكلة هذي وكيف اطبق الحل للملف القائم حاليا

 

فيه عينة موجود في الملفات

 

شكرا مقدماTEST.xlsxTEST.xlsx

قام بنشر

The separator in the two strings in your file are different

Try this formula in G1 to make sure

=MID($A1,COLUMN(F$1),1)

then use this formula in any cell

=CODE(G1)

The result of the last formula will be 63

 

 

Do the same steps with the second string and you will get the result 45

In cell G2

=MID($A2,COLUMN(F$1),1)

and use this formula

=CODE(G2)

So these two characters (the separators) are the different

  • Like 1
  • أفضل إجابة
قام بنشر

As for the solution, you can use the following code to replace the cases of 8208 character

Sub Test()
    ActiveSheet.Columns(1).Replace ChrW(8208), ChrW(45), xlPart, , , , True, False
End Sub

After the code, you will find the strings are the same exactly and you can use Remove Duplicates easily

  • Like 1
قام بنشر

السلام عليكم

 

الله يسعدك وين ماكنت

 

عملت نسخ للمعادلة الي في الرد الثاني 

Sub Test()
    ActiveSheet.Columns(1).Replace ChrW(8208), ChrW(45), xlPart, , , , True, False
End Sub

عملتها كالتالي

1- فتحت ملف الاكسل المرفق

2- (alt) + (F11) عشان يفتح الفجول

3- اخترت This WorkBook

4- لصقت المعادلة الي فوق وعملت حفظ

 

بس المشكلة ماحصا اي تغيير

مو عارف الله يسعدك وين الخطاء الي عملته

2023-01-22_202126.png

قام بنشر

وعليكم السلام ورحمة الله وبركاته 

اخى @MrNoon

اضغط في اي مكان في هذا السطر  ActiveSheet.Columns(1).Replace ChrW(8208), ChrW(45), xlPart, , , , True, False

 ثم اضغط زرار f5 من الكيبورد لكي يعمل الكود

  • Like 1
قام بنشر (معدل)

الله يسعدك في الدنيا والاخره ويوسع في رزقك وين ماكنت

 

تم عمل المطلوب في ملف المرفق في بداية الموضوع ونجح الامر

لاكن عند تجربة الامر في ملف العمل لم يعمل 

حاولت اجرب النتيجة بالرقمين 

45 - 63

لكن دون اي جدوى 

هل احتمالية وجود خطاء اخر وارد ؟

2023-01-22_220317.png

تم تعديل بواسطه MrNoon
قام بنشر

الله يسعدكم جميعا

 

تم ايجاد الخطاء بعد عدة محاولات

(D) الخطاء كان في الملف نفسة حيث ان الارقام كانت مةجوده في العامود 

يعني العامود رقم 5

تم تعديل رقم العامود  في نفس الامر من (1) الي (5) وبحمد الله تم معالجة المشكلة

 

شكرا جزيلا

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information