Question

excel一个表格有N个工作表，例如 表1 表2 表3.。。。。。

现在 表1 的B1数据为 1.1.1.1 想让表2 表 3 表4 依次实现1.1.1.2 1.1.1.3 1.1.1.4 。。。。 位数递增。
请大神解答。

Answer 1

Sub 按钮1_Click()

For j = 1 To Sheets.Count

Sheets(j).[b1] = "1.1.1." & j

Next j

End Sub

追问

执行这一步，是先从哪里点开的。 比如开始→ 工具→ ？？

追答

启用宏，第一张表里有按钮，点击就可以

Answer 2

用VBA代码简单方便。要吗？

追问

具体详细一点，能用，给你悬赏。

追答

Sub 输入数据()
Dim i%
For i = 2 To Sheets.Count
    Sheets(i).[b1] = "1.1.1." & Mid(Sheets(1).[b1], 7, 1) + i - 1
Next
End Sub

追问

在哪里输入代码?？

追答

下载附件点击其中的按钮即可直接得到你要的效果。
也可
在你的表格的任一工作表标签上击右键，点击【查看代码】，再将以上代码粘贴到空白代码窗口中。