修改成绩后保存

kangyunde

Sub aaaa()
a = Range("A2")
Range("A4:D9").Copy
Sheets("成绩汇总").Activate
arr = [A4].CurrentRegion
For i = 4 To UBound(arr)
If arr(i, 1) = a Then Cells(i, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False: Exit For
Next
Exit Sub
End Sub

ykcbf1100

这个用字典比较好解决。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.5.28
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("成绩登记")
   
6.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
7.         arr = .[a1].Resize(r, 4)
   
8.     End With
   
9.     For i = 4 To UBound(arr)
   
10.         s = arr(i, 1) & "|" & arr(i, 2)
    
11.         d(s) = arr(i, 4)
    
12.     Next
    
13.     With Sheets("成绩汇总")
    
14.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
    
15.         arr = .[a1].Resize(r, 4)
    
16.         For i = 4 To UBound(arr)
    
17.             s = arr(i, 1) & "|" & arr(i, 2)
    
18.             If d.Exists(s) Then
    
19.                 arr(i, 4) = d(s)
    
20.             End If
    
21.         Next
    
22.         .[a1].Resize(r, 4) = arr
    
23.     End With
    
24.     Set d = Nothing
    
25.     Application.ScreenUpdating = True
    
26.     MsgBox "OK！"
    
27. End Sub
    

复制代码

kangyunde

这个不能直观看出是复制A4:D9   Range("A4:D9").Copy

LIUZHU

这个表这样设计比较费时，按钮的作用应该只是新增人员，成绩汇总应该用公式获取成绩登记中的数据，以便成绩登记表发生改变时，成绩汇总表也能实时改动。

kangyunde

LIUZHU 发表于 2024-5-28 12:42
这个表这样设计比较费时，按钮的作用应该只是新增人员，成绩汇总应该用公式获取成绩登记中的数据，以便成绩 ...

新增很好解决，主要是有时录错成绩想修改再保存一下，其实就是在成绩汇总中定位与成绩登记中A2内容相同的单元格，我的代码好像只能复制一行内容

范跃

我有一个超简单的代码可以实现将成绩登记里面的A4：D9全部考贝到成绩汇总的A4：D9代码如下：
Sub 记录导入()

For i = 4 To 9

Sheets("成绩汇总").Range("A" & i) = Sheets("成绩登记").Range("A" & i).Value
Sheets("成绩汇总").Range("B" & i) = Sheets("成绩登记").Range("B" & i).Value
Sheets("成绩汇总").Range("C" & i) = Sheets("成绩登记").Range("C" & i).Value
Sheets("成绩汇总").Range("D" & i) = Sheets("成绩登记").Range("D" & i).Value

'r = Sheets("成绩汇总").Cells(Rows.Count, "d").End(xlUp)(2, 1).Row '向下移一行

Next



End Sub

范跃

范跃 发表于 2024-5-28 20:09
我有一个超简单的代码可以实现将成绩登记里面的A4：D9全部考贝到成绩汇总的A4：D9

Sub 记录导入()

For i = 4 To 9

Sheets("成绩汇总").Range("A" & i) = Sheets("成绩登记").Range("A" & i).Value
Sheets("成绩汇总").Range("B" & i) = Sheets("成绩登记").Range("B" & i).Value
Sheets("成绩汇总").Range("C" & i) = Sheets("成绩登记").Range("C" & i).Value
Sheets("成绩汇总").Range("D" & i) = Sheets("成绩登记").Range("D" & i).Value

'r = Sheets("成绩汇总").Cells(Rows.Count, "d").End(xlUp)(2, 1).Row '向下移一行

Next



End Sub