在Excel中怎么实现带格式的拷贝_VBA

在Excel中如何实现带格式的拷贝？
RT，所谓带格式是指将单元格中的字体、单元格样式甚至单元格的行高、列宽等都拷贝过来而没有任何变化。
请高人指教！

------解决方案--------------------------------------------------------
楼主指的是VBA吗，这个缺省就是带格式的，示例如下

VB code

cells(1,1).copycells(2,2),paste
------解决方案--------------------------------------------------------
Sub Macro1()  
   Columns("A:A").Select  
   Selection.Copy  
   Columns("H:H").Select  
   Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _  
   False, Transpose:=False  
   Application.CutCopyMode = False  
End Sub  


------解决方案--------------------------------------------------------
缺省时不拷贝宽度的，宽度需要使用xlPasteColumnWidths方式单独拷贝，代码如下

VBScript code    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _        SkipBlanks:=False, Transpose:=False
------解决方案--------------------------------------------------------
另：

楼主要学会提问，如果你是想问VB的东东，一开始就要把具体的开发环境报出来，
看你的大标题，也就是Excel，也不知道这个Excel在那里，是一个COM对象，还是真正的Excel窗口。

谢谢。