پرسش تبدیل نیم فاصله ها به فاصله

[ARYACLUB]

سلام


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

چطوری این نیم فاصله ها را به فاصله تبدیل کنم .

[iranweld]

سلام

یک نمونه از فایل خود را برای بررسی ضمیمه سایت کنید

[mohammad_ashooryan]

سلام
طبق شکل زیر عمل کنید.
در قسمت replace کلید space را بزنید.

[ARYACLUB]

ممنون از پاسخ .
دقیقا همین کار را میکنم .
جایگزین نمیشه

[iranweld]

دستور trim را تست کنید

[ARYACLUB]

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

[amir_ts]

با سلام
دوست عزیز این فرمول رو امتحان کنید.

=substitute(a1;char(157);char(32)) 

[ARYACLUB]

ممنون از پاسخ

اون فایل یک مثال کوچیک بود .

که دوستان براش راه بهم پیشنهاد بدند.

اگر میشه روش حذف و جایگزینی نیم فاصله به فاصله در همون ستون را بهم راهنمایی کنید

[amir_ts]

با سلام
با توجه به اطلاعات ستون b میتونید از کد زیر استفاده کنید.

[LEFT]
Sub test()
Dim i, lr As Integer
lr = ActiveSheet.Cells(ActiveSheet.Rows.Count, "b").End(xlUp).Row
For i = 1 To lr
Cells(i, 2).Value = Application.Substitute(Cells(i, 2), Chr(157), Chr(32))
Next i
End Sub
[/LEFT]

[ARYACLUB]

سلام .
پست amir_ts
عالی جواب داد


فقط برای ستون c - d هم میخوام

(با تغییر b به c یا d نشد )

[amir_ts]

با سلام
نه b برای محاسبه تعداد ردیف موجود هست شما باید برای ستون C و D به ترتیب اعداد شماره ستون که 3 و 4 میباشذ رو به فرمول اضافه کنید.

[LEFT]
Sub test()
Dim i, lr As Integer
lr = ActiveSheet.Cells(ActiveSheet.Rows.Count, "b").End(xlUp).Row
For i = 1 To lr
Cells(i, 2).Value = Application.Substitute(Cells(i, 2), Chr(157), Chr(32))
Cells(i, 3).Value = Application.Substitute(Cells(i, 3), Chr(157), Chr(32))
Cells(i, 4).Value = Application.Substitute(Cells(i, 4), Chr(157), Chr(32))
Next i
End Sub
[/LEFT]