如何在单元格中引用所在工作表名？用cell只能返回活动工作表名，不符要求？

如何在单元格中引用所在工作表名？用cell只能返回活动工作表名，不符要求？

=RIGHt(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))

Alt+F11 视图--代码窗口 ，如下代码复制进去 ，F5 运行（或者切换回 工作表 Alt+F8 运行）  Sub shtname()    Dim sh As Worksheet   For Each sh In ThisWorkbook.Sheets    sh.[a1] = sh.Name   'A1 单元格 显示工作表名   Next  End Sub  也可以搞个自定义函数 ，引用函数 就显示工作表名： Alt+F11 视图  工程资源管理  Thiworkbook 底下 插入模块， 代码放进模块： Function shtname()  shtname = ActiveCell.Parent.Name End Function在任意单元格输入    =shtname()   就返回当前工作表名

sheets("sheet2").select dim i for i = 1 to 4 textboxi.value = cells(3,1).value next

=CELL("filename",A1) 　　CELL有两个参数，如果省略后面的参数，用CELL只能返回活动工作表名。 　　注意： 1. 工作簿必须先保存； 2. 返回的工作表名，是包含路径名的，如有必要，用MID或RIGHT提取函数结合FIND函数提取； 3. 这里A1，可以换成任意的其它单元格地址，A1最简洁、顺眼。