UC知道EXCEL函数DGET
来源：百度知道 编辑：UC知道 时间：2024/06/18 06:51:07
用DGET查找数据库,如何实现自动输出重复条件的单元格行号?(希望你能上传表格)
例:
数据库:SHEET1的A1:G10000
返回:1 2 3 4 5 6 7
查找条件:SHEET2的A1:D2
现SHEET1的A1:G10000中出现三行符合查找条件的相同项,请问如何实现自动输出?
如果函数不能解决以上问题,请帮忙编个VB!谢谢各位
例:
数据库:SHEET1的A1:G10000
返回:1 2 3 4 5 6 7
查找条件:SHEET2的A1:D2
现SHEET1的A1:G10000中出现三行符合查找条件的相同项,请问如何实现自动输出?
如果函数不能解决以上问题,请帮忙编个VB!谢谢各位
Public Sub BSKD()
Set r = Worksheets("sheet1").Range("A:D")
Set s = Worksheets("SHEET2").Range("A:D")
y = WorksheetFunction.CountA(Worksheets("sheet1").Range("D:D"))
z = WorksheetFunction.CountA(Worksheets("SHEET2").Range("D:D"))
k = 2
For n = 2 To y
mn = 0
For m = 2 To z
If r(n, 7) = s(m, 7) Then
If r(n, 8) = s(m, 8) Then
If r(n, 9) = s(m, 9) Then
If r(n, 10) = s(m, 10) Then
If r(n, 11) = s(m, 11) Then
If r(n, 12) = s(m, 12) Then
If r(n, 13) = s(m, 13) Then
If mn = 0 Then
r(k, 14) = r(n, 7)
k = k
mn = 1
End If
For i = 2 To 158
r(k, i + 12) = s(m, i)
Next i
k = k + 1
End If
End If
End If
End If
End If
End If
End If
Next m
Next n
End Sub
判断查找重复条件并复制输出