VBA从入门到精通

汉唐

不错，谢谢分享

tyler1985

VBA控件属性大全

mythqiu

收藏，记号

xkzb

谢谢，收下

tyler1985

怎么进一步提升VBA编程能力，有没有好的建议或意见？

aails6543

谢谢分享。
有用没用另说。

你地铁图

感谢分享,,,,,,

ning84

1. Private Sub del3()
   
2.     Dim Rng As Range, oRng As Range
   
3.     Dim Rng1 As Range, Rng2 As Range
   
4.     Dim Row As Integer
   
5.     Dim Str
   
6.         Row = 5
   
7.         Set Rng = Sheet3.Cells(6, "I").CurrentRegion
   
8.         'Set oRng = Rng
   
9.         'Debug.Print Rng.Address, Rng
   
10.         
    
11.         For ii = 1 To Rng.Rows.Count
    
12.            
    
13.            With Sheet3
    
14.                 Set oRng = .Range(.Cells(Rng.Row + Rng.Rows.Count + 3, 1), .Cells(.Cells(56659, 1).End(xlUp).Row, 1))
    
15.                 Set Rng1 = oRng.Find(Rng(ii, 1)).CurrentRegion
    
16.                 'Debug.Print Rng1.Address,
    
17.                 Set Rng2 = Rng1(3, 1).Resize(Rng1.Rows.Count - 2, 1)
    
18.                 Str = "=" '& Rng2.Address(0, 0)
    
19.                 For jj = 0 To 7
    
20.                      Str = Str & Rng2(, jj * 8 + 1).Resize(Rng2.Rows.Count, 1).Address(0, 0) & ","
    
21.                 Next jj
    
22.                 Str = Left(Str, Len(Str) - 1)
    
23.                 'Debug.Print Str
    
24.                 .Cells(Row + ii, 1).Formula = Str ' "=" & Str
    
25.                 Set Rng1 = .Range(Str)
    
26.                 Rng1.Select
    
27.                 'Stop
    
28.            End With
    
29.         Next ii
    
30.         'Stop
    
31. End Sub
    

复制代码