как убрать лишний символ

[SAM77777]

После выгрузки данных из репортера в эксэль появились лишний символ(выглядит как пустой квадрат):
В колонках он не отображается но поиск по таблице соответственно не работает как его программно убрать?

[Sparkman]

Прогнать в цикле

cells(i,j) = Mid(cells(i,j),1,Len(cells(i,j))-1)

если "квадрат" занимает 2 символа, то

cells(i,j) = Mid(cells(i,j),1,Len(cells(i,j))-2)

пс: это при условии, что в одной ячейке находится одна строка текста

[SAS888]

Можно проще, без циклов и без каких-либо ограничений:

ActiveSheet.UsedRange = Application.Clean(ActiveSheet.UsedRange)

[Soultaker]

Ребят подскажите пожалуйста.

Есть у меня один файл в котором 30 тысяч строк
данные выглядят примерно так 000-000-000-00
а необходимо 000-000-000 00

Как убрать последнее "-"

[vikttur]

Для 30000 строк лучше макросом. Хотя, если работа разовая, можно и формулой

=ПОДСТАВИТЬ(A1;"-";" ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;"-";"")))
=ЗАМЕНИТЬ(A1;12;1;" ")
=ЛЕВСИМВ(A1;11)&" "&ПРАВСИМВ(A1;2)

[Hugo121]

Макросом можно так (без защиты от ошибок, если в ячейке данные менее 12 символов, и если скорость не важна):

Sub tt()
Dim cc, tmp
Application.ScreenUpdating = False
For Each cc In [a1:a30000]
tmp = cc.Value
Mid(tmp, 12, 1) = " "
cc.Value = tmp
Next
Application.ScreenUpdating = True
End Sub

Если нужна скорость - взять в массив, обработать аналогично в массиве, выгрузить назад.

[Soultaker]

Сообщение от vikttur

Для 30000 строк лучше макросом. Хотя, если работа разовая, можно и формулой

=ПОДСТАВИТЬ(A1;"-";" ";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;"-";"")))
=ЗАМЕНИТЬ(A1;12;1;" ")
=ЛЕВСИМВ(A1;11)&" "&ПРАВСИМВ(A1;2)

спасибо тебе большое.

а ещё можеш подсказать

вот у меня всё тот же гадский файл с 30 тысячами строк.

есть в нём поле которое выглядит так ГГГГ/ММ/ДД
есть мелкие ошибки когда стоит ГГГГ\ММ/ДД
это легко убирается заменой.
Но как приобразовать в случае ДД/ММ/ГГГГ в ГГГГ/ММ/ДД (данные все в одной ячейки)

[vikttur]

Что, макросы не нравятся?
Если ДД/ММ/ГГГГ - это нормальная дата, а ГГГГ/ММ/ДД- текст:

=ЕСЛИ(ЕЧИСЛО(A1);A1;ДАТА(ПРАВСИМВ(A1;2);ПСТР(A1;4;2);ЛЕВСИМВ(A1;4)))

[Soultaker]

хм пишет #ЗНАЧ

[IgorGO]

если там даты можно просто задать формат для столбца формат ГГГГ/ММ/ДД