اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اضافة الصفر في الخلية


Alien
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

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

استاذى الله يحفظك عندى عمود كامل به اكثر من 1000 رقم اريد ازالة هذه العلامة من العمود بالكامل

اقوم بعمل كوبى وبيست سبشيال واختار ادد وذلك لازالة هذه العلامة التى تحول الرقم لنص هل من طريقة اسهل واسرع او ماكرو 

مع خالص الشكر والتقدير وخالص الدعاءللاخوة بلبنان

 

رابط هذا التعليق
شارك

لو فرضنا ان هذه العلامة موجودة في العامود الأول A

هذا الماكرو يقوم بما تريد

Option Explicit

Sub Test()
Dim Ro#, i#
Ro = Cells(Rows.Count, 1).End(3).Row

For i = 1 To Ro
  If Range("A" & i) <> vbNullString Then
   Range("A" & i) = _
   Replace(Range("A" & i), Chr(39), """")
  End If
Next
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

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