基于其他几个单元格的值向Excel中的单元格添加注释（VBA）

我希望使用VBA向单元格中添加注释。此注释应该是来自不同选项卡的单元格值

我有当前总明细表。我希望将此选项卡中的单元格H5和H6复制到“每月总计”选项卡中单元格K5的注释中。我还希望H5中的单元格值在一行上，H6的值在另一行上

例如，如果当前总细分选项卡中的H5和H6分别等于“Hi x 10”和“Hello x 20”：

我希望每月总计中的K5有一个评论，说：

Hi x 10
Hello x 20

如下图所示，我知道它们来自不同的细胞

我也得重复一遍。 我知道怎么写 我不太擅长VBA，但我知道如何编写选择、复制和粘贴，甚至向单元格中添加注释，但不是以我希望的上述格式

我真的不知道我会怎么做，所以我非常感谢和帮助，如果你能为我分解代码，这样我就可以为我的其他范围编辑它，我需要应用它

到目前为止我得到的代码（试图记录宏；无法100%确定最后一行正在做什么）

---

无需选择任何内容：

Dim myComment as String
myComment = Sheets("Current Total breakdown").Range("H5").value & Chr(10) & Sheets("Current Total breakdown").Range("H6").Value
Sheets("Monthly Totals").Range("K5").AddComment.Text myComment

---

你能把你目前掌握的代码包括进来吗？@controlnetic.nomad在你的代码中添加了我目前掌握的代码（错过了sub和end sub，就是这样。1）。2） 您可以分配

“范围（“H5”）。值&Chr（10）和范围（“H6”）.value

到变量或直接到注释的

文本

我知道最好指定，但我尝试记录宏，因为我不太擅长VBA，不需要经常使用。如果我理解正确，你说我应该写你提供给我的行，请在我的每月总计选项卡中选择单元格K5，添加com复制并粘贴值？这应该有效？（远离我的PC atm）。

Dim myComment as String
myComment = Sheets("Current Total breakdown").Range("H5").value & Chr(10) & Sheets("Current Total breakdown").Range("H6").Value
Sheets("Monthly Totals").Range("K5").AddComment.Text myComment