Excel中如何多个工作簿同一位置表格添加不同数字

Question

如图，在北京1的交接单表头需要添加数字60，第二个表头添加数字61一直往下添，有没有大神求助

Answer 1

1、点击顶部的“开发工具”。

如果没有开发工具，点顶部的文件---选项，自己去选项里或选项的自定义功能区里找，找到后打上勾，点确定，顶部就有开发工具了。

2、点“Visual Basic”打开VB编辑器。

3、在画蓝框的区域内的 任意位置，点右键---插入模块。

4、点击模块。

5、在右侧粘贴代码。

6、点画红圈的按钮运行代码。

OK，1秒内给你把表头都加上数字。

------------

看不表你具体要添加数字的单元格是哪个单元格，就按B2写的代码，你自己在代码里把B2改一下即可。

【【你瞅我的头xiang图片看看。】】

为方便复制，贴出代码如下：

Sub 添加表头数字()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Range("B2") = Sheets(i).Range("B2") & 59 + i
    Next
End Sub

追问

老哥，这什么情况

追答

哦？上面那对括号里，你写上个1940干嘛。那个括号里不能有东西。

Answer 2

将这些工作表全部选中，组成“工作组”，修改一张表的数据，所有选中的表就会同样修改。

先点第一个表，按住Shift键不松点最后一个表，就会一次性选中所有表，组成工作组

如果想选择不连续的表，使用Ctrl键。

选择前：

选择后：

工作簿名字出现“组”字：

追问

老哥，是递增的添加，比如第一个表内容是60，第二个表内容是61，第三个表内容是62

Answer 3

若你下面的表名都是文字+规律数字就利用工作组来实现，点第一个需要添加的表，按住shift不放，点最后个需要添加的表，放开shift，点g2,输入公式=-LOOKUP(1,-RIGHT(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,100),ROW(1:10)))+59回车即可，否则需要加个辅助工作表，最好把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）,excel样表文件（示例数据，非实际数据，以免泄密，把现状和目标效果表示出来）作为附件发到[email protected]帮你看下