将合并单元格的内容转换为注释或注释

Question

的想法是将合并单元格的内容转换为注释或注释。我找到了这段代码

'Convert Cell Content to Comment
Sub ConvertToComment()
Dim C As Range
For Each C In Selection
C.ClearComments
If Len(C.Value) > 0 Then
C.AddComment
C.Comment.Text C.Value & ""
End If
'Optional: Delete cell content after converting
C.ClearContents
Next C
End Sub

但这在合并的单元格中无法正常工作。当应用时，弹出错误400。请帮忙修一下？

Answer 1

我可能错了，但我相信您的问题是C.ClearContents行。

也许试试这个。。。

'Convert Cell Content to Comment
Sub ConvertToComment()
Dim C As Range

For Each C In Selection
C.ClearComments

If Len(C.Value) > 0 Then
C.AddComment
C.Comment.Text C.Value & ""
End If

'Optional: Delete cell content after converting
C.Value = ""
Next C
End Sub

它具有基本相同的效果，应该起作用。