[已解决]VBA逐一查找指定表里的数据所在另一XLS文件的工作表的位置，返回工作表名称！

斗笠渔翁

收藏，学习。

jiangbo0505

下载学习         

sghgdiq

来学习下哈。感谢啊

ltwj402

学习下

zaalex

Sub test()
Dim wb As Workbook, sht As Worksheet
Set wb = Workbooks.Open("C:\Users\Administrator\Downloads\2.xls")
For i = 2 To ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row
    k = 0
    For j = 1 To wb.Sheets.Count
        If Not wb.Sheets(j).Cells.Find(ThisWorkbook.Sheets(1).Range("a" & i)) Is Nothing Then
            k = k + 1
            ThisWorkbook.Sheets(1).Range("b" & i) = wb.Sheets(j).Name
            If k = Application.WorksheetFunction.CountIf(ThisWorkbook.Sheets(1).Range("a2:a" & i), ThisWorkbook.Sheets(1).Range("a" & i)) Then
                Exit For
            End If
        End If
    Next
Next
wb.Close
End Sub

zaalex

zaalex 发表于 2021-10-10 10:57
Sub test()
Dim wb As Workbook, sht As Worksheet
Set wb = Workbooks.Open("C:%users\Administrator\Do ...

蓝色幻想的太复杂了 还用数组了。。