打开EXCEL，怎么可以象使用格式刷一样复制格式到其它的单元？现场结贴！

Question

打开EXCEL，怎么可以象使用格式刷一样复制格式到其它的单元？现场结贴！

Answer 1

录制新宏：Selection.AutoFill Destination:=Range("A1:A7"), Type:=xlFillDefault
Range("A1:A7").Select对你应该有所帮助！

Answer 2

录制宏
Sub Macro2()
    Application.Range("A1").Select
    Application.Selection.Copy
    Application.Range("B9").Select
    Application.ActiveSheet.Paste
End Sub

Answer 3

With Sheet1
    .Range(.Cells(1, 1), .Cells(4, 1)).Select
    Exl.Selection.Copy
    .Range(.Cells(5, 1), .Cells(8, 1)).Select
    Exl.ActiveSheet.Paste
End With

Answer 4

vba语言如果有不懂的,就录制一个宏,然后看vb编辑器,里面的代码基本都可以直接使用.

Answer 5

楼上的几位好像都没有明白楼主的意思，人家明明说的是复制格式嘛！    Range("A1").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Answer 6

只要你能录制宏就可以了,不要去研究VBA

Answer 7

nanci(☆精灵☆) :
    我相信楼主要实现的是格式复制而不是内容连同格式的复制，要不然就说复制单元格得了，干吗还要强调“象使用格式刷一样复制格式”呢？
    有些人的理解能力呀，汗