Excel 2007中，有很多工作簿，字体也有很多不一样，怎么在查找中把要找的全部找出来

已经试了查找 有些有的查找不出来，为什么？解决的办法有没有？谢谢各位高手

和字体没关系,看看格式

vba方法 -将多个excel文件合并到一个excel的多个sheet中 1. 将需合并的excel文件放在同一个文件中，并这个文件中新建一个excel文件 2. 打开新建的excel文件，按alt + f11键，新建一个模块，将下面的代码拷贝进去。 sub books2sheets() '定义对话框变量 dim fd as filedialog set fd =application.filedialog(msofiledialogfilepicker) '新建一个工作簿 dim newwb as workbook set newwb = workbooks.add with fd if .show = -1 then '定义单个文件变量 dimvrtselecteditem asvariant '定义循环变量 dim ias integer i =1 '开始文件检索 foreach vrtselecteditem in .selecteditems '打开被合并工作簿 dimtempwb as workbook settempwb = workbooks.open(vrtselecteditem) '复制工作表 tempwb.worksheets(1).copybefore:=newwb.worksheets(i) '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即excel97-2003的文件，如果是excel2007，需要改成xlsx newwb.worksheets(i).name= vba.replace(tempwb.name, ".xls","") '关闭被合并工作簿 tempwb.closesavechanges:=false i= i + 1 nextvrtselecteditem end if end with set fd = nothing end sub 3、开发工具-插入-表单工具中的按钮，选择books2sheets()的宏，并保存为可以执行宏的文件 4. 打开刚保存的excel文件，工具 – 宏 – 宏 - 选择刚建立的巨集（只有一个）- 执行 - 选择所有需要合并到新建的excel文件中的所有excel文件。 等待它合并完（文件多的话，合并的时间就长点）。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息