求大师们给加个VBA代码

本帖最后由 发才之路 于 2022-12-20 20:27 编辑
求大师们给加个跟随VBA代码，统计VBA代码
Sub rr()
aa = Range("b65536").End(xlUp).Row
Range("i2:o65536") = Empty
Range("i2:o" & aa).Interior.ColorIndex = 0
c = Application.CountA(Range("q2:w2"))
m = 2
For i = 2 To Range("b65536").End(xlUp).Row
  For j = 17 To 22
     If Application.CountIf(Range(Cells(i, 2), (Cells(i, 7))), Cells(2, j)) > 0 Then n = n + 1
  Next
  If n = c Then
  Range(Cells(m, 9), Cells(m, 15)) = Range(Cells(i, 1), Cells(i, 7)).Value
  m = m + 1
  End If
  n = 0
Next
For k = 2 To Range("j65536").End(xlUp).Row
  For q = 10 To 15
     If Application.CountIf(Range(Cells(2, 17), (Cells(2, 22))), Cells(k, q)) > 0 Then
     Cells(k, q).Interior.ColorIndex = 3
     End If
  Next
Next
[a1] = Application.CountA(Range("b2:b3000")) & "期": [b1] = "历史奖号"
[j1] = "查询结果": [i1] = Application.CountA(Range("j2:j3000")) & "次"
[q1] = "查询号码"
End Sub