excel批注文字格式统一居中

amansbj

假设：文档中有100个单元格设置了批注，文档的批注默认是左对齐。
求助：如何快速统一将100个单元格的批注统一更改为居中！

hxj119

去VBA版本试试，函数与公式无此功能！！！

Excel_muke

1. 按alt+f11 进入VBA窗口
2. 左边双击ThisWorkbook，输入以下内容：

1. Sub CenterComments()
   
2.     Dim ws As Worksheet
   
3.     Dim cmt As Comment
   
4.     Dim rng As Range
   
5. 
   
6.     ' 遍历每个工作表
   
7.     For Each ws In ThisWorkbook.Sheets
   
8.         ' 遍历每个单元格批注
   
9.         For Each cmt In ws.Comments
   
10.             ' 居中批注的内容
    
11.             With cmt.Shape.TextFrame
    
12.                 .HorizontalAlignment = xlHAlignCenter
    
13.                 .VerticalAlignment = xlVAlignCenter
    
14.             End With
    
15.         Next cmt
    
16.     Next ws
    
17. 
    
18.     MsgBox "所有批注已居中！"
    
19. End Sub
    

复制代码

3.按alt+f11退出VBA窗口
4.按alt+f8 启动VBA
5. "所有批注已居中"

amansbj

Excel_muke 发表于 2024-8-11 15:24
1. 按alt+f11 进入VBA窗口
2. 左边双击ThisWorkbook，输入以下内容：
3.按alt+f11退出VBA窗口

感谢大佬
拜服