[已解决]（求助）如何查询表2中的数据？

晓敏 · 发表于 2012-11-8 07:55

如附件

查询Sheet2里有效数据.rar (29.66 KB, 下载次数: 10)

‖纯属胡闹。 · 发表于 2012-11-8 08:06

下载下来看看先{:3912:}

wp8680 · 发表于 2012-11-8 10:19

Sub 搜列()
Dim a As Integer, b As Integer, c As Integer
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("sheet1")
Set s2 = Sheets("sheet2")
For a = 1 To s2.Range("A1").SpecialCells(xlLastCell).Row Step 7
For b = 1 To s2.Range("A1").SpecialCells(xlLastCell).Column
If s1.Range("A1") = s2.Cells(a, b) And s1.Range("B1") = s2.Cells(a + 1, b) And s1.Range("C1") = s2.Cells(a + 2, b) And s1.Range("D1") = s2.Cells(a + 3, b) And s1.Range("E1") = s2.Cells(a + 4, b) Then
c = c + 1
s1.Cells(4, c).Value = s2.Cells(a, b).Address
End If
Next b
Next a
End Sub

复制代码

wp8680 · 发表于 2012-11-8 10:26

查询Sheet2里有效数据.rar (30.29 KB, 下载次数: 17)

		自动登录	找回密码
密码			注册