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

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-5-11 09:38 | 只看該作者

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

各位好，我現在有一批資料(如附圖)，必須計算最後一列的各項總計，但這批資料的列數非固定但欄是固定的，我必須在最後一列的每個儲存格，撰寫不同函式來計算每欄的不同數值，我初步構想是將這些函式寫成類似巨集的東西，然後當我資料一匯入完成確定資料總數之後，就可以在最後一列以插入的方式插入這些函式，請問應該怎麼做呢？

樓主熱帖

　頭銜: 麻辣路人甲

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

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

2^#

發表於 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

複製代碼

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

3^#

發表於 2012-5-11 15:01 | 只看該作者

多謝大大解惑，用第一欄當指標的確是一個好方法，還想請問這段的意思：
FormulaR1C1 = "=SUM(R[-" & R - 1 & "]C:R[-1]C)"

感謝~

　頭銜: 麻辣路人甲

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

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

4^#

發表於 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)

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

5^#

發表於 2012-5-11 18:15 | 只看該作者

多謝解說，在請問一下VBA到底甚麼時候要用加空格？

像 FormulaR1C1 = "=SUM(R[-" & R - 1 & "]C:R[-1]C)"

中間如果不加空格就會有錯，一開始還找不出問題....

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

6^#

發表於 2012-5-17 17:52 | 只看該作者

回復 tku0216

R=16(最後一列)
設公式下在H17
H17=SUM(R[-" & R - 1 & "]C:R[-1]C)
=SUM(R[-1 ...
register313 發表於 2012-5-11 16:55

感謝回復：再請教一下，關於formular1c1的用法？
因為我加入countif函數，發現沒有辦法運作，以D欄舉例，我要在D9計算“選項A”的數量，
那我程式寫法理當要"=countif(r[" & 1 - a & "]c:r[-1]c,"選項A")"

但我發現我無法在選項A兩邊加雙引號，否則會有錯誤訊息，請問我該如何解？謝謝。
excel檔載點→http://db.tt/8AJ0mZLF

　頭銜: 麻辣路人甲

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

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

7^#

發表於 2012-5-17 18:08 | 只看該作者

回復 6# tku0216

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

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

8^#

發表於 2012-5-17 18:12 | 只看該作者

回復 7# register313

may i ask why?^^

　頭銜: 麻辣路人甲

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

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

9^#

發表於 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者比較一下,應可知為什麼了(後者總是比前者多了"")

帖子: 209
主題: 43
精華: 0
積分: 262
點名: 0
作業系統: win 7
軟體版本: office 20**
閱讀權限: 20
性別: 男
註冊時間: 2011-11-3
最後登錄: 2017-4-16

10^#

發表於 2012-5-17 18:52 | 只看該作者

這下真的全部搞懂了，謝謝register313大大不厭其煩地回復。