Excel 扫描第1页b列中的所有值，并在第2页中找到的每个值旁边插入匹配值？

我试图创建一个脚本，它将在每次打开工作簿时运行，我有几行数据，在每行的单元格D、E和H中，我有唯一的值，每行的值共同构成一个文件目录

               Cell D:      Cell E:    Cell H:
Row 1          Folder1      A          1
Row 2          Folder2      B          2
Row 3          Folder3      C          3

例如，第1行的文件目录为：

"C:\" & Range("D1").Value & "\" & Range("E1").Value & "\" Range("H1").Value & "\"

这就是

C:\Folder1\A\1\

每个目录中都有一个文本文件，其名称与每行H列中的值相同，例如：

C:\Folder1\A\1\1.txt

Sheet 1 column E values:

1.txt 'Minus extension

Sheet 2 column b values

Column B         Column C

1 'Next Cell >'  Test
2 'Value not found so ignored
5 'Value not found so ignored

我希望我的代码扫描sheet1上每个行的每个单独文件夹目录，并检查sheet2上的b列中是否存在文本文件名值

i、 e.我的文本文件1.txt（减去文件扩展名），因此filename=1

第2页，b栏

1<与第1页第1行目录中的文件名匹配

然后在找到值的单元格右侧的一个单元格中，我想插入一个值“test”

例如：

C:\Folder1\A\1\1.txt

Sheet 1 column E values:

1.txt 'Minus extension

Sheet 2 column b values

Column B         Column C

1 'Next Cell >'  Test
2 'Value not found so ignored
5 'Value not found so ignored

此时，代码稍微起作用，但只检查活动单元格行的一个值，并且只为单个匹配值插入一个值。是否有一种方法可以让我检查所有文本文件中的行和不同的文件夹目录，并在找到的每个匹配值旁边插入值

代码：

Private子工作簿\u Open（）
变暗rw为长，单元格为范围
rw=ActiveCell.Row
带有工作表（“时间分配”）。列（“B:B”）
设置单元格=.Find（What:=Sheets（“Home”）.Range（“AB”）和rw.Value，LookIn:=xlFormulas_
LookAt:=xlother，MatchCase:=False，SearchFormat:=False）
如果不是的话，那细胞就什么都不是了
单元偏移量（1，2）=“测试”'