从另一个表中查找的符合条件单元格的求助。

云海拾贝

szwzq 发表于 2013-2-24 20:37
分布与分布2格式一样的吧

分布和分布（2）行不一样，列一样如何修改？

云海拾贝

zhaogang1960 发表于 2013-2-24 21:23
请注意，这时输出的是分布 (2)A列数据

赵老师：测试后不能使用。

zhaogang1960

云海拾贝 发表于 2013-2-24 21:56
赵老师：测试后不能使用。

修改一下，把查到的所有字段全部复制到A：F列：

1. Sub ADO()
   
2.     Dim cnn As Object, SQL$, SQL1$, c As Range
   
3.     Set c = Sheets("分布 (2)").[b2:f2].Find([i3], , , 1)
   
4.     If c Is Nothing Then
   
5.         MsgBox "该课程不存在，请重新输入！", vbInformation
   
6.         Exit Sub
   
7.     End If
   
8.     Set cnn = CreateObject("ADODB.Connection")
   
9.     cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName
   
10.     SQL = "select * from [分布 (2)$a3:f] where f" & c.Column & "='" & [S3] & "'"
    
11.     [a11:v65536].ClearContents
    
12.     [a11].CopyFromRecordset cnn.Execute(SQL)
    
13.     cnn.Close
    
14.     Set cnn = Nothing
    
15. End Sub
    

复制代码

zhaogang1960

请看附件
查找2.rar (11.4 KB, 下载次数: 26)

2013-2-24 22:02 上传

点击文件名下载附件

云海拾贝

zhaogang1960 发表于 2013-2-24 22:01
修改一下，把查到的所有字段全部复制到A：F列：

执行宏后，没有什么反应？

zhaogang1960

云海拾贝 发表于 2013-2-24 22:09
执行宏后，没有什么反应？

云海拾贝

是本人操作问题，虽然不是我想要的结果，非常感谢赵老师！

byhyxb

学习工作簿内查找，谢谢......

szwzq

1. Sub t()
   
2.     Dim d As Object, d1 As Object, i%, j%, ar, br
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Set d1 = CreateObject("scripting.dictionary")
   
5.     ar = Sheets("分布").[a1].CurrentRegion
   
6.     br = Sheets("分布 (2)").[a1].CurrentRegion
   
7.     For i = 3 To UBound(ar)
   
8.         For j = 2 To UBound(ar, 2)
   
9.             d(ar(i, 1) & "|" & ar(2, j)) = ar(i, j)
   
10.         Next
    
11.     Next
    
12.     For i = 3 To UBound(br)
    
13.         For j = 2 To UBound(br, 2)
    
14.             d1(br(i, 1) & "|" & br(2, j)) = br(i, j)
    
15.         Next
    
16.     Next
    
17.     With Sheets("汇总")
    
18.         m = .[d3]: s = .[i3]
    
19.         ar = .Range("a11", .[a65536].End(3))
    
20.         For i = 1 To UBound(ar)
    
21.             ar(i, 1) = d(ar(i, 1) & "|" & s)
    
22.         Next
    
23.         .[v11].Resize(UBound(ar)) = ar
    
24.         .[s3] = d1(m & "|" & s)
    
25.     End With
    
26. End Sub

复制代码