分数管理求助代码

1吧吧

分数管理求助代码

ynzsvt

如果两个表格有相同的标题，可以用高级筛选完成的，也可以高级筛选对应的代码（录制即得）。

dragonthree

仅仅就是排序吗？

ykcbf1100

参与一下。。。

Yalishanda30

其实用公式也行，你要代码也可以

ykcbf1100

参与一下，数据提取。。。

1. Sub ykcbf()    '//2024.7.15
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("Sheet1")
   
5.         r = .Cells(Rows.Count, 2).End(3).Row
   
6.         arr = .[b1].Resize(r, 2)
   
7.     End With
   
8.     ReDim brr(1 To UBound(arr), 1 To 2)
   
9.     For i = 1 To UBound(arr)
   
10.         If arr(i, 2) >= 60 Then
    
11.             m = m + 1
    
12.             brr(m, 1) = arr(i, 1)
    
13.             brr(m, 2) = arr(i, 2)
    
14.         End If
    
15.     Next
    
16.     With Sheets("Sheet2")
    
17.         .UsedRange = ""
    
18.         .[b1].Resize(m, 2) = brr
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "OK！"
    
22. End Sub
    

复制代码

ykcbf1100

Yalishanda30 发表于 2024-7-15 09:32
其实用公式也行，你要代码也可以

好久不见。

longwin

Sub test()
    arr = Sheet1.Range("B1:C" & Sheet1.[c1].End(xlDown).Row)
    ReDim brr(1 To UBound(arr), 1 To 2)
    For i = 1 To UBound(arr)
        If arr(i, 2) >= 60 Then
            m = m + 1
            brr(m, 1) = arr(i, 1)
            brr(m, 2) = arr(i, 2)
        End If
    Next
    Sheet2.[b1].Resize(m, 2) = brr
End Sub

yes_cn

在A2单元格中输入以下数组公式
=IFERROR(INDEX(Sheet1!$B$1:$B$100, SMALL(IF(Sheet1!$C$1:$C$100>=60, ROW(Sheet1!$C$1:$C$100)), ROW(1:1))), "")


在B2单元格中输入以下数组公式
=IFERROR(INDEX(Sheet1!$C$1:$C$100, SMALL(IF(Sheet1!$C$1:$C$100>=60, ROW(Sheet1!$C$1:$C$100)), ROW(1:1))), "")


输入后按Ctrl+Shift+Enter

kyxfyzg

Sub ss()
For i = 1 To Sheet1.Range("b" & Rows.Count).End(3).Row
    If Sheet1.Range("C" & i) >= 60 Then
        j = j + 1
        Sheet2.Range("b" & j) = Sheet1.Range("b" & i)
        Sheet2.Range("c" & j) = Sheet1.Range("c" & i)
    End If
Next
End Sub