VBA 统计文件（规则:'\'以后的文件名）

说明：

1第一个sheet名为Sheet1,第二个名为step
2两个sheet相比较，如果相同，将step的第五列，放到Sheet1的第二列

Sub countStep()'' countStep Macro'' Keyboard Shortcut: Ctrl+Shift+TDim sheetYCnt As IntegerDim stepYCnt As IntegerDim sheetName As StringDim stepName As StringsheetName = "Sheet1" 'result page namestepName = "step" 'result from page namesheetYCnt = Worksheets(sheetName).UsedRange.Rows.CountstepYCnt = Worksheets(stepName).UsedRange.Rows.CountFor i = 1 To sheetYCnt    Dim fileName As String    ' read column 1 of result page    fileName = Worksheets(sheetName).Cells(i, 1).Value    For j = 1 To stepYCnt        Dim fullName As String        Dim lastWord As String        Dim index As Integer                fullName = Worksheets(stepName).Cells(j, 1).Value ' read column 1 of result from page        'substr String from last '\' to end        index = InStrRev(fullName, "\")        lastWord = Mid(fullName, index + 1)                If fileName = lastWord Then            ' column 5 (result from page )-> column 1 (result page)            Worksheets(sheetName).Cells(i, 2).Value = Worksheets(stepName).Cells(j, 5).Value                    End If    NextNextMsgBox "End"End Sub