Замена апострофа (') Excel

Пользователь

Сообщений: 4 Регистрация: 09.12.2009

08.05.2012 08:41:27

Результатом работы программы является файл Excel. Содержимое некоторых ячеек, которого имеют вид подбного рода:
'=250*560
'652
'=450*40
и т.д.
Всё, что находится за апострофом воспринимается, как текст, а мне надо чтобы воспринималось, как число или выражение
=250*560
652
=450*40
и т.д.
Пробывал через замену. Ставил найти ' заменить на ничего. Пишет, что апострофа не нашёл.
Вопрос такой: как удалить (не вручную, а через замену или как-то подругому за один раз и всё сразу) апострофы из ячеек документа?

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#2 08.05.2012 09:05:01 Читайте здесь: http://www.planetaexcel.ru/forum.php?thread_id=21626

Guest Гость	#3 08.05.2012 09:09:36 =ПОДСТАВИТЬ( - F1 (HELP)

vikttur

Пользователь

Сообщений: 47199 Регистрация: 15.09.2012

08.05.2012 09:13:19

ПОДСТАВИТЬ() в этом случае - что мертвому припарка :)
Не верь глазам своим. Это не апостроф (хотя в других случаях себя таковым считает) - поставленный первым знаком в строке, чудесным образом превращается в служебный знак.

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#5 08.05.2012 09:16:43 {quote}{login=vikttur}{date=08.05.2012 09:13}{thema=}{post}ПОДСТАВИТЬ() в этом случае - что мертвому припарка :){/post}{/quote} Вить, я ведь уже дал ссылку...

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#6 08.05.2012 09:26:54 Так аноним все равно настаивает :)

Guest

Гость

08.05.2012 10:00:40

Так что всё таки делать? Сделать через функцию пользователя(UDF). Так это ещё разбиратся надо (может кто-нибудь анимацию скинет). И тут http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-funkciya-polzovatelyaudf/ вроде написано, что функция пользователя не может изменять значения других ячеек (а мне как раз это и надо). Неужели нет какого то простого способа решения, не погружаясь в програмирование на VBA.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#8 08.05.2012 10:26:15 Гы) Есть. Самое простое, без формул и без ВБА. Руками. Если неохота работать головой... Я сам - дурнее всякого примера! ...

ikki

Пользователь

Сообщений: 9709 Регистрация: 22.12.2012

08.05.2012 10:28:40

без VBA способа не знаю :(

можно в любой стандартный модуль вставить такой макрос:

Sub tst()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells
If c.PrefixCharacter = "'" Then c.Value = c.Text
Next
End Sub

далее на любом листе нажимаем Alt+F8, из списка макросов выбираем tst, жмём "Выполнить".

фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

Малюк Пользователь Сообщений: 4 Регистрация: 09.12.2009	#10 08.05.2012 15:44:46 Не выходит. <EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Малюк Пользователь Сообщений: 4 Регистрация: 09.12.2009	#11 08.05.2012 16:10:25 Ссылка на удалённый файл: http://forum.dwg.ru/attachment.php?attachmentid=79830&d=1336478749

Z Гость	#12 08.05.2012 16:33:55 Забирайте (Report.xlsx), без "мультиков": из XL в Access (поле первое текст)- из Access в XL... ;) Как вариант, разумеется... -83154- Прикрепленные файлы post_332795.xlsx (13.65 КБ)

Z Гость	#13 08.05.2012 16:58:42 Склероз, блин - самую экзотику запамятывал: берем копируем "0" и спецвставка по выделенному в "А" - сложить... ;) Однако, работает - XL-2010... -81058-

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#14 08.05.2012 17:32:51 Однако в моем 2010 с апострофом это не работает

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#15 08.05.2012 17:36:45 Смысл спецвставки в том, что вставляются форматы. Можно так: 1. Выделить обычную пустую ячейку, скопировать. Выделить все, спец. вставка - форматы. 2. Ctrl+H, заменить "=" на "=".

Гость

#16

08.05.2012 17:39:56

{quote}{login=Михаил С.}{date=08.05.2012 05:32}{thema=Z}{post}Однако в моем 2010 с апострофом это не работает{/post}{/quote}
Однако в моем - SP1 RU на XP SP3 - работает... В XL разделитель ".", но если и в данных поменять "," на "." - працуе... Барабашка, не иначе... ;) -54768-

Прикрепленные файлы

post_332805.xlsx (15.83 КБ)

Малюк

Пользователь

Сообщений: 4 Регистрация: 09.12.2009

#17

08.05.2012 18:37:50

{quote}{login=Казанский}{date=08.05.2012 05:36}{thema=}{post}Смысл спецвставки в том, что вставляются форматы.{/post}{/quote}
Спасибо помогло. Только я б добавил.
После пункта два заработали выражения, но остались ячейки в которых пишет что ошибка (число сохранено как текст).
Поэтому необходимо сделать ещё замены типа "0" на "0", "1" на "1" и т.д. до "9" на "9" и тогда всё заработало. Вот если бы на эти операции (с пункта 1 и до замены "9" на "9" макрос бы написал, был бы очень признателен.

Guest Гость	#18 08.05.2012 18:42:22 Это - "Вот если бы на эти операции (с пункта 1 и до замены "9" на "9" макрос бы написал" - заказ на макрос?!.

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#19 08.05.2012 20:53:03 Для замены чисел, записанных как текст, как раз помогает спец. вставка - сложение с пустой ячейкой (или содержащей 0).

Читают тему