VBA，在文件名后提取指定的字符串

Question

我有一个上述格式的文件。一些文件名的列表（可以在任何列中），然后几行后将有预期的时间，然后重复更多的文件和另一个预期的时间，

我有当前代码根据我指定的通配符将文件名复制/粘贴到另一个工作表。 （它根据＆＃39; /＆＃39;）

提取所有文件名

我的问题是，如何提取＆＃34; STEP_EXPECTED_TIME＆＃34;以及我在其他工作表中的这些文件。所以A列是我的文件名，B是我的预期时间。我需要将这些链接在一起。

问题是我需要文件名和相应的步骤预期时间。有许多文件分组，预期时间为1。

查找文件名的当前代码：

Sub ExtractFileNames()
    Application.ScreenUpdating = False
    Dim R As Range, c As Range, copyTo As Range
    Dim startCell As String

Set copyTo = Sheets(2).Range("A1")
Set R = Intersect(Sheets(1).UsedRange, Sheets(1).Range("A:D"))

Set c = R.Find("*/*")
If Not c Is Nothing Then
    startCell = c.Address
    Do
        copyTo.Value = c.Value
        Set copyTo = copyTo.Offset(1)
        Set c = R.FindNext(c)
    Loop Until c Is Nothing Or c.Address = startCell
End If
Application.ScreenUpdating = True
End Sub

任何帮助将不胜感激