大师们帮忙看看怎么写代码

wangxfei

想用宏编写一个条件循环语句，一直写不好，请大师们帮帮忙。内容见附件。谢谢了。
简单说明：有列数字，以其中一个单元格数字为基础向上查找三行，如果这个数字在上面某一行中包含，则在对应行后面的单元格填0，否则填1；同时，以此行的某个单元格继续向上查找。

大灰狼1976

贴子内容与文件内说明不一致。按照你发贴内容做了一下，附件请参考。

1. Private Sub CommandButton1_Click()
   
2. Dim arr, brr, i&, j&, k&
   
3. arr = [a1].CurrentRegion
   
4. ReDim brr(1 To UBound(arr) - 1, 1 To 1)
   
5. For i = UBound(arr) To 5 Step -1
   
6.   For k = i - 1 To i - 3 Step -1
   
7.     For j = 2 To 3
   
8.       If arr(i, 3) = arr(k, j) Then Exit For
   
9.     Next j
   
10.     If j < 4 Then Exit For
    
11.   Next k
    
12.   If i - k = 4 Then brr(i - 1, 1) = 1 Else brr(i - 1, 1) = 0
    
13. Next i
    
14. [f2].Resize(UBound(brr)) = brr
    
15. End Sub

复制代码

wangxfei

谢谢，先学习看看。