Kod:
Sub Duzenle()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set deg = CreateObject("VBScript.Regexp")
deg.Pattern = "[^a-zA-Z0-9\Çç\Ğğ\İi\Iı\Öö\Şş\Üü\ ]"
deg.Global = True
For i = 1 To Cells(Rows.Count, "FF").End(xlUp).Row
Cells(i, "FF") = Trim(deg.Replace(Cells(i, "FF"), " "))
Next i
Set deg = Nothing
Columns("FF:FF").TextToColumns Destination:=Range("FF1"), DataType:= _
xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= _
True, Space:=True
Cells.HorizontalAlignment = xlLeft
Cells.EntireColumn.AutoFit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub