excel用vba如何建新一个工作表然后命名为表1里面A1单元格输入的内容

Question

如题所述

Answer 1

不需要用VBA，直接用函数即可。

使用函数来处理

Excel版本参考：2013

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

2、回车完成

函数简单解析:

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

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

Answer 2

宏代码

Sub 指定位置新建工作表并命名()
Sheets.Add before:=Sheets(1)
'before 前边.after 后边
ActiveSheet.name = "表1"
Cells(1, 1) = "A1单元格输入的内容"
End Sub本回答被提问者和网友采纳

Answer 3

表1是指原来的那个表吗？如果是的话，试试下面的代码
Sub 新建工作表()
Sheets.Add
ActiveSheet.Name = Sheets("表1").Range("a1")
End Sub

Answer 4

录制宏