请高手帮忙

ypcf0312

根据考号列范围，把“大题分设置”中各题分数填充到D列、G列、J列、M列、P列、S列、V列。考号列会增加

yaozhikun

Private Sub CommandButton1_Click()
: On Error GoTo SKIP
With Application
         .ScreenUpdating = False
         .Calculation = xlManual
End With

  Dim i, rowmax
  
rowmax = ActiveSheet.Range("a65536").End(xlUp).Row

For i = 4 To rowmax
Cells(i, "D") = Cells(9, "AA")
Cells(i, "G") = Cells(9, "AB")
Cells(i, "J") = Cells(9, "AC")
Cells(i, "M") = Cells(9, "AD")
Cells(i, "P") = Cells(9, "AE")
Cells(i, "S") = Cells(9, "AF")
Cells(i, "V") = Cells(9, "AG")

Next i


With Application
         .ScreenUpdating = True
         .Calculation = xlAutomatic
End With
SKIP:

End Sub