[已解决]格式刷的VBA代码怎么写？

raulerini

格式刷的VBA代码怎么写？

将整个表刷成第一行的样式。

最佳答案

月排行榜 / 总排行榜

FookYou

2010-3-2 15:35

Sub Macro1()
  Dim Rng As Range
    Set Rng = ActiveCell
    Rng.Copy
    ActiveSheet.UsedRange.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Rng.Select
End Sub

跳转到最佳答案楼层

wayy

就是复制－粘贴格式的代码呀，

６段的楼主不至于吧？

FookYou

Sub Macro1()
  Dim Rng As Range
    Set Rng = ActiveCell
    Rng.Copy
    ActiveSheet.UsedRange.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Rng.Select
End Sub

excel03

看看

raulerini

[em04][em04]惭愧~~~~~~~~~