要使评论与Excel中的过滤表格中的单元格移动VBA

Question

我有一个表格，其中包含使用VBA创建的具有多个注释的过滤器。所有评论都很重要，并且有大量的数据。我试图找到一种方法来避免在应用过滤器时出现错误消息。我知道，如果我循环遍历整列并按单元格设置 Comment.Shape.Placement = xlMoveAndSize，它应该可以工作，但有没有办法选择像这样的整个范围？

masterSheet.Columns(columnExtension).Comment.Shape.Placement = xlMoveAndSize 

我也试图在这方面：

'Final formating ----------------------------------------------- 

masterSheet.Activate 
masterSheet.Columns(columnExtension).Font.Size = 12 
masterSheet.Columns(columnExtension).Font.Bold = True 
masterSheet.Columns(columnExtension).NumberFormat = "0" 
masterSheet.Columns(columnExtension).HorizontalAlignment = xlCenter 

ActiveSheet.UsedRange.SpecialCells _ 
(xlCellTypeComments).Comment.Shape.Placement = xlMoveAndSize 

masterSheet.Columns.AutoFit 

Answer 1

我不能找到一种方法，都同时做，因为我一直在寻找...所以我刚写的循环，它的工作原理，但是...

'// Change each comment to "move and size with cells" 
For Each cellComment In ActiveSheet.Comments 
    cellComment.Shape.Placement = xlMoveAndSize 
Next cellComment 

这可能是有用的人..

Answer 2

使用SpecialCells范围对象还曾FO我只遍历包含注释的单元格。

Sub Test2() 
Dim rng As Range 
Dim cl As Range 

Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments) 
For Each cl In rng.Cells 
    cl.Comment.Shape.Placement = xlMoveAndSize 
Next 
End Sub