如何在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

你想多了