梦回唐朝网盘下载:多工作表间查找
来源:百度文库 编辑:偶看新闻 时间:2024/09/21 09:04:44
多工作表间查找,请帮忙?
如附件中文件,想通过第一个工作表中的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表的设计