VBA 使用格式刷将格式从列复制到列

Question

对于我正在编写的 VBA 的一部分，我需要将所有 I 列的格式复制到所有 J 列中。我认为我应该使用格式刷。我知道这应该很容易，但我从未做过任何格式绘画的 VBA，有人可以建议吗？同样，需要将格式从 I 列复制到下一列 (J)。提前致谢！

Answer 1

录制一个宏并仅针对UsedRange进行调整：

Public Sub copyColFormat()

    With Worksheets("Sheet1").UsedRange

        .Columns("I").Copy
        .Columns("J").PasteSpecial Paste:=xlPasteFormats

        .Cells(1).Select
    End With

    Application.CutCopyMode = False

End Sub