Excel中的自动递增十进制值

Question

我试图弄清楚如何在Excel中自动递增十进制值，并且对于下一张表格，将第一个数字增加一。

以下示例：

(first sheet)
1.1
1.2
1.3
...
(second sheet)
2.1
2.2
2.3
...

现在，如果我添加一个新表，我希望编号继续3.1。在excel 2010中这样的事情是否可能？

Answer 1

如果没有一些宏支持，我看不到任何方法可以实现这一点。像下面这样的东西可能是一个起点;将其添加到VBA中的ThisWorkbook模块：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Cells(1, 1) = ThisWorkbook.Worksheets.Count + 0.1
End Sub

创建新工作表时会调用代码，并将新工作表作为参数接收。然后向左上角的单元格提供反映当前工作簿中的工作表数量的值，加上问题中的0.1。根据需要，可以用（例如）For循环填充更多的单元格（从问题中不清楚究竟有多少单元格应该获得值或者我们知道的规则是什么）。