excel中检出多个sheet页想首列内容相同

工具简述：sheet1为总的文件清单，后面的为各个需求清单，若清单在多个页面存在，则会在sheet1页标志出来。

Sub check()

　　'定义文件清单工作表对象

　　Dim fileList As Worksheet

　　'定义文件清单数量

　　Dim fileNum As Integer

　　'定义文件清单列数

　　Dim fileListColNum As Integer

　　'定义文件清单文件名称

　　Dim fileName As String

　　'定义工作薄工作表数目

　　Dim sheetNum As Integer

 

　　'定义需求文件清单工作表对象

　　Dim requestFileList As Worksheet

　　'定义需求名称

　　Dim requestName As String

　　'定义需求文件清单数量

　　Dim requestFileNum As Integer

　　'定义需求文件清单文件名称

　　Dim requestFileName As String

 

　　'赋值文件清单相关变量

　　Set fileList = Sheets(1)

　　fileNum = fileList.UsedRange.Cells.rows.Count

　　fileListColNum = fileList.UsedRange.Cells.Columns.Count

 

　　'清空检查结果

　　fileList.Range(Cells(1, 2), Cells(fileNum, fileListColNum)) = ""

　　fileList.Cells(1, 2) = "关联需求数"

　　'遍历工作薄工作表

　　sheetNum = Sheets.Count

　　For i = 2 To sheetNum

　　'赋值工作表

　　Set requestFileList = Sheets(i)

　　'赋值工作表名称

　　requestName = requestFileList.Name

　　fileList.UsedRange.Cells(1, i + 1) = requestName

 

　　'遍历需求文件清单

　　requestFileNum = requestFileList.UsedRange.Cells.rows.Count

　　For j = 1 To requestFileNum

    　　'赋值需求文件名称

   　　 requestFileName = requestFileList.UsedRange.Cells(j, 1)

    　　'遍历文件清单进行比较

    　　For k = 1 To fileNum

        　　'赋值文件名称

        　　fileName = fileList.UsedRange.Cells(k, 1)

       　　 '比较文件名称是否相同

        　　If requestFileName = fileName Then

           　　fileList.UsedRange.Cells(k, i + 1) = "√"

            　　fileList.UsedRange.Cells(k, 2) = fileList.UsedRange.Cells(k, 2) + 1

        　　End If

   　　 　Next

　　Next

　Next

End Sub