扫描sheet1列b中的所有值，并且在sheet 2上find的每个值在匹配的每个值旁边插入值？

我试图创build一个脚本，每次打开我的工作簿时，我有几行数据，并在单元格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 

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

即我的文本文件1.txt（减去文件扩展名）所以文件名= 1

表2，b栏

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

然后在一个单元格右边的单元格中find值我想插入一个值“testing”

例如：

 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 

此时代码稍有效果，但仅检查活动单元行的一个值，并且只为单个匹配值插入一个值。 有没有办法，我可以得到这个检查我的行不同的文件夹目录的所有文本文件，并插入值find每个匹配的值旁边？

码：

 Private Sub Workbook_Open() Dim rw As Long, cell As Range rw = ActiveCell.Row With Worksheets("Time Allocation").Columns("B:B") Set cell = .Find(What:=Sheets("Home").Range("AB" & rw).Value, LookIn:=xlFormulas, _ LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False) If Not cell Is Nothing Then cell.Offset(1, 2) = "Test" '<~~the default property is the .Value Else MsgBox "Oooops there was an Error linking Tender reference to Time Allocation Chart." End If End With End Sub 

请有人可以告诉我如何调整我的代码，让它做我所需要的？ 提前致谢