使用VBA代码使用格式刷将某一列的格式复制到另一列。

Question

我正在写一个VBA程序，需要将I列的格式复制到J列。我想使用格式刷工具。虽然这应该很容易，但我从未在VBA中使用过格式刷，请问有什么建议吗？再次感谢您的帮助！

- abiedermann

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

- paul bica

---

Option Explicit 没有声明变量。标记为 =P。 - findwindow

坏习惯 ;) 实际上，为了简单起见，我会将其删除... (@findwindow) - paul bica