[已解决]多条件多值应用vba

zhu918918

按附件给出的条件、要求，如何写代码。请老师们帮忙，谢谢老师！
我弄了好久不得结果。

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-10 13:01

1. Sub Macro1()
   
2. Dim arr, brr, i&, j&
   
3. arr = [b10:b12]
   
4. brr = Range("aa2:aa" & Cells(Rows.Count, "aa").End(xlUp).Row)
   
5. For i = 1 To UBound(arr)
   
6.     For j = 1 To UBound(brr)
   
7.         If brr(j, 1) = "" Then GoTo line1
   
8.         If brr(j, 1) Mod 4 = arr(i, 1) Then brr(j, 1) = ""
   
9. line1:
   
10.     Next
    
11. Next
    
12. Range("ab2").Resize(UBound(brr)) = brr
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

zhu918918

有谁会，请帮一下啊。

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&, j&
   
3. arr = [b10:b12]
   
4. brr = Range("aa2:aa" & Cells(Rows.Count, "aa").End(xlUp).Row)
   
5. For i = 1 To UBound(arr)
   
6.     For j = 1 To UBound(brr)
   
7.         If brr(j, 1) = "" Then GoTo line1
   
8.         If brr(j, 1) Mod 4 = arr(i, 1) Then brr(j, 1) = ""
   
9. line1:
   
10.     Next
    
11. Next
    
12. Range("ab2").Resize(UBound(brr)) = brr
    
13. End Sub
    

复制代码

dsmch

………………

zhu918918

dsmch 发表于 2014-3-10 13:03
………………

谢谢dsmch老师，问题已解决。