在ms excel中新创建的工作表上重复相同的标题

Question

我有一个已经存在的excel文件，其中包含一些标题和单个工作表，我希望每当用户点击添加新的工作表按钮标题时，应该重复它。是否可能，如果是，请告诉我要创建的步骤一个擅长这样。

Answer 1

您可以使用模板，但这是超级用户网站的问题。

作为宏观答案，试试这个：

1. 创建一个只包含标题的新工作表，重命名此表格模板。
2. 进入开发人员选项卡并插入一个ActiveX按钮，双击它进入vba编辑器（您可能需要先将文档另存为启用宏的文档）
3. 将按钮名称更改为btnNewWorkSheet，将标题更改为＆＃34;点击此处查看新工作表＆＃34;

4. 进入VBA编辑器中的工作表页面并复制以下代码：

   Private Sub btnNewWorkSheet_Click()
       Sheets("Template").Copy After:=ActiveSheet
   End Sub
   

---

现在，您可以点击显示的任何页面上的按钮，以创建模板页面的副本

Answer 2

您可以将以下代码粘贴到“ThisWorkbook”模块：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
  If TypeName(Sh) = "Worksheet" Then
    Sheet1.Range("A1:K1").Copy Sh.Range("A1")
  End If
End Sub

Sheet1是单个工作表对象的名称，将A1:K1替换为标题范围，将A1替换为所需目标。