如何在excel表格自动新建一个工作表

发布网友 发布时间:2022-02-25 02:24

我来回答

4个回答

热心网友 时间:2022-02-25 03:53

1、SHIFT+F11键

2、或点击表下面的按钮,如下图

热心网友 时间:2022-02-25 05:11

插入两个模块分别粘贴代码1、2代码1: Sub 用活动单元格值命名新工作表()
If Len(ActiveCell.Value) = 0 Then
MsgBox "请选择非空单元格"
Else
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Trim(ActiveCell.Value) Then
MsgBox "不能创建重名和工作表"
Exit Sub
End If
Next
Dim wsNewWorksheet As Worksheet
Dim k, sheetname As String
sheetname = Application.ActiveSheet.Name
Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))
Sheets(sheetname).Activate
wsNewWorksheet.Name = Trim(ActiveCell.Value)
End If
End Sub 代码2: Sub 设置快捷键()
Application.OnKey "^+d", "用活动单元格值命名新工作表"
End Sub 粘贴好后按快捷键Ctrl+Shift+d

热心网友 时间:2022-02-25 06:46

用VBA自己写函数吧。

热心网友 时间:2022-02-25 08:37

你想多了
声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。
E-MAIL:11247931@qq.com