excel VBA方式制作格式刷快捷键

• 打开 Excel，按 Alt+F11 打开 VBA 编辑器；
• 左侧双击 ThisWorkbook，粘贴以下代码；
• 按 Ctrl+S 保存文件（需另存为 .xlsm 启用宏的格式）。

Option Explicit
Private m_FormatRange As Range ' 存储复制格式的源区域' ========== 核心功能：复制格式（绑定快捷键用） ==========
Sub CopyFormat()On Error Resume Next' 捕获选中的单元格区域Set m_FormatRange = SelectionIf Err.Number <> 0 ThenMsgBox "请先选中要复制格式的单元格！", vbExclamation, "提示"Exit SubEnd IfOn Error GoTo 0' 提示格式已复制Application.StatusBar = "✅ 已复制 [" & m_FormatRange.Address & "] 的格式，按快捷键应用"
End Sub' ========== 核心功能：应用格式（绑定快捷键用） ==========
Sub ApplyFormat()On Error Resume Next' 检查是否已复制格式If m_FormatRange Is Nothing ThenMsgBox "请先复制格式（Ctrl+Shift+F）！", vbExclamation, "提示"Exit SubEnd If' 应用格式（复制源区域格式到目标区域）m_FormatRange.CopySelection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseApplication.CutCopyMode = False ' 清除复制状态Application.StatusBar = "✅ 已将 [" & m_FormatRange.Address & "] 的格式应用到 [" & Selection.Address & "]"On Error GoTo 0
End Sub' ========== 自动绑定快捷键（打开文件时执行） ==========
Private Sub Workbook_Open()' 绑定：Ctrl+Shift+F = 复制格式；Ctrl+Shift+G = 应用格式' Key:=70 对应F键，71对应G键，可自行修改（见文末键值表）Application.OnKey "^+F", "CopyFormat"   ' ^=Ctrl，+=Shift，F=F键Application.OnKey "^+G", "ApplyFormat"  ' Ctrl+Shift+G 应用格式
End Sub' ========== 关闭文件时清除快捷键绑定 ==========
Private Sub Workbook_BeforeClose(Cancel As Boolean)' 恢复快捷键默认功能Application.OnKey "^+F"Application.OnKey "^+G"Application.StatusBar = False ' 清空状态栏提示
End Sub