Excel VBA选中区域输出工作簿、表和单元格地址

好了，在代码去输入如下代码，并设置所属类别和函数的说明。

Sub 插入当前文件名和表名及地址()

    For Each mycell In Selection

        mycell.FormulaR1C1 = '[' + ActiveWorkbook.Name + ']' + ActiveSheet.Name + '!' + mycell.Address

    Next

End Sub