請教語法上的問題？

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^# 跳轉到 »

發表於 2018-4-21 08:53 | 只看該作者

本帖最後由 GBKEE 於 2018-4-21 09:03 編輯

回復 11# skyutm
貼上值

複製代碼

'整個複製

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

12^#

發表於 2018-4-21 16:09 | 只看該作者

回復 13# GBKEE

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

靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。