批量让Excel当前表格指定单元格的内容变成指定另外单元格的批注

在VBA中，创建一个类似于Excel内置函数（如SUM）的函数，可以直接在单元格中使用并框选单元格区域，需要一些额外的步骤。这种函数通常被称为“用户定义函数”（UDF），并且需要在VBA编辑器中定义。以下是一个简单的示例，展示如何创建一个名为SetCellComment的UDF，它可以将一个单元格区域的内容设置为另一个单元格区域的批注：

1. 打开VBA编辑器（按下Alt + F11）。
2. 插入一个新的模块（在“插入”菜单中选择“模块”）。
3. 在新模块中输入以下代码：

Function SetCellComment(srcRange As Range, destRange As Range) As Variant
    Dim cell As Range
    Dim commentText As String

    ' 检查源区域和目标区域是否有效
    If srcRange Is Nothing Or destRange Is Nothing Then
        SetCellComment = CVErr(xlErrRef) ' 返回引用错误
        Exit Function
    End If

    ' 遍历目标区域，为每个单元格设置批注
    For Each cell In destRange
        ' 获取源区域中对应位置的值
        commentText = srcRange.Cells(cell.Row - destRange.Row + 1, cell.Column - destRange.Column + 1).Value
        ' 设置批注
        cell.AddComment (commentText)
    Next cell

    SetCellComment = "Done" ' 返回完成消息
End Function
 

    4.关闭VBA编辑器。

现在，你可以在Excel中使用这个函数了。例如，如果你想要将A1:A10区域的内容作为批注添加到B1:B10区域，你可以这样操作：

1. 在一个空白单元格中输入=SetCellComment(A1:A10, B1:B10)。
2. 按下Enter键。

这个函数会遍历B1:B10区域，并将A1:A10区域中对应位置的值作为批注添加到B1:B10区域中的每个单元格。

请注意，这个函数返回的是一个字符串"Done"，表示操作已完成。如果你希望函数不返回任何值，可以将返回类型设置为As Variant，并在函数中不返回任何内容。