Question

有1000多个excel表 想在第一个表里添加一列，值全为1；第二个表里添加一列，值全为2；...依此类推，怎么做

Answer 1

在sheet1里把鼠标放在左下角，“sheet1”上面，右键选择所有表，然后插入一列，在插入列的第一行输入公式=RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1))-5)，这样其他表就跟着变了

Answer 2

三个前提可以做到：1，内存足够大，一个文件里有1000多张表
2，表的名字就是1,2,3...数字顺序编的
3，每个表达行数相同或者你允许添加的行数与表中原来行数多

追问

这三个前提能满足，那您能给个具体的代码么？觉得代码应该也不会很复杂，只是没接触过VBA，真是不想手动的一个个去添加啊啊啊啊

追答

选中第一张表，按下shift，点击最后一张表，所有表都被选中了
当前表格插入一列，选中这一列如1～100行，输入=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))取得工作表名，然后按下ctrl+enter
任意双击一张表解除选定 ，应该可以搞定

追问

您的第二句话“当前表格插入一列”就是shift选完后还双击，把所有的表都打开？
您的那个命令行里的“filename”要改成自己文件的名字么？四个filename都是一样的文件名么，还是分开头文件名和最后的文件名呀？能把这个命令行解释下么？谢谢哈

追答

按shift选完时当前工作簿所有工作表都被选中，但是肯定有一个是当前的显示在你面前，就在这个表中插入列(之前没有双击),filename是个参数，不需要改，你可以找两张表先试一试，再在这个表中操作

追问

我用三个表试了下，提示：公式中所用的某个数值是错误的数据类型
插入的列中出现的值全是“#VALUE”，而且只有当前表有“#VALUE”，其余俩表里没有插入行哎

追答

=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))是取得当前工作表名
可能是操作不对
你把三个表的文件通过qq发给我看看，qq 2687997227

Answer 3

做个VBA程序去完成这样枯燥而乏味的活吧。

追问

能给个具体的程序么？我的源文件是GPS车辆数据，但它们是每个车的数据为一个excel表，里面没有车ID，现在想在每个表里加入ID，没接触过VBA编程，所以还请高人赐教哈

追答

你没接触过VBA编程，那对EXCEL的宏操作知道么？如果知道宏，就可以用记录宏的办法，因为你这个任务虽然量大，但不复杂。重复做几次，用宏记录下操作过程，再修改一下就是个VBA小程序。做的过程中有什么语法不知道，可以看EXCEL的VBA帮助。

Answer 4

这种东西没有什么简单的方法可以学习的，如果你会VBA，估计几行代码搞定，如果你不会，短期内也学不会，估计直接手工插入也不会很慢

Answer 5

自己找VBA的教程吧，要是有点基础就用不着别人的程序改下就行了。因为VBA就是专门对付办公软件系统的程序嘛。