关于VBA批处理的问题

使用 foresail 引用 wMicrosoft Scription Runtime

子 stat（）。

dim i as integer

dim zname as string, zpath as string

总结"for i = 1 to

falsebook"随机勃起。

do until = 1

sheets(2).delete

truewindows("总结").activatesheets(i).select

zpath = d:\"a2]

zname = sheets(i).namecolumns("a:iv").copy

windows("book"状态腐烂）。activaterange("a1").select

zmdir zpath

chdir "d:"

filename:=zpath & zname & xls", fileformat:=xlnormal

存档文件"d:\", zpath, falsenext i

end sub

sub zmdir(zpath as string)dim fso as new

zpath) '创建文件夹。

set fso = nothing

end sub

有很多牛人，比如一楼。 呵呵。

3. 所有最完整的方法均可参考附件。

简单说说原理：就是将A文件复制到A1单元格中，然后将B文件中的单词粘贴到B列中（每个单词一行），最后在C列中输入公式，确定B列中的单词是否出现在A1列中，如果是，则会显示位置号， 然后使用“format”-“conditional formatting”进行设置，只要C列的值大于1，就会被标记为与B列对应的红色。 这将达到您想要的结果。

当然，上面这个有点粗糙，如果你想自动化一点，也可以用VBA写，只是你给这个分数太低了。

VBA 原则也是如此，分别打开 A 和 B 文件，将所有 A 读入 A1，通过字行将 B 文件读入 B 列，将公式插入到 C 列中，并为 B 列设置条件格式。