Помогите пожалуйста в борьбе с непечатаемыми и невидимыми символами!

[Agape]

Здравствуйте!!! Столкнулся с проблеммой заполняю данными таблицу Exel а при выгрузке на сервер...сервер начинает зависать..как оказалось причина в квадратиках со знаками вопросов которые видны лишь при автофильтре... удалять в ручную тысячи записей отнимает много времени...в сети обнаружил интересный макрос
>
> Sub Макрос1()
> Dim c As Range, i As Long, s As String, SP As String
> Dim oldDA As Boolean
>
> SP = Space(1) 'Для большей лучшести
> With Selection
> For Each c In .Cells
> s = c.FormulaR1C1 'Для неё же
> For i = 1 To Len(s)
> If Mid(s, i, 1) < SP Then Mid(s, i, 1) = vbTab
> Next
> c.FormulaR1C1 = s
> Next
>
> oldDA = Application.DisplayAlerts
> If oldDA Then Application.DisplayAlerts = False
> .TextToColumns Destination:=.Offset(0, 1) _
> , DataType:=xlDelimited, ConsecutiveDelimiter:=False _
> , Tab:=True _
> , Semicolon:=False, Comma:=False, Space:=False, Other:=False _
> ', TextQualifier:=xlDoubleQuote _
> ', TrailingMinusNumbers:=True
> If oldDA Then Application.DisplayAlerts = True
> End With
> End Sub
>
Но с его применением символы лишь отображаются но не функция ПЕЧСИМВ ни помогает ни иные мысли ...можно ли что то придумать к данному макросу для полной чистки квадратиков с сохранением содержания текста, либо просто произвести автозамену их на # например чтобы потом почистить автозаменой и избавится...
>
> Спасибо Вам Большое за сотрудничество.
>
> с Уважением Иван. (Молдавия)

[EducatedFool]

Прикрепите к сообщению пример файла "с квадратиками", либо его часть.

По возможности укажите диапазон ячеек (например, "a1:f550"), которые следует избавить от квадратиков. (это позволит сократить время обработки файла)

[SAS888]

Предлагаю следующее: формируем массив из "ненужных" символов В примере - это символы с кодами от 8 до 31 и от 127 до 191), затем на всем листе (в примере - активном) заменяем их на "пусто".

Sub DelNoPrint()

    Dim i As Integer, j As Integer, a(), x
    ReDim a(0): j = 0
    For i = 0 To 255
        Select Case i
        Case 8 To 31, 127 To 191
            a(j) = Chr(i)
            j = j + 1: ReDim Preserve a(j)
        End Select
    Next
    ReDim Preserve a(j - 1)
    
    For Each x In a
        ActiveSheet.UsedRange.Replace What:=x, Replacement:=""
    Next
     
End Sub

Должно помочь.
Если Вам нужно оставить какие-то псевдографические, специальные или иные символы, которые в примере удаляются, измените диапазоны сравнения оператора Case.

[Bu$ter]

Как раз недавно интересовался - возможно ли в Excel'е просмотреть непечатаемые символы, так же как и в Word (там это оч помогает)...???