若是有一批資料，不確定列的個數？

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-5-11 14:40 | 顯示全部帖子

回復 1# tku0216

算H~J各欄總和

Sub xx()
R = [A1].End(xlDown).Row
Range(Cells(R + 1, "H"), Cells(R + 1, "J")).FormulaR1C1 = "=SUM(R[-" & R - 1 & "]C:R[-1]C)"
End Sub

複製代碼

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-5-11 16:55 | 顯示全部帖子

回復 3# tku0216

R=16(最後一列)
設公式下在H17
H17=SUM(R[-" & R - 1 & "]C:R[-1]C)
=SUM(R[-15]C:R[-1]C) 以H17為基準 R[-15]:R往上偏15列 , R[-1]:R往上偏1列
=SUM(H2:H16)

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-5-17 18:08 | 顯示全部帖子

回復 6# tku0216

Cells(a + 1, "d").FormulaR1C1 = "=countif(r[" & 1 - a & "]c:r[-1]c,""選項A"")"

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-5-17 18:20 | 顯示全部帖子

回復 8# tku0216

直接在儲存格下公式
=COUNTIF(D2:D8,"選項A")
用VBA下公式
Cells(a + 1, "d").FormulaR1C1 = "=countif(r[" & 1 - a & "]c:r[-1]c,""選項A"")"

2者比較一下,應可知為什麼了(後者總是比前者多了"")