紧急求助，附件已更新

2156158119

自己顶一下~~~~~

2156158119

自己再来一个………

酷似内涵

2156158119 发表于 2018-10-13 21:19
自己再来一个………

1. Sub ad()
   
2.     a = CLng(Sheet1.[m1].Value)
   
3.     b = CLng(Sheet1.[m2].Value)
   
4.     d1 = 5: e1 = 1: k1 = 0
   
5.     d2 = 5: e2 = 1: k2 = 0
   
6.    
   
7.    
   
8.     arr = Sheet1.UsedRange
   
9.    
   
10.     For i = 3 To UBound(arr)
    
11.         If CLng(arr(i, 2)) <= b And CLng(arr(i, 2)) >= a And arr(i, 3) Like "铁" Then
    
12.             k1 = k1 + 1
    
13.             If k1 > 11 Then d1 = 5: e1 = 6
    
14.             Sheet1.Range("d" & i & ":H" & i).Copy Sheets("铁1").Cells(d1, e1):   d1 = d1 + 1
    
15.         ElseIf CLng(arr(i, 2)) <= b And CLng(arr(i, 2)) >= a Then
    
16.             k2 = k2 + 1
    
17.             If k2 > 11 Then d2 = 5: e2 = 6
    
18.             Sheet1.Range("d" & i & ":H" & i).Copy Sheets("其他1").Cells(d2, e2):   d2 = d2 + 1
    
19.             
    
20.             
    
21.         End If
    
22.         
    
23.     Next i
    
24.    
    
25.    
    
26.    
    
27. End Sub
    

复制代码

你说你要不要给我发个红包，给几根烟钱吧