接受单元格注释并将其存储到字符串变量中

Question

我想要实现的是我的工作具有在单元格中定义的单元格数据，并且描述存储在注释中。是否可以将其删除并存储到字符串或类似内容中，以允许我将其粘贴为可打印格式，在生成的打印输出页面上。

dim myval as string
dim cmt as comment

Sheets("DData").Activate
set cmt = [H4].comment
myval = cmt.comment
Sheets("Generated Profile").Activate
cells(24,7) = myval

这是我的表格：

这是我的工作簿数据页：

任何帮助将不胜感激，这是我在这里的第一篇文章，因此，如果发布不当，请重定向我。

谢谢。

Answer 1

尝试这样的事情：

Dim comment As String
comment = Range("A1").comment.Text

用所需的任何单元格替换上面的单元格。

Answer 2

我发现当我胖手指输入代码时

myval = cmt.comment

应该是

myval = cmt.text 

尽管应该提到Darrell h（以下引用提供了更好的解决方案） 这是他们的代码。

Sheets("Generated Profile").Cells(24,7) = Sheets("DData").Cells(4,8).Comment.Text

“ ...之间发生了很多事情……Sheets（“ Generated Profile”）。Cells（24,7）= Sheets（“ DData”）。Cells（4,8）.Comment.Text。无需激活两次或设置中间值。” – Darrell H