Я имел в виду,что вы по тропинке развития далеко от меня ушли. Это не попытка проявить неуважение. Прошу прощения если вы так считаете.

И не буду спорить что вы внесли огромный вклад в решение моей проблемы,мои благодарности.
У меня еще есть вопрос. Так как программа очень прожорливая до памяти,то лишние символы в файлах не нужны,это такие как цифры,буквы языка,на который переводится документ,точки там и т.д.(их все равно переводить не нужно). Но листы обычно заполнены формулами и если сразу начинать удалять все ненужное,то в ячейках остается что-то типа "#ИМЯ?" или подобное. И это воспринимается программой уже как материал для подсчета,хотя эти ячейки должны быть пустыми. Избежать этого можно путем сохранения листа на прежнее место,но что бы в ячейках оставались "значения"
Вот я записал макрос на это.

Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

если есть какой-нибудь более надежный или еще по какому-нибудь качеству лучший способ,не могли бы вы мне про него рассказать?
В общем я спрашиваю ваше мнение по этому поводу.

Что то я не понимаю как нужно использовать
Cells.value=Cells.value
но это не особо важно,главное что есть решение)
И еще я не совсем понимаю что такое cells и usedrange. Я ведь макросы делаю преимущественно записью т.к. не разбираюсь. ну я понял что cells выбирает весь лист. range вроде это диапазон, по логике usedrange это используемый диапазон,но тогда получается что его сначала нужно задать? или я тут неправильно понимаю?

Возможно вы подумали что я на все забил уже и свалил,но это не так) Просто на работе времени не было,макросами я занимаюсь в свободное время, а дома вирусняк захавал файл hosts и инет не работал)
Я так и не понял как сделать макрос с использованием
sh.usedrange.value=sh.usedrange.value
чтобы он на одином листе работал только.
Я сделал так

Sub Znachenia_for_sheet()
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveSheet.UsedRange.ClearFormats
End Sub

а потом перечитав сообщения я сделал еще такой вариант

Sub Znatcheniya_for_sheet()
With ActiveSheet
.UsedRange.Value = .UsedRange.Value
.UsedRange.ClearFormats
End With
End Sub

для всей книги такой

Sub Znachenia_for_book()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.UsedRange.Value = sh.UsedRange.Value
sh.UsedRange.ClearFormats
Next sh
End Sub

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

AndreTM,

Для меня ADODB и сами макросы являеются темным лесом. Не нужно у меня спрашивать зачем ибо я делаю как могу,а не как нравится.И в первую очередь меня волнует достижение цели,а не средства на это.
В виду отсутствия смайликов мое сообщение может быть воспринято как попытка кого-нибудь,но прошу учесть что оскорбление не является моей целью))

недописал половину сообщения... ну надеюсь все поняли что я имел в виду)

kuklp,

ActiveSheet, как я понимаю,это лист,который я выбрал и он мне в данный момент показывается на экране.(так ведь?)
А под конкретным листом вы имеете в виду просто какой-то лист из книги, имя которого нужно будет указать?

ну макросы
Sub Znatcheniya_for_sheet()
и
Sub Znatchenia_for_sheet()
сделаны как раз для работы с выделенным листом,т.к. после на этими листами проводится еще удаление цифр,непереводимых символов и иногда английских букв. В общем чтобы все глазами видеть и предотвращать косяки, уж извините, но машине я не верю) как уже говорилось думать она не умеет)) а учитывая что все нужно делать быстро, то вариант когда нужно указывать листы руками не подходит(не, ну иногда подходит,но эт оредко бывает).
Удаляющий макрос кстати выглядит так,это нормально?он 100% записанный.

Cells.Replace What:="1", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

И еще вопрос. Если в листе слишком много строк, его приходится разбивать на несколько листов и сохранять в отдельные книги. Сложный ли будет макрос для разбивания листа по 2000 строк начиная с конца в отдельные листы? Сохранить их в отдельные кники я и руками смогу))Хотя я участия в создании этих макросов практически не принимаю,но я не прошу чтобы за меня все делали, просто наставления)

Ну это часть его)) там еще 9 строчек в нем таких же))

Проблема в том что я про циклы вообще ниче не знаю.


Здесь используется цикл? а то мой макрос на транслитерацию из 60 строк состоит на замену... И я знаю что это плохо

Тут очень много скобочек и мне мало что понятно. Я могу сделать только так. но я даже не знаю что потом с этим делать... Вставить между sub и end sub?

Ваш макрос на больших листах быстрее работает,не сильно правда,но в больших объемах экономия времени все же присутствует))Спасибо за помощь)

По поводу разбивания большого листа на мелкие по 2000 строк


Сначала я думал сделать так,чтобы он автоматически разбивал весь большой лист,это бы делалось повторением макроса пока ошибка не выскочит,т.к в листе осталось бы меньше строк чем 2000,но я не знаю как заставить его повторяться и вроде тогда нужно поставить обработчик ошибок после строчки


так что я подумал что можно просто стоять на большом листе и несколько раз подряд руками запускать макрос,вроде так проще))
Я вот только не уверен что есть понятия "последняя строка" и "последний лист".Да и про диапазон я не уверен "последняя:2000 строк вверх"
Скажите,это вообще возможно?