تبدیل نیم فاصله ها به فاصله

[amir_ts]

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

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