excel的vba中如何实现格式刷的功能

Question

如题所述

Answer 1

格式刷相当于复制→选择性粘贴→格式

Sub 宏1()

    Range("A1").Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

本回答被提问者和网友采纳