求助:

czr0373

求助：根据DEFG列表，让AB列表里面的B列充黄色部分为0

即当G列=坏时，判断A列是否在E2,F2之间，是否在E3,F3之间

……

然后让B4:B7为0，B12:B18为0

lsc900707

有时间看看附件的要求再说。

czr0373

谁来协助一把，不胜感激！！！

liulang0808

1. Sub 按钮1_Click()
   
2.     Dim brr()
   
3.     a = 2
   
4.     arr = ActiveSheet.UsedRange
   
5.     For j = 2 To UBound(arr)
   
6.         If arr(j, 7) = "坏" Then
   
7.             ReDim Preserve brr(1 To a)
   
8.             brr(a - 1) = arr(j, 5)
   
9.             brr(a) = arr(j, 6)
   
10.             a = a + 2
    
11.         End If
    
12.     Next j
    
13.     For j = 2 To UBound(arr)
    
14.         For i = 1 To UBound(brr) Step 2
    
15. 
    
16.             If Val(arr(j, 1)) >= Val(brr(i)) And Val(arr(j, 1)) <= Val(brr(i + 1)) Then
    
17.                 arr(j, 2) = 0
    
18.                 Exit For
    
19.             End If
    
20.         Next i
    
21.     Next j
    
22.     ActiveSheet.UsedRange = arr
    
23. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

iwangyi

Sub CC()
n = [A65536].End(3).Row
m = [g65536].End(3).Row
For Each rg In Range("g2:g" & m)
If rg = "坏" Then
For Each Rng In Range("a2:a" & n)
If Rng >= rg.Offset(, -2) And Rng <= rg.Offset(, -1) Then
Rng.Offset(, 1) = 0
End If
Next
End If
Next
End Sub

iwangyi

附件********