VBA代码帮忙写写，写写老师

tengyt

P1输入a或b，
判断Sheet1工作表P列P8开始是a的，并把它前面A到O整行数据复制到Sheet2表中，也是第8行开始
代码怎么写，谢谢老师帮忙
A到O数据有几千上万条

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim rng As Range
   
5.   With Worksheets("sheet1")
   
6.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.     arr = .Range("p1:p" & r)
   
8.     For i = 8 To UBound(arr)
   
9.       If arr(i, 1) = arr(1, 1) Then
   
10.         If rng Is Nothing Then
    
11.           Set rng = .Cells(i, 1).Resize(1, 15)
    
12.         Else
    
13.           Set rng = Union(rng, .Cells(i, 1).Resize(1, 15))
    
14.         End If
    
15.       End If
    
16.     Next
    
17.   End With
    
18.   With Worksheets("sheet2")
    
19.     .Range("a8:o" & .Rows.Count).ClearContents
    
20.     rng.Copy .Range("a8")
    
21.   End With
    
22. End Sub
    

复制代码

chxw68

详见附件。