VBA使用Format Painter将列的格式从列复制到列

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