Как скопировать с листа на лист с сохранением форматирования

[qwertyhp]

Есть ячейка с адресом Sheets(Лист1).Range("A1").Select. В другом листе есть другая ячейка с адресом Sheets(Лист2).Range("A3").Select.
Требуется скопировать первую ячейку с её содержимым в адрес второй ячейки с полным сохранением форматирования первой - теми же шрифтами, цветами, выравниваниями и т.п. Но при этом не прыгать с листа на лист, вызывая мелькание на экране (ячеек много), а так же скрытно, как если бы из ячейки в ячейку копировались только данные. То есть визуально оставаясь на одном листе.
Клевал я эту Range, клевал - ничего не выходит.
И еще. Есть такая штука - ActiveCell.Characters(Start:=i, Length:=j).Insert(x) = x, которая позволяет вставлять (заменять) фрагменты строки с сохранением форматирования оной. Но работает она, как видно из названия, только с активной ячейкой. А как аналогично работать с неактивной?
Кто знает - пожалуйста, подскажите.

[Alec]

Есть ячейка с адресом Sheets(Лист1).Range("A1").Select

Э, а что, по-твоему, такое Select, как слово иностранного языка, и как элемент используемого языка программирования?
И вообще, что означает каждая часть этого "адреса" (в котором, возможно, не хватает пару кавычек)?

Клевал я эту Range, клевал - ничего не выходит.

Интересно, каким это образом?
PS. Excel, кстати, содержит неплохую справку по VBA...

[qwertyhp]

Согласен. Следовало написать "На листе MS Excel с именем "Лист1" есть ячейка с адресом "A1"", и далее - в том же духе. Написал короче и интуитивно понятнее (наверное). А Select - это по-заумному, по-иноземному. Клевал по-разному, не выходит. Помогите, кто знает.

[Alec]

http://www.translate.ru/links/801ed7a5

[qwertyhp]

Сообщение удалено как потерявшее актуальность.

[qwertyhp]

Нашёл. Проблема решена.
Была ячейка, в которой текст набран РАЗЛИЧНЫМИ шрифтами *цветом, и т.п. - буквально винегрет из размеров, выделений и т.д. - и мне всё это нужно было без потерь и визуальной смены листа скопировать на другой лист.
Привожу код, вдруг кому пригодится:

Код: Выделить всё

Sub КопированиеЯчейки()
' Копирование ячейки "как есть", один-в-один :
    Sheets("Лист1").Range("A2").Copy
    Sheets("Лист2").Range("A8").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
End Sub


Alec, спасибо за совет обратиться к Справке. Помогло. Пошёл шКодить дальше))))).

[Alec]

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

Сам я нашел решение

Запись макросов + избавление от выделения ячеек. Только, когда ты то же самое делаешь без макросов, ты тоже во второй ячейке заново набираешь текст, а потом делаешь специальную вставку? Или просто - скопировать/вставить?

Код: Выделить всё

    Sheets("Лист1").Range("A2").Copy
    Sheets("Лист2").Paste Range("A8")
    Application.CutCopyMode = False


Добавлено позже.
Первоначально это был ответ на твой стертый пост...

[qwertyhp]

Всё равно спасибо. Только поправка - Sheets("Лист2").Paste Range("A8") в Вашем коде вставляет в активный лист, не в указанный.

[Alec]

Однако... Точно!

Код: Выделить всё

    ActiveSheet.Paste Sheets("Лист2").Range("A8")


[Alec]

Оказывается, можно и одной строчкой:

Код: Выделить всё

Sheets("Лист1").Range("A2").Copy Sheets("Лист2").Range("A8")

[qwertyhp]

Отличное решение! Элегантное и компактное! Спасибо!