求老师帮忙用VBV写一个循环判断查询的代码

JIUYINI

求助老师帮忙用
      VBA写一个循环判断的代码。
      例如：以排序工作表E5单元格（166期44）开始向下查询，判断E4:E2单元格中的数据是否和E5单元格（166期44）相同，如果相同就向下一个单元格E6继续查找，如果不同就复制E5:G5单元格中的数据粘贴到，公式精选工作表中，粘贴位置从B2开始。
      这样循环查找粘贴到M1（15条）单元格中的数据时结束，这里的数据不是固定的。  

titi012

蒙一个，不知道是不是这个要求。。。

1. Sub test1()
   
2.     Dim Arr, Brr(), x&, y&, i&, j&, xBoo As Boolean
   
3.     Arr = Sheets("排序").Range("a1").CurrentRegion
   
4.     With Sheets("公式精选")
   
5.         i = .[m1]: j = 0
   
6.         ReDim Brr(1 To i, 1 To 7)
   
7.         For x = 5 To UBound(Arr)
   
8.             xBoo = True
   
9.             For y = x - 3 To x - 1
   
10.                 If Arr(y, 5) Like Arr(x, 5) Then xBoo = False
    
11.             Next y
    
12.             If xBoo Then
    
13.                 j = j + 1
    
14.                 Brr(j, 1) = j
    
15.                 For y = 2 To 7
    
16.                     Brr(j, y) = Arr(x, y)
    
17.                 Next y
    
18.                 If j = i Then Exit For
    
19.             End If
    
20.         Next x
    
21.         .Range("a2").Resize(j, 7) = Brr
    
22.     End With
    
23. End Sub

复制代码

JIUYINI

titi012 发表于 2024-6-18 09:39
蒙一个，不知道是不是这个要求。。。

老师你好，我测试了一下，复制过来的好像有重复的数据