☰

如何复制当前选择的所有格式信息？

tag-icon • tag-icon microsoft-excel vba
如何复制当前选择的所有格式信息？

是否可以从选择中复制所有格式信息？

我见过这一页，其中列出了 Range 的所有不同格式属性，但是否可以一次获取所有属性并将它们存储起来以供以后使用？

就像是：

Public formatting As Collection
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set formatting = Selection.allFormatting
End Sub

答案1

我录制了一个宏，同时选择一个单元格，选择格式刷来获取其格式，并将其应用到另一个单元格。结果：

Sub Macro1()

    Selection.Copy
    Range("E9").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

End Sub

它似乎有效，但只能起作用一次；也就是说，如果您想将相同的格式应用于另一个单元格，您必须在应用之前再次选择它然后选择.Copy。

不过，所有这些选择对眼睛都不好，而且没有必要。这样更好：

Range("E7").Copy
Range("E9").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

相关内容