求教VBA查询

电锯小熊

1. Dim aa As String '字符型
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. Application.ScreenUpdating = False '禁止屏幕更新
   
4. b = [c65536].End(xlUp).Row
   
5. If b < 3 Then b = 3
   
6. Sheets("2").Range(Cells(3, 1), Cells(b, 11)).ClearContents '先清除查询区域
   
7. s = Sheets("1").Range("j1") '数量(使用COUNTA确定数据记录行数）
   
8. aa = Range("b1") '要查询的号码（完整或前几位）
   
9. x1 = 3 '从第三行开始
   
10. For x = 3 To s + 3
    
11. n = Len(aa)
    
12. w = Sheets("1").Cells(x, 3) '从表1中取一个C列号码赋值给变量w
    
13.     If Len(w) >= n And Left(w, n) = aa Then '判断这个号码是否与要检索的相符
    
14.       For j = 1 To 10
    
15.         Cells(x1, j) = Sheets("1").Cells(x, j) '将相符号码的相关内容提取出来
    
16.       Next j
    
17.       x1 = x1 + 1
    
18.     End If
    
19. Next
    
20. Range("b1").Select
    
21. Application.ScreenUpdating = True '允许屏幕更新
    
22. End Sub

复制代码

不好意思 重新上传

1091126096

看看这个                                         

电锯小熊

555 没人解答啊。顶一下。

1091126096

电锯小熊 发表于 2012-5-25 15:14
555 没人解答啊。顶一下。

我在上面有个附件。前面还有多人有解答。