For Each-Next语句_别怕，Excel VBA其实很简单08

天涯诗酒客

ning84

用好for each next比for  next使用效果好。

1. Private Sub deldeldel()
   
2.     Dim Rng As Range, Rng1 As Range, Rng2 As Range
   
3.     Dim oRng As Range
   
4.         Dim Str, Str1, Str2
   
5.         Dim Rr, Rr1
   
6.         Set Rng = Range(Cells(3, 2).Formula)
   
7.         Set Rng1 = Rng.Areas(1)
   
8.         Set Rng2 = Rng.Areas(2)
   
9.         For Each Rng1 In Rng.Areas(1)
   
10.             Rr = 1
    
11.             Debug.Print Rng1.Address, Rng1(2, 1).Address
    
12.             
    
13.             For Each Rng2 In Rng.Areas(2)
    
14.                  'Debug.Print Rng1, Rng2, Rng1 = Rng2
    
15.                  Str = Application.WorksheetFunction.Ceiling(Rng2, 5 / 1440)
    
16.                  If Round(Rng1, 5) = Round(Str, 5) Then
    
17.                      If Rr = 1 Then
    
18.                          Set oRng = Rng2
    
19.                      Else
    
20.                          Set oRng = Union(oRng, Rng2)
    
21.                      End If
    
22.                      'Debug.Print Format(Rng1, "hh:mm"), Format(Str, "hh:mm"), Rng1.Address, Rng2.Address, oRng.Address
    
23.                      Rr = Rr + 1
    
24.                  End If
    
25.             Next Rng2
    
26.             If Not oRng Is Nothing Then
    
27.                 Debug.Print oRng.Address
    
28.                 Rng1(, 3) = "=" & oRng.Address(0, 0)
    
29.                 Rng1(, 2) = oRng.Rows.Count
    
30.                 oRng.Select
    
31.             End If
    
32.         Next Rng1
    
33.       
    
34.         
    
35.         
    
36. End Sub
    

复制代码