- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
回復 1# idnoidno
若你所謂的日平均指的是每個人的抄表數字
則可使用此程式碼,引用樓上大大的程式碼做增加- Sub finddate()
- myrows = Worksheets("工作表1").Cells(Rows.Count, 1).End(xlUp).Row
- 日期 = [i2] & "/" & [j2]
- For i = 2 To myrows
- If 日期 = Format(Cells(i, 1), "yyyy/mm") Then
- temp = 0
- For j = 2 To 7
- temp = temp + Cells(i, j)
- Next
- [k2] = temp / 6
- End If
- Next
- End Sub
|
|
發表於 2015-4-16 11:50
| 