使用函数来处理
Excel版本参考:2013
1、A1输入公式:=REPLACE(CELL("filename"),1,FIND("]",CELL("filename")),"")
2、回车完成
函数简单解析:
1、CELL("filename"),获取活动工作薄的全路径
2、REPLACE替换函数,此处从第一个到],替换为空
方法一:
单击任一单元格,单击插入→名称→定义→在当前工作簿的名称框中输入任意一名字,比如“x”,在引用位置框中输入公式=GET.CELL(62)→确定。
然后在任一单元格中输入公式=MID(X,SEARCH("]",X,1)+1,100)
方法二:
=RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))
公式如下,请测试一下:
=MID(CELL("filename"),FIND("]",CELL("filename"))+1,LEN(CELL("filename"))-FIND("]",CELL("filename")))
Sub Macro1()
'假如有3个sheet
Dim i As Long
For i = 1 To 3
ActiveWorkbook.Sheets(i).Cells(1, 1) = ActiveWorkbook.Sheets(i).Name
Next i
End Sub
这个放到宏里面运行就可以了,不知道是不是你所说的
如果是打印出来能显示就好办到