|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
16.11.2008, 20:41 | #1 |
Новичок
Джуниор
Регистрация: 16.11.2008
Сообщений: 1
|
Помогите пожалуйста в борьбе с непечатаемыми и невидимыми символами!
Здравствуйте!!! Столкнулся с проблеммой заполняю данными таблицу 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 > Но с его применением символы лишь отображаются но не функция ПЕЧСИМВ ни помогает ни иные мысли ...можно ли что то придумать к данному макросу для полной чистки квадратиков с сохранением содержания текста, либо просто произвести автозамену их на # например чтобы потом почистить автозаменой и избавится... > > Спасибо Вам Большое за сотрудничество. > > с Уважением Иван. (Молдавия) |
17.11.2008, 13:48 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Прикрепите к сообщению пример файла "с квадратиками", либо его часть.
По возможности укажите диапазон ячеек (например, "a1:f550"), которые следует избавить от квадратиков. (это позволит сократить время обработки файла) |
18.11.2008, 07:05 | #3 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Предлагаю следующее: формируем массив из "ненужных" символов В примере - это символы с кодами от 8 до 31 и от 127 до 191), затем на всем листе (в примере - активном) заменяем их на "пусто".
Код:
Если Вам нужно оставить какие-то псевдографические, специальные или иные символы, которые в примере удаляются, измените диапазоны сравнения оператора Case.
Чем шире угол зрения, тем он тупее.
|
18.11.2008, 10:00 | #4 |
Пользователь
Регистрация: 16.05.2008
Сообщений: 73
|
Как раз недавно интересовался - возможно ли в Excel'е просмотреть непечатаемые символы, так же как и в Word (там это оч помогает)...???
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
запись числа римскими символами (Си++) | kOvr1K | Помощь студентам | 3 | 18.10.2008 23:19 |
Работа с русскими символами... | Sota | Помощь студентам | 5 | 31.05.2008 18:44 |
Формирование Excel-документа через OLE-сервер с Unicode-символами | sergushkin | Microsoft Office Excel | 2 | 13.04.2008 23:04 |
Задачка на работу с символами и строками | Go6a | Помощь студентам | 10 | 30.03.2008 16:31 |
удалить лишние пробелы со строки так чтобы между символами осталось по одному пробелу c++ | DimaG | Общие вопросы C/C++ | 1 | 01.11.2007 21:50 |