Да "м²" замениться на "м3", но можно заменить 2 на 3 и формат сохранится. И это не особенность  Characters.Font, это особенность моего макроса, его можно исправить.
Меня волнует вопрос "почему мой макрос иногда работает быстро, а иногда (особенно при первом пуске) дико тормозит?"

Alexander88, доработать макрос, чтобы в нем были поля для "найти" и "заменить" можно, только поможет ли это сделать макрос быстрее? (маловероятно)
Максим Зеленский, в моем макросе получилось бы так "бух-бух-лыга", Т.е. при замене оставляется форматирование первого символа искомого слова (вторая "ма" начиналась с жирной буквы). Можно сделать. чтобы сохранялось форматирование, когда искомое слово больше по длине, чем его замена.... но это уже мелочи.

ikki, форматирование убивается каждый раз, когда в автоматическом режиме происходит изменение части текста.
Попробуйте сами это сделать через "Найти и заменить".
Т.е. в вашем примере, когда в форматированной ячейке поменяется только нужный кусок, формат уже будет стерт.

Как и два года назад, никто ничем помочь не в состоянии.
Может время для таких "сложных" тем еще не настало?...

Михаил, пример изменение "Слово" в "Слава" при автоматической замене верно описывает проблему.
Т.е. нужно чтобы "Слово" изменялось в "Слава".

По сути форматирование в ячейке может быть любым (другой шрифт, цвет, размер, стиль и т.д.)
Пример с формулами с надстрочными и подстрочными символами - всего лишь пример.

Хочется сделать универсальное решение.

gling, макрос уже написан и с макрозаписью не имеет ничего общего.

Михаил С., задача следующая: нужно сохранить форматы всех символов в ячейки, а затем их восстановить.
Справка: кнопка "restore" (макрос Restore_font) восстанавливает измененный текст на "листе 1", копируя значения ячеек с листа "копия Листа 1".
Идея простая.
содается класс, коллекция CharFont, который в качестве обхъектов содержит параметры формата отдельного символа и несколько функций.
Функция saveFont принимает символ и сохраняет в экземпляре своего класса формат символа.
Функция getFont восстанавливает формат символа.
Функция CneckFont применяется для того чтобы сохранять в коллекции только группы символов с уникальным форматом.

При сохранении форматов символов создается массив с номерами элементов, которые имеют отличный от предыдущего символа формат.
Массив затем используется при восстановлении форматов.

Вот общая идея, без детального разбора макросов.  

Михаил С., как Scripting.Dictionary может помочь в сохранении формата символов ячеек и последующего восстановления этого формата?

Если в строке используется, к примеру, надстрочные символы м², °С и т.д., то при замене через "найти и заменить" формат изменится.

Я собрал макрос, который перед заменой сохраняет форматирование, а после замены - восстанавливает исходный формат ячейки.
Проблема в том, что мой макрос работает весьма неоптимально. Время работы в приведенном мной файле-примере составляет 4 секунды (слишком много)
Хотелось бы оптимизировать код, но я не знаю как.

Даже так...
стоит изменить текст на листе "Копия Листа 1" и вновь запустить макрос "Start" №1, то время уменьшается до 0.6 секунд против 9 секунд.

Данный эффект мне не понятен ((

Прикрепляю файл

Здравствуйте.
Хочу поделиться макросом, который при замене какого-либо куска текста в ячейке, оставляет форматирование остального текста в исходном состоянии.
На Листе1 присутствуют три кнопки: две кнопки "Start" и одна "Restore"(восстановление)
Кнопки старт заменяют однократно один текст на другой.
Макрос первой кнопки "Start" сохраняет форматирование группы символов.
Макрос второй кнопки "Start" сохраняет форматирование каждого символа.

Проблема заключается в том, что при первом запуске "Start" №1 время работы макроса составляет около 9 секунд, а при последующих запусках время уменьшается до 0.6 секунд.

Подскажите, пожалуйста, в чем может быть проблема.

Спасибо, помогло.

Здравствуйте.  
 
Допустим есть ячейка с датой в формате [$-FC19]«Д» ММММ ГГГГ "г."
То есть вместо 17.12.12 будет выводится «17» декабря 2012 г.  
 
Вопрос, как в макросе строковой переменной присвоить значение = "«17» декабря 2012г.", вместо "17.12.12" ?  
 
Заранее спасибо.

Предпочту не замечать хамства.  
 
Спасибо, сам нашел.

Исправил неправильные даты... Все равно в сводной таблица информативней не стала ((

Офис 2010. Проверил форматирование ячеек: формат всех ячеек с датами - даты.    
Хочется, чтобы еще и в 2003 офисе работало.

Здравствуйте.  
 
Подскажите, как в сводной таблице сделать фильтр "позже задаваемой даты". То есть нужно чтобы можно было ввести дату и посчитаются только те данные, которые были созданы после необходимой даты

Попробуйте перед записью результатов вставить    
ActiveSheet.Calculate

На вскидку. Вначале приведенного вами кода надо вставить цикл:  
 
for i =1 to 100 ' сам цикл  
 
В середине вместо: Selection.Copy Destination:=Range("С1:С9")  
 
Selection.Copy Destination:=Range("С1:С9").offset(0,1)  
 
А в конце:  
 
next i

Какие данные должны скопироваться?  
Дата и ФИО сотрудника?

Написал макрос. В самом макросе есть комментарии

То есть вам нужно скопировать строку из одного листа на другой?  
 
Но ведь шапка таблиц на листах разные!

В формуле в последнем аргументе функции ПОИСКПОЗ нужно вместо "0" подставить "-1" (без скобок)

Да)) рЕсунок - это силно написано :)

{quote}{login=Hugo}{date=30.11.2012 02:48}{thema=}{post}Диапазон, рисунок  
Рисунок, диапазон  
Диапазон, рисунок  
 
Чтоб закрепить зрительную память :){/post}{/quote}  
 
Не понятно, что вы имеете в виду. Назначить фон для конкретного диапазона в Excel нельзя. Если вы знаете как это сделать - опишите пошагово.

К сожалению Excel этого не умеет.

Ага, ищите во вкладке "разметка страницы".

Спасибо за помощь.

Забыл про файл.