[已解决]用取单元格某段字符命名当前工作表

暗夜男

假设A2单元格内容为"今天是个好日子天气也很热"用公式获取=LEFT(RIGHT(A2,7),2),也就是"日子"
所以无论当前工作表名是什么,直接改成"日子" (保证当前工作簿不会重名,因为只有当前一个工作表)
下面是我自己写的vba,等号后面不知道怎么写

因为A2单元格内容会变,这个left公式也会变,所以只能用这个公式取字了

1. Sub mm()
   
2. Active.Sheet.Name = Left(Right(A2, 7), 2)
   
3. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

327718098

2017-6-16 15:22

worksheets(1).name=left(right([a2].value,7),2)

跳转到最佳答案楼层

327718098

worksheets(1).name=left(right([a2].value,7),2)

暗夜男

327718098 发表于 2017-6-16 15:22
worksheets(1).name=left(right([a2].value,7),2)

感谢回复
再请问一个问题
我把 worksheets(1).name 改成了 active.worksheets.name 为什么会报错呢? (我有自己的加载宏)

大灰狼1976

ActiveSheet.Name

暗夜男

大灰狼1976 发表于 2017-6-16 16:22
ActiveSheet.Name

完美,感谢