作者：乔山办公网日期：
返回目录：excel表格制作
这是一个工作组操作的概念：
用鼠标zd点第一个工作表名称，再按住SHIFT键不放、用鼠标点最后一个工作表名称，你会发现首尾和中间的工作表名称都被选中了，这个选中的就是工作组了，也就是工作表组成的一个组。
此时，你只要在其中的一个单元格输入一个数字，比专如在A3单元格输入一个8，则所有选中的工作表的A3单元格都输入了一个8。
由于工作组操作是一个非常危险的动作，不是很清楚的相对高手还是不要操属作为妙，因为，万一你一操作，说不定哪个工作表中的数据你误改或者误删了，且很难找到发现的。
解决方案2：
excel不能
如果你要批量更改多个工作簿的相同数据，可用Ultra Edit对多文件的相同内容作同时修改。
这个问题用批处理难以完成，用vbs吧，将下面的代码复制保存为扩展名是“vbs”的文件，放到与要处理的excel文件同目录下运行即可得到名字为“总表.xls”的文件，这就是结果：
'═e799bee5baa6e79fa5e98193e4b893e5b19e365════代═══码═══开═══始═════
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
set oexcel=CreateObject("excel.application")
set oexcel2=CreateObject("excel.application")
name=fso.getfolder(".")&"\总表.xls":i=1
oexcel.workbooks.add
oexcel.activeworkbook.saveas(name)
oexcel.DisplayAlerts = False
oexcel2.DisplayAlerts = False
oexcel.visible=false
set fs=fso.getfolder(".").files
for each f in fs
ext=LCase(right(f.name,4))
if (ext=".xls" or ext="xlsx") and left(f.name,2)<>"~$" and f.path<>name then
oexcel2.workbooks.open(fso.getfolder(".")&"\"&f.name)
oexcel2.Worksheets(1).Rows(1).copy
oexcel.Worksheets(1).paste(oexcel.Worksheets(1).Rows(i))
i=i+1
oexcel2.activeworkbook.close
end if
next
oexcel.activeworkbook.save
oexcel.activeworkbook.close
msgbox "处理完毕！"
'Created By escortmnm from VBS团队
'═════代═══码═══结═══束═════
根据表的数量，需要的时间可能不同，请耐心等待结果！
你可以在一个EXCEL中，替换一遍，在替换前，打copy开录制宏的功能。这样就可以将要做的事全部录下来，保存下来。再用这个带“宏”知的EXCEL打开另外一些EXCEL文件，运行宏就成道了。宏录制，在工具->宏-->录制宏
B1=IF(IFERROR(FIND(",",A1),0)>0,MID(A1,FIND("密码知列道表内容",A1)+4,8),MID(A1,FIND("密码列表",A1)+5,8))
C1=MID(A1,FIND("密码列表",A1)+13,FIND("-",A1)-FIND("密码列表",A1)-13)
D1=MID(A1,FIND("-",A1)+1,LEN(TRIM(A1))-FIND("-",A1)-1)