Question

EXCEL 单元格等于表格名字

比如A1单元格，我要让他等于EXCEL表格的名字，请问公式怎么写？
补充下，现在是一个工作薄中有很多工作表，上百张，要这个工作薄中，每个工作表的M5单元格，各自显示所在工作表名称

Answer 1

选定第一张工作表
按住shift 点最后一张工作表
然后选M5
然后复制这个公式：
=REPLACE(CELL("filename",$A$1),1,FIND("]",CELL("filename",$A$1)),"")

Answer 2

方法一
常规方法 cell函数
取得工作表名，在任一单元格输入：
=RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))

方法二
取工作表名及路径=CELL("filename",$A$1)

取工作簿及表名
=MID(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1)),LEN(CELL("filename",$A$1))+1-FIND("[",CELL("filename",$A$1)))

取工作簿名
=MID(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1)),FIND("]",CELL("filename",$A$1))-FIND("[",CELL("filename",$A$1))+1)

取工作表名
=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))

方法三
定义一个名称，简写为：mc,引用位置写入"=get.cell(66)"然后在任意单元格输入=mc,即可得到当前工作簿名称。
定义一个名称，简写为：mcb,引用位置写入"=get.cell(62)或=get.cell(32),然后在任意单元格输入=mcb,即可得到当前工作簿及工作表名称。

补充A
取本表表名:
定义X=MID(GET.DOCUMENT(1),FIND("]",GET.DOCUMENT(1))+1,100)
在各表输入=X
补充B
定义一个名称，简写为：mcb,引用位置写入"=get.cell(62)或=get.cell(32),然后在任意单元格输入
=RIGHT(mcb2,LEN(mcb2)-SEARCH("]",mcb2,1)) 可以得到工作表名称
补充C
定义一个名称，简写为：mcb,引用位置写入"=get.cell(62)或=get.cell(32),然后在任意单元格输入
=MID(mcb,SEARCH("]",mcb2,1)+1,100) 可以得到工作表名称

Answer 3

用宏

Sub test()

Cells(2, 1).Value = ActiveWorkbook.Name

End Sub