GBKEE

回復 11# skyutm
貼上值

1. Sub 自動複製成績()
   
2.     Dim Rng As Range
   
3.     With Sheets("國平時").Range("Q2:Q22")  '有固定人數嗎?
   
4.         Set Rng = Sheets("總成績").Range("C2").Resize(.Cells.Count)
   
5.         Rng = .Value
   
6.     End With
   
7.     With Rng
   
8.         .Cells(.Cells.Count + 1) = "=AVERAGE(" & Rng.Address & ")"
   
9.     End With
   
10. End Sub

複製代碼

'整個複製

1. Sub 自動複製成績()
   
2.     With Sheets(1).Range("國平時").Range("Q2:Q22")  '有固定人數嗎?
   
3.          .Copy Sheets("總成績").Range("C2").Resize(.Cells.Count)
   
4.          Sheets("總成績").Range("C2").Cells(.Cells.Count + 1) = "=AVERAGE(" & Sheets(2).Range("C2").Resize(.Rows.Count).Address & ")"
   
5.     End With
   
6. End Sub

複製代碼

skyutm

回復 13# GBKEE

哇！感謝版主，果然是有深度的語法。