单元格等于工作表名称

推荐生活 2019-02-17 11:48:18  1037

本文收集整理关于单元格等于工作表名称的相关议题，使用内容导航快速到达。

内容导航：

Q1:EXCEL中如何让某一单元格的内容等于所在工作表的名称
Q2:怎么让工作表名称等于单元格内容
Q3:单元格值等于工作薄名称（不是工作表）
Q4:vba单元格值不等于工作表名称则增加表并以其值命名

Q1：EXCEL中如何让某一单元格的内容等于所在工作表的名称

使用函数来处理

Excel版本参考：2013

1、A1输入公式：=REPLACE(CELL("filename"),1,FIND("]",CELL("filename")),"")

2、回车完成

函数简单解析:

1、CELL("filename")，获取活动工作薄的全路径

2、REPLACE替换函数，此处从第一个到]，替换为空

Q2：怎么让工作表名称等于单元格内容

这个只能用VBA来实现。代码如下：
Sub 工作表名输入()
Cells(1, 1) = ActiveSheet.Name
End Sub
作用是将当前工作表的表名放入A1单元格。

Q3：单元格值等于工作薄名称（不是工作表）

使用CELL公式可以实现，直接使用CELL的效果：

=CELL("filename")

然后使用MID获得你需要的内容，公式为：

=MID(A1,FIND("[",A1)+1,FIND(".",A1)-FIND("[",A1)-1)

如果需要一次性获得结果，可以使用CELL("filename")代替A1，公式为：

=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND(".",CELL("filename"))-FIND("[",CELL("filename"))-1)

Q4：vba单元格值不等于工作表名称则增加表并以其值命名

拿A1单元格举例：

123456789SubShadd()s=Trim(Range("A1").Text)Ifs<>""ThenFori=1ToSheets.CountIfLCase(Trim(Sheets(i).Name))=LCase(s)ThenExitForNextIfi>Sheets.CountThenSheets.Add.Name=sEndIfEndSub

WwW.yIJitAO.cO+M

相关文章: excel如何提取单元格中的数字2019-01-15; excel单元格按条件选择2019-01-31; excel把一个单元格的内容分开2019-02-02; excel拖动单元格的宽高2019-02-03; excel只粘贴筛选单元格2019-02-09; excel等于另一个单元格的内容2019-02-10; excel单元格公式由组成2019-02-11; excel单个单元格相加减2019-02-14; excel一个单元格分两列2019-02-14; 单元格格式新增自定义2019-02-15