حذف فواصل بوجو آمده در یک شیت

[mobinsaffarpour]

باسلام خدمت تمامی اساتید محترم و دوستان گرامی

پس از مشاهده فایل ضمیمه به این نکته می رسیم که ستون های b ، d ، e پس از آخرین کاراکتر حرفی دارای یک سری فضای خالی بوجود آمده است . باتوجه به این موضوع می شود دستوری در vba کد نویسی نمود که تمامی فواصل بوجود آمده در شیت را بصورت اتوماتیک حذف نماید ؟؟

[ATTACH=CONFIG]3833[/ATTACH]

[komeilex]

سلام دوست عزیز.
حالا چه اصراری بر استفاده از VB هستش؟!!!
شما خیلی راحت می تونی این کار رو با تابع Trim انجام بدی.

[mobinsaffarpour]

دوست عزیز سلام و تشکر از اینکه به این پست توجه کردین

بله با تابع Trim براحتی میشه این کار رو انجام داد ، اما اطلاعاتی که در شیت هستن بسیار زیاد هست و اینکه با استفاده از VBA خیلی راحتر میشه اینکار رو انجام داد

[Javid Mokhtari]

دوست عزیز سلام و تشکر از اینکه به این پست توجه کردین

بله با تابع Trim براحتی میشه این کار رو انجام داد ، اما اطلاعاتی که در شیت هستن بسیار زیاد هست و اینکه با استفاده از VBA خیلی راحتر میشه اینکار رو انجام داد

برای شروع می تونید از کد ساده زیر استفاده کنید:
[PHP]Dim trm As RangeFor Each trm In Sheet1.Range("a1:a10")
trm = Trim(trm)
Next trm

[Javid Mokhtari]

دوست عزیز سلام و تشکر از اینکه به این پست توجه کردین

بله با تابع Trim براحتی میشه این کار رو انجام داد ، اما اطلاعاتی که در شیت هستن بسیار زیاد هست و اینکه با استفاده از VBA خیلی راحتر میشه اینکار رو انجام داد

برای شروع می تونید از کد ساده زیر استفاده کنید:

Dim trm As Range
For Each trm In Sheet1.Range("a1:a10")
    trm = Trim(trm)
Next trm 

[mobinsaffarpour]

باسلام خدمت استاد و دوست گرامی

اگر امکانش هست یک نمونه بصورت جامع که مورد فوق رو بصورت کامل روی یک شیت در اکسل اجرا کنه رو برای من تهیه کنید . باتشکر

[mobinsaffarpour]

یعنی این موضوع واقعاً اینقدر سخت هست که هیچکدوم یک از دوستان نمیتونن پاسخ بدن ؟؟؟

[Javid Mokhtari]

یعنی این موضوع واقعاً اینقدر سخت هست که هیچکدوم یک از دوستان نمیتونن پاسخ بدن ؟؟؟

با سلام.
ای بابا چقدر عصبانی

[mobinsaffarpour]

دوست گلم دست شما در نکنه واقعاً بسیار حرفه ای عمل کردید . بازم تشکر