Как скопировать всю информацию о форматировании текущего выделения?

Question

Можно ли скопировать всю информацию о форматировании из Selection?

Я видел эту страницу, которая перечисляет все различные свойства формата диапазона, но возможно ли получить их все сразу и сохранить для дальнейшего использования?

Что-то вроде:

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

Answer 1

Я записал макрос, в то время как я выбрал одну ячейку, выбрал средство рисования формата, чтобы взять его форматирование и применил его к другой ячейке. Результат:

Sub Macro1()

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

End Sub

И это похоже на работу, но только один раз; то есть, если вы хотите применить такое же форматирование к другой ячейке, вы должны выбрать его, а затем выделение.Скопируйте еще раз перед применением.

Однако все эти выборы вредны для глаз и не нужны. Это лучше:

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