求代码：查找b1单元格内容是否存在在第6行

ziran-juan

附件就不上传了。

我想判断：sheet2中B1单元格的内容，是否在sheet1的第6行出现过（该行的任何单元格），是要求精确查找。
出现过，则提示“出现过”并退出；
没出现，则下一步。

有时候，我觉得老师们的思维、现象能力实在是太强大了，好想是《盗梦空间》里面的情节一样，构造一个arr，然后在arr里面又有brr，brr里面又有（i, 2）……
而一步一步的，条理还是那么的清晰，实在是敬佩！

这个查找的语句麻烦老师们了，我猜，你们都不需要附件的。所以偷了一个小懒，见谅啦！

多谢老师了！

AVEL

你这个用函数就可以了。
=COUNTIF(Sheet1!6:6,B1)
大于1则出现过 等于0则是没有出现

ziran-juan

AVEL 发表于 2012-9-4 19:58
你这个用函数就可以了。
=COUNTIF(Sheet1!6:6,B1)
大于1则出现过 等于0则是没有出现

您知道的，我是打算用在其它代码前面，免去重复操作。

不过，代码里面也可以直接表达这个函数？？

endend1980

我想可以用COUNTIF判断，但应该效率不高，要不就用数组循环一个个对比

ziran-juan

endend1980 发表于 2012-9-4 20:15
我想可以用COUNTIF判断，但应该效率不高，要不就用数组循环一个个对比

不会要这样吧？
用一个辅助单元格a1，里面写这个公式，
然后 IF [a1] > 0 Then ……
那样代码好像就没有什么意义呀

AVEL

1. Option Explicit
   
2. Sub l()
   
3.     Dim r As Range
   
4.     Set r = Sheet1.Rows(6).Find(Sheet2.[b1], LookAt:=xlWhole)
   
5.     If Not r Is Nothing Then MsgBox "有" Else MsgBox "无"
   
6. End Sub

复制代码

endend1980

1. Sub tt1()
   
2. Dim arr, i&
   
3. arr = Sheet1.[a6:iv6]
   
4. For i = 1 To UBound(arr, 2)
   
5.     If arr(1, i) = Sheet2.[b1] Then
   
6.     MsgBox "出现过": Exit Sub
   
7.     Else
   
8.     '下一步
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

这样可以吗

ngnndkkk

1. Sub 查找()
   
2.     Dim theStr$, theCell As Range
   
3.     theStr = Sheet2.Cells(1, 2)
   
4.     If Len(theStr) = 0 Then Exit Sub
   
5.     With Sheet1.Rows(6).Cells
   
6.         Set theCell = .Find(What:=theStr, After:=.Cells(.Count), LookIn:=xlValues, LookAt:= _
   
7.         xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _
   
8.         , MatchByte:=True, SearchFormat:=False)
   
9.         If Not theCell Is Nothing Then
   
10.             MsgBox prompt:="出现过"
    
11.             Exit Sub
    
12.         Else
    
13.             MsgBox prompt:="现在执行下一步了！"
    
14.         End If
    
15.     End With
    
16.     Set theCell = Nothing
    
17. End Sub
    

复制代码

ziran-juan

AVEL 发表于 2012-9-4 20:28

查找出来是没问题了，为什么我吧这一段代码加在您之前导入数据里面会报错？
    这句：rng(2, 1).CopyFromRecordset cnn.Execute(sql)

    Dim r As Range
    Set r = Sheet1.Rows(6).Find(Sheet2.[b1], LookAt:=xlWhole)
    If Not r Is Nothing Then MsgBox "有" :Exit Sub
我加的这3行
之前的帖子：http://club.excelhome.net/thread-915321-1-1.html

AVEL

1. Option Explicit
   
2. Sub l()
   
3.     Dim r As Range
   
4.     Set r = Sheet1.Rows(6).Find(Sheet2.[b1], LookAt:=xlWhole)
   
5.     If Not r Is Nothing Then Exit Sub
   
6.     Dim cnn As Object
   
7.     Dim sql As String
   
8.     Dim rng As Range
   
9.     Set cnn = CreateObject("ADODB.Connection")
   
10.     Set rng = Sheet1.[z6].End(1).Offset(, 1)
    
11.     rng.Value = Sheet2.[b1]
    
12.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=no;';Data Source=" & ThisWorkbook.FullName
    
13.     sql = "select b.f4 from [统计分析表$a7:c60000] a left join [待导入$a3:d60000] b on a.f2=b.f2 and a.f3=b.f3"
    
14.     rng(2, 1).CopyFromRecordset cnn.Execute(sql)
    
15.     cnn.Close
    
16. End Sub
    

复制代码