Question

求VBA代码：有N个excel工作薄，使所有工作薄中含有字符串ABC的单元格所在的行更改字体颜色及输出工作薄名

大神您好：
1 我有980多个excel工作薄（其实是980个txt文档转化了格式来的），每个工作薄都只有唯一一个工作表（这个工作表的名称就是工作薄的名称），固定有J个列，行数不确定

2 我想根据查找第G列~第J列中的单元格是否含有字符串AA或字符串BB（这样的关键字符串总共有7个，），如果含有上述关键字符串中的任意一个，则标注该行（假设为第8行，则将第8行字体颜色为红色），并输出该工作薄的名称（如book1）以及该行的第一个单元格（A8）的值，以及下一行第一个单元格(A9)的值。

联系QQ：543514394，如果需要的话我可以把excel和要求发给您！

不胜感激！

Answer 1

这个不难。你说说找到关键字后，该工作薄的名称以及该行的第一个单元格的值，以及下一行第一个单元格的值怎样输出，是对话框显示还是放在代码的工作表内？

追问

大神，我想把输出的内容都集中在一个excel表格内，我其实主要是想提取这些信息

追答

将附件放在同一文件夹内，打开后在A3:A10输入要查找的字符串按查找按钮即可。

运行前被查找的N个工作簿都要处于关闭状态。

Answer 2

980多个excel工作薄是在同一个文件夹内吧。

追问

是的，大神