FIND，FINDNEXT的用法

YZC51

回头再温习下

jsqdlhl

把楼主的代码逐个试了一下，很有收获。

青山雨雾

谢谢大神

ning84

wj2368 发表于 2014-10-10 09:54
你这样能上人看吗，太吃力了
[示例4]为工作表中指定值的单元格填充颜色

1. Private Sub deldeldel()
   
2.    
   
3.     Dim Sht As Worksheet
   
4.         Set Sht = Sheet4
   
5.     Dim Rng As Range, oRng As Range, oRng1 As Range, oRng2 As Range
   
6.         Set Rng = Sht.Range("A1:Z" & Sht.Cells(65536, 1).End(xlUp).Row + 10)
   
7.         'Set oRng = Sht.Range("B5:B" & Sht.Cells(65536, 1).End(xlUp).Row)
   
8.         Set oRng = Sht.Range("F:F")
   
9.         'Debug.Print Rng.Address, oRng.Address
   
10.     Dim Rs As Recordset, Str
    
11.         ''
    
12.         With Sheet2
    
13.             .Cells.Clear
    
14.             .Cells.Font.Size = 9
    
15.         End With
    
16.         ''
    
17.         Str = "Select  文件名,Count(文件名) From [" & Sht.Name & "$" & Rng.Address(0, 0) & "] Group By 文件名 "
    
18.         Str = "Select  文件名,Count(文件名),Count(大小) As Abcd,Count(日期) As bc From [" & Sht.Name & "$" & Rng.Address(0, 0) & "] Group By 文件名 "
    
19.         Str = "Select  文件名 From [" & Sht.Name & "$" & Rng.Address(0, 0) & "] "
    
20.         Str = "Select  文件名,Count(文件名),Count(大小) ,Count(日期)  From [" & Sht.Name & "$" & Rng.Address(0, 0) & "] Group By 文件名 Order By Count(日期) > 1 Desc"
    
21.         Str = "Select  文件名,Count(文件名),Count(日期)  From [" & Sht.Name & "$" & Rng.Address(0, 0) & "]  Group By 文件名 Order By Count(日期)  Desc "            ' "
    
22.             Debug.Print Str
    
23.             Set Rs = SqlRetuRs(Str)
    
24.             Sheet2.Cells(5, "A").CopyFromRecordset Rs
    
25.             Set oRng2 = Sheet1.Cells(5, "A")
    
26.             kk = 0
    
27.             With Rs
    
28.                 .MoveFirst
    
29.                 For ii = 0 To Rs.RecordCount - 1
    
30.                      If .Fields(1) > 0 And .Fields(2) > 0 Then
    
31.                           oRng2(kk, 1) = .Fields(0)
    
32.                           Set oRng1 = oRng.Find(.Fields(0), LookIn:=xlValues)
    
33.                           oRng2(kk, 2) = "=" & oRng.Parent.Name & "!" & oRng1.Address(0, 0)
    
34.                           'Debug.Print oRng1.Address, .Fields(0), oRng1(, 5).Address, oRng1(, 5)
    
35.                           ''
    
36.                           For jj = 2 To .Fields(1)
    
37.                              Set oRng1 = oRng.FindNext(oRng1)
    
38.                              oRng2(kk, 2 + jj - 1) = "=" & oRng.Parent.Name & "!" & oRng1.Address(0, 0)
    
39.                              'Debug.Print oRng1.Address, .Fields(0), oRng1(, 5).Address, oRng1(, 5)
    
40.                           Next jj
    
41.                           kk = kk + 1
    
42.                      End If
    
43.                      .MoveNext
    
44.                 Next ii
    
45.             End With
    
46. End Sub
    
47. 
    
48. 
    
49. 
    
50. 
    

复制代码

mythqiu

学习了。。。