如何批量地将单元格批注复制到右侧单元格

编写一个VBA自定义函数，步骤如下：
同时按下Alt+F11打开VBE编辑器，接着点击菜单栏上的“插入-模块”，再将下面代码复制到右侧空白处（代码窗口）。最后在工作表有批注的单元格右边输入=批注（单元格引用）
复制的代码为：
Function 批注(区域 As Range) As String
    批注 = 区域(1).Comment.Text
End Function