Как скопировать ячейку вместе с форматированием

[kosm]

Как скопировать ячейку вместе с форматированием (высота, ширина и остальные аттрибуты)?

[Sergey-13]

не понял, зачем тебе это?

[kosm]

Задача - сделать копию листа за вычетом нескольких колонок и строк + должно остаться форматирование.

[Dave]

Попробуй это, только он размер не копирует

Sheets(1).Range("A1").Copy _
Destination:=Sheets(2).Range("A1")

[GSerg]

Копируй весь лист worksheets("sdghsgdh").copy, а потом удаляй ненужное из копии.

[kosm]

Да, с копией листа наверно решится проблема. Только вот копировать нужно в отдельный workbook (нужен отдельный файл). Каким образом в другой воркбук скопировать лист? Я так понимаю copy работает только в пределах текущего?

[RayShade]

Я обычно комирую листы вот таким, изварщенным, способом:

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

Sheets("Sheet1").Range("A1:IV65535").Copy
Sheets("Sheet2").Range("A1:IV65535").Paste


[kosm]

RayShade
Форматирование сбивается таким образом Хотя на само деле, если простого метода нет, то придеться так + потом еще расформатировать. Но блин, глупость, при копировании не трогать формат, IMHO.

[GSerg]

Команда copy без параметров как раз и скопирует в новую книгу.

[Vitaly1]

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

Sheets("Имя листа источника").Select
    Sheets("Имя листа источника").Copy Before:=Workbooks("Имя книги приемника").Sheets(1)

А если книги для копирования нет то так:

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

Sub Создать файл(ИмяТекКниги, ИмяИндексЛистаТекКниги, ПолноеИмяФайла)
    Workbooks(ИмяТекКниги).Activate
    Sheets(ИмяИндексЛистаТекКниги).Select
    Sheets(ИмяИндексЛистаТекКниги).Copy
    ActiveWorkbook.SaveAs FileName:=ПолноеИмяФайла, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Workbooks.Open FileName:=ПолноеИмяФайла
End Sub

P.S.
Это вопрос по VBA!