[Alex Dark]

Jeff,
LEFT("qwerytu",3)="qwe"
Right("qwerytu",3)="ytu"
MID("qwerytu",3,2)="er"

добавлено через 11 минут

Сообщение от Jeff

Если формула не проходит, то в ячейке выдаёт "#N/A". Как сделать так, чтобы ячейка просто оставалась пустой или в ней прописывалось то, что я хочу?

Извини, но я знаю только рускоязычный вариант. Анголязычный просто не помню
У меня это выглядит так:
В1 ячейка с ошибкой
в В2 "=Если(ЕОШ(B1);" ОШИБКУ НАШЛИ !!!";В1)"
наверное как то так
=if(Error...(B1);" ОШИБКУ НАШЛИ !!!";В1)


PS На VB пишу редко, если что надо, смотрю помощь. На текущий момент ни чего не установлено

добавлено через 49 минут

Сообщение от Jaded

Подскажите есть ли возможность в Office 2003 из листа выделить определенный диапазон ячеек и скопировать их на другой лист? Я имею ввиду возможно ли как-то автоматизировать процесс: нужно из 12 файлов скинуть одну и ту же инфу в одну книгу.

Sub Макрос1()
Строка = 3  'Номер следующей строки для вставки
СтрокаОт = 4    'Начало диапазо на для копирования
КолонкаОт = 1   'Строка / колонка

СтрокаКол = 3   'Сколько строк копируем
КолонкаКол = 3  'Сколько колонок копируем

 For Each Л In Sheets
    Л.Select
    
    Range(Cells(СтрокаОт, КолонкаОт), Cells(СтрокаОт + СтрокаКол - 1, КолонкаОт + КолонкаКол - 1)).Select
    Application.CutCopyMode = False
    Selection.Copy
    
    Sheets("Лист3").Select
    Cells(Строка, 1).Select
    'ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Строка = Строка + СтрокаКол + 1  '1 - пустая строка-разделитель
Next
End Sub

Могу только примерно так сделать. По другому не умею.
И еще. Делал на примере листов, если открыть 12 книг и 13 как результирующая то все то же самое только вместо
For Each Л In Sheets
Л.Select
пишем
For Each Л In WorkBooks
Л.Scheet("лист2").Select

ну и плюс мелкая доработка напильником