Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Автор Тема: Невидимые символы  (Прочитано 914 раз)

0 Пользователей и 1 Гость просматривают эту тему.

runner

  • Постоялец
  • ***
  • Уважение: +7/-0
  • Оффлайн Оффлайн
  • Сообщений: 158
Невидимые символы
« : 07.07.2021, 12:36:09 »

Доброго дня всем!
Не могу удалить невидимые символы из ячеек.
ПЕЧСИМВ не работает, но ДЛСТР их учитывает. через ПСТР определил, что стоят перед видимым текстом

Текстовый редактор их не видит и не удаляет. При постановке курсора перед видимым текстом в ячейке - Backspace их не удаляет, а вот если несколько раз нажать стрелочку влево, а потом Delete - эти невидимые символы удаляются. КОДСИМВ показывает "?"

Что это вообще? Кто-нибудь сталкивался?
« Последнее редактирование: 07.07.2021, 12:43:22 от runner »
Записан

Serge 007

  • Администратор
  • Ветеран
  • *****
  • Уважение: +341/-0
  • Оффлайн Оффлайн
  • Сообщений: 3 004
    • Мир Excel
Re: Невидимые символы
« Ответ #1 : 07.07.2021, 14:00:48 »

Здравствуйте

Из интернета копировали?

Этот символ -
Знак высокое напряжение Эмоджи
молния, разряд, Зевс, электричество, ток
Юникод: U+26A1
Записан
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Яндекс-деньги: 41001419691823 | WMR:126292472390

runner

  • Постоялец
  • ***
  • Уважение: +7/-0
  • Оффлайн Оффлайн
  • Сообщений: 158
Re: Невидимые символы
« Ответ #2 : 07.07.2021, 14:21:46 »

Китайские партнёры не дают заскучать  :)
Даже представить не могу, что мог бы значить такой "Эмоджи" в контексте поставляемой продукции...

Есть ли какой-нибудь способ, формулами или ещё как, вычистить подобный мусор?
« Последнее редактирование: 07.07.2021, 14:54:16 от runner »
Записан

ShAM

  • Глобальный модератор
  • Постоялец
  • *****
  • Уважение: +33/-0
  • Оффлайн Оффлайн
  • Сообщений: 296
Re: Невидимые символы
« Ответ #3 : 07.07.2021, 16:21:12 »

Попробуйте как в файле.
Записан

RAN

  • Постоялец
  • ***
  • Уважение: +14/-0
  • Оффлайн Оффлайн
  • Сообщений: 127
Re: Невидимые символы
« Ответ #4 : 07.07.2021, 17:22:54 »

Цитата: Serge_007, [url=http://www.excelworld.ru/forum/12-46329-314613-16-1625655173
07.07.2021 в 13:52, в сообщении № 98[/url];314613]Сейчас прошу вас подключиться к этой теме
Sub Мяу()
    Selection.Replace ChrW(8203), ""
End Sub

PS Теги кода в упор не вижу.
« Последнее редактирование: 07.07.2021, 17:37:23 от Serge 007 »
Записан

Serge 007

  • Администратор
  • Ветеран
  • *****
  • Уважение: +341/-0
  • Оффлайн Оффлайн
  • Сообщений: 3 004
    • Мир Excel
Re: Невидимые символы
« Ответ #5 : 07.07.2021, 17:35:39 »

Вот  :)
Записан
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Яндекс-деньги: 41001419691823 | WMR:126292472390

runner

  • Постоялец
  • ***
  • Уважение: +7/-0
  • Оффлайн Оффлайн
  • Сообщений: 158
Re: Невидимые символы
« Ответ #6 : 07.07.2021, 18:28:39 »

Попробуйте как в файле.

К сожалению, подобные "невидимки" совсем не система и артикулы очень разные по длине и структуре.
Показанные методы - рабочие, известные, но очень узконаправленные, а где такая бяка выскочит - не поддаётся прогнозу.

Можно просто находясь курсором внутри диапазона этих символов, стрелкой вправо или влево с шифтом, выделить один символ, скопировать и вставить как заменяемый текст в Ctrl+H и заменить на "" сразу все такие символы на странице.

Но основной раздражающий фактор - невидимость и неопределяемость(для меня) этих(таких) символов.
Sub Мяу()
    Selection.Replace ChrW(8203), ""
End Sub
Отличное решение - посадить на кнопку! мне очень нравится!
Пара вопросов - 8203 - "имя" этого  символа? как оно соотносится с "U+26A1" указанным Serge 007 ? Как определить это имя, если я символ не вижу и КОДСИМВ ничего внятного не даёт? Есть ли таблица соответствий "8203" = "U+26A1" ? Есть ли диапазон кодов таких эмоджи? Возможно ли в коде указать сразу весь диапазон, типа 8200:8295?
Записан

RAN

  • Постоялец
  • ***
  • Уважение: +14/-0
  • Оффлайн Оффлайн
  • Сообщений: 127
Re: Невидимые символы
« Ответ #7 : 08.07.2021, 09:11:47 »

Serge, я вчера в это окно не попал. Было только окно "быстрый ответ", в котором всех этих кнопок нет. Зато сегодня это окно найти не могу. :D

Function КОДЫ_СИМВОЛОВ_юни(ЯЧЕЙКА As Range, Optional Разделитель As String = "\") As String
    Dim simv As Long
    On Error Resume Next
    For simv = 1 To Len(ЯЧЕЙКА)
        КОДЫ_СИМВОЛОВ_юни = КОДЫ_СИМВОЛОВ_юни & AscW(Mid(ЯЧЕЙКА, simv, 1)) & Разделитель
    Next
    КОДЫ_СИМВОЛОВ_юни = Left(КОДЫ_СИМВОЛОВ_юни, Len(КОДЫ_СИМВОЛОВ_юни) - Len(Разделитель))
End Function
Function КОДЫ_СИМВОЛОВ(ЯЧЕЙКА As Range, Optional Разделитель As String = "\") As String
    Dim simv As Long
    On Error Resume Next
    For simv = 1 To Len(ЯЧЕЙКА)
        КОДЫ_СИМВОЛОВ = КОДЫ_СИМВОЛОВ & Asc(Mid(ЯЧЕЙКА, simv, 1)) & Разделитель
    Next
    КОДЫ_СИМВОЛОВ = Left(КОДЫ_СИМВОЛОВ, Len(КОДЫ_СИМВОЛОВ) - Len(Разделитель))
End Function

Ps поскольку параметр LookAt зависит от выбора в окне "заменить", то лучше так
Sub Мяу()
    Selection.Replace ChrW(8203), "", LookAt:=xlPart
End Sub

« Последнее редактирование: 08.07.2021, 09:23:54 от Serge 007 »
Записан

Serge 007

  • Администратор
  • Ветеран
  • *****
  • Уважение: +341/-0
  • Оффлайн Оффлайн
  • Сообщений: 3 004
    • Мир Excel
Re: Невидимые символы
« Ответ #8 : 08.07.2021, 09:24:55 »

Serge, я вчера в это окно не попал. Было только окно "быстрый ответ", в котором всех этих кнопок нет.
Странно, у меня такого окна нет в принципе...
Записан
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Яндекс-деньги: 41001419691823 | WMR:126292472390

Serge 007

  • Администратор
  • Ветеран
  • *****
  • Уважение: +341/-0
  • Оффлайн Оффлайн
  • Сообщений: 3 004
    • Мир Excel
Re: Невидимые символы
« Ответ #9 : 27.07.2021, 16:22:33 »

...8203 - "имя" этого  символа?..
Это его HTML-код
Записан
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Яндекс-деньги: 41001419691823 | WMR:126292472390
 



Темы без ответов

24.01.2020 14:03 На диаграмме Ганта несоответствие оси Y 2753
09.08.2019 14:09 Макрос для заполнения таблиц через форму 3990
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 3613
09.07.2019 20:39 Кредит с уменьшением периода выплат 3611
28.05.2019 21:09 Сделать несколько скриптов для рабочей таблицы 4951
05.03.2019 17:00 Последовательный вывод таблиц Excel в один документ Word без шаблона 4344
05.03.2019 09:29 Нежелательные изменение размеров колонтитула при редактировании 4043
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 5086
20.01.2019 12:38 Все варианты частичного суммирования 4268
13.01.2019 12:24 Заполнение диапазона числами - в виде кластеров 3784





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.128 секунд. Запросов: 102.