For Each mycell In Selection
mycell.FormulaR1C1 = ""["" + ActiveWorkbook.Name + ""]"" + ActiveSheet.Name + ""!"" + mycell.Address
Next
End Sub"
6.确定后找到我们刚才添加的应用命令。