根据其他几个单元格 (VBA) 的值向 Excel 中的单元格添加注释

Question

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

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

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

我希望每月总计中的 K5 发表评论说：

Hi x 10
Hello x 20

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

我也得重复一遍。 我知道如何写我对 VBA 不是很好，但我知道如何写选择、复制和粘贴，甚至向单元格添加注释，但不是我希望的格式。

完全不确定我将如何处理此问题，因此将不胜感激和帮助，如果您可以为我分解代码，以便我可以为我需要应用的其他范围编辑它。

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

Sheets("Current Total breakdown").Select
Range("H5").Select
Selection.Copy
Sheets("Monthly Totals").Select
ActiveCell.Offset(-19, 8).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=Chr(10) & "" & Chr(10) & ""
ActiveCell.Offset(16, -6).Range("A1").Select 

Answer 1

无需选择任何内容：

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