VBA：给溢出单元格区域应用格式

完美Excel · 公众号 · Excel · 2024-11-27 06:00

正文

学习Excel技术，关注微信公众号：

excelperfect

标签：VBA

Excel中可溢出单元格区域，但不溢出的单元格不会溢出格式，如下图1所示。

图1

下面的程序将从溢出区域左上角单元格的格式复制到溢出区域的其余部分。

代码如下：

'本程序将溢出单元格区域左上角单元格格式'应用到整个溢出单元格区域Sub ApplySpillFormat() Dim rng As Range Dim bError As Boolean '检查是否选择了单元格区域 If TypeName(Selection) = "Range" Then   '将区域赋给变量   Set rng = Selection   '判断是否为溢出单元格区域   If rng.HasSpill = True Then     '复制区域中左上角单元格     rng.SpillParent.Copy     '粘贴格式到整个溢出单元格区域     rng.SpillParent.SpillingToRange.PasteSpecial Paste:=xlPasteFormats     '清除剪贴板     Application.CutCopyMode = False     '重新选择所选单元格     rng.Select   Else     bError = True   End If Else   bError = True End If
 '如果碰到错误则显示错误消息 If bError Then   MsgBox "在运行本程序前请先选择溢出单元格区域中的单元格." _     , vbOKOnly + vbExclamation, "选择错误" End If Set rng = NothingEnd Sub