Здравствуйте!
У меня возникла такая проблема:
есть екселевский файл, в нем в ячейках некоторые символи имеют формат "Надстрочный"
Необходимо написать макрос, который бы проверял каждый символ и если он в формате "Надстрочный" - то удаляло бы его.
С Visual BAsic совершенно не знаком, пполистал форум, на смог найти ответ. Проблема в том что я не могу взять значение "Надстрочечности" (True или False) символа и присвоить его какой то переменной чтобы потом проверить ее.



Вот что я со своими 0-выми знаниями написал :)
Конечно оно не работает... И еще я не знаю как запустить проверку по ячейках, которые имеют данные, здесь только проверяет символы в выделеной ячейке.

n = Range("A1").Characters.Count
For k=1 to n
Set f = Range("A1").Characters(n, 1).Font.Superscript
If f = true
then [удалить этот символ]
next k


БУду весьма признателен если кто-то покажет код как это все дело сделать.

В аттаче пример файла

lena_####Аттача нет, открепился

попробуйте так:
[/src]

ухты, спасибки огромнейшее
А не поскажете, как мне сделать чтобы был проход по столбцам и по строчкам, чтобы проверило весь диапазон данных, а не одну ячейку?
Атачу файл )

Вот образец

lena_####
Огромнейшее спасибо!
Как я могу вас отблагодарить?