美国博士全额奖学金:多工作表间查找

来源：百度文库 编辑：中财网 时间：2024/05/03 17:46:14

多工作表间查找，请帮忙？

如附件中文件，想通过第一个工作表中的ITEM列，找出在其它工作表中在Part#列中出现的行！
如：工作表1的ITEM为AA,   找到工作表2中有AA的，打上标记就可以了。
Book1.rar (1.49 KB)

Sub FoundItem()
  Dim vCodeNum() As Variant
    Dim lSourceRow As Long
    Dim lSheet2ALastRow As Long
    Dim bTag As Boolean
    Dim i As Long, j As Long
   
    lSourceRow = Sheet7.Range("B65536").End(xlUp).Row '取得这工作表最后一行有数据行号。
    lSheet2ALastRow = Sheet1.Range("D65536").End(xlUp).Row
   
    ReDim vCodeNum(1 To lSourceRow - 1)
    For i = 2 To lSourceRow
        vCodeNum(i - 1) = Sheet7.Range("B" & i) '把要查找的值传给数组
    Next
   
    For i = 2 To lSheet2ALastRow
        bTag = True
        For j = 1 To lSourceRow - 1
            If Sheet1.Range("D" & i) = vCodeNum(j) Then
                Sheet1.Range("D" & i).Offset(0, -3).Value = "B" & j + 1
                bTag = False
            End If
        Next
        If bTag Then
            Sheet1.Range("D" & i).Offset(0, 5).Value = "无"
        End If
    Next
End Sub
找到一段以上代码应该可以。但是我的工作表数是好几个想把这一段中的被查找工作表用变量代入（sheet1用变量）,应该要知道两个相关属性，一个是工作表数，还有一个是工作表名。
For i = 2 To lSheet2ALastRow
        bTag = True
        For j = 1 To lSourceRow - 1
            If Sheet1.Range("D" & i) = vCodeNum(j) Then
                Sheet1.Range("D" & i).Offset(0, -3).Value = "B" & j + 1
                bTag = False
            End If
        Next
        If bTag Then
            Sheet1.Range("D" & i).Offset(0, 5).Value = "无"
        End If
    Next
excel2003 工作表查找小问题 如何在一个多个工作表的EXCEL表格中快速查找 怎样查找居委会工作内容 如何在同一工作簿里查找不同的工作表? 以前查找时每个工作表依次点击就可以现在得先关查找栏再查为什么？ 索引表查找编程 不是骗人的！在网上查找兼职工作的网站？ 请问在OFFICE2000中怎样可以查找整个工作簿 游戏类工作要在什么网站查找 C语言，静态查找表 求二维表查找程序？ 在那个网站查找 ：论科技强警与公安信息化工作的文章，怎么找？ 急需查找《中国科技期刊引证报告(1998年版)》分类表，请多帮忙，谢谢！ 我想一次从excel表中查找多个人的信息,怎么做呢？ 如何一次从excel表中查找多个人的信息呢？ 如何在线查找宽带网已用时间 keil 在多个文件中查找 如何在多个文件中查找? 请在大型图书馆工作的朋友帮助一下，查找1994年以前的过刊，并且要外借！！ 请问保定在7月到9月之间有要大学实习生的地方吗？可以到哪去查找工作 在数据库中查找一个表的sql语句是什么 在VFP中什么表能用二分法进行查找? 请求帮助查找《危险货物品名表》（GB12268）； 有关哈希查找的问题 Hash表的设计