求助大家筛选问题

dzzxlbj

如上图  小弟学习初学，请大家帮忙如何将1班的语文成绩自动填在右侧的表格里？先谢谢大家了 筛选.rar (7.12 KB, 下载次数: 8)

2018-7-15 08:11 上传

点击文件名下载附件

daibao88

自己百度一下，高级筛选的用法

lsc900707

数组方法：

1. Sub gj23w98()
   
2.     arr = [a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
4.     For i = 2 To UBound(arr)
   
5.         If InStr(arr(i, 1), "1班") Then
   
6.             m = m + 1
   
7.             For j = 1 To UBound(arr, 2)
   
8.                 brr(m, j) = arr(i, j)
   
9.             Next
   
10.         End If
    
11.     Next
    
12.     If m Then
    
13.         [e1].CurrentRegion.Offset(1).ClearContents
    
14.         [e2].Resize(m, UBound(brr, 2)) = brr
    
15.     End If
    
16. End Sub
    

复制代码

719404338

Sub t()
Dim i%, k%
k = 2
For i = 2 To 41
If Range("a" & i) = " 1班" Then Range("f" & k) = Range("b" & i): k = k + 1
Next i
End Sub

gdszczh

Sub 提取成绩()
Dim rng As Range, n%
n = 1
    For Each rng In Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
        If rng = " 1班" Then
        n = n + 1
        Cells(n, 6) = rng(1, 2)
        End If
    Next
End Sub

dzzxlbj

大神真多     谢谢大家