在Excel中如何实现带格式的拷贝?
RT,所谓带格式是指将单元格中的字体、单元格样式甚至单元格的行高、列宽等都拷贝过来而没有任何变化。
请高人指教!
[解决办法]
楼主指的是VBA吗,这个缺省就是带格式的,示例如下
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方式单独拷贝,代码如下
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False
[解决办法]
另:
楼主要学会提问,如果你是想问VB的东东,一开始就要把具体的开发环境报出来,
看你的大标题,也就是Excel,也不知道这个Excel在那里,是一个COM对象,还是真正的Excel窗口。
谢谢。