آیا داده های زیادی دارید که حاوی فاصله هستند و باید آن فضاها را حذف کنید؟ شاید شما آن را از برنامه دیگری وارد کرده اید یا فضاها به اشتباه وارد شده اند. به عنوان مثال، ممکن است تعداد زیادی اعداد خط مشی در یک کاربرگ داشته باشید و در اعداد خط مشی فاصله وجود داشته باشد. اگر می خواهید آن فضاها را حذف کنید، از دو روش می توانید استفاده کنید.
اولین رویکرد استفاده از تابع SUBSTITUTE است. بیایید بگوییم که یک شماره سیاست در سلول A5 است. در سلول B5 می توانید از این فرمول استفاده کنید:
=SUBSTITUTE(A5," ","")
نتیجه این است که سلول B5 حاوی شماره خط مشی با حذف تمام فاصله ها است.
اگر تعداد سلول های حاوی فضاهای خالی زیادی داشته باشید و بخواهید آنها را در یک مرحله حذف کنید، روش دوم به خوبی کار می کند. ماکرو زیر را ایجاد کنید:
Sub NoSpaces()
Dim c As Range
For Each c In Selection.Cells
c = Replace(c, " ", "")
Next
End Sub
سلول هایی را که می خواهید تغییر دهید انتخاب کنید و سپس ماکرو را اجرا کنید. هر سلول در محدوده انتخاب شده را بررسی می کند و هر فاصله ای را در آن محدوده حذف می کند. سپس نتیجه دوباره در همان سلول قرار می گیرد.
یک نکته آخر: ممکن است در مورد استفاده از عملکرد TRIM تعجب کنید. این تابع کاربرگ برای حذف فضاهای اضافی مفید است، اما همانطور که در این نکته توضیح داده شده است، نمی توان از آن برای حذف کامل فضاها استفاده کرد.
