麻辣家族討論版版 » Excel程式區 » 請問如何計算總和(每筆資料範圍不一)

返回列表下一主題上一主題發帖

請問如何計算總和(每筆資料範圍不一)

中學生 Rank: 2

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-2-5 22:26 | 只看該作者

請問如何計算總和(每筆資料範圍不一)

如題檔案Sheet1與Sheet2總和的位置不一樣
有何語法可以判斷出資料範圍的列高與行高
使SUM函數可以在那個資料格做運算

總和問題.rar (1.57 KB)

樓主熱帖

收藏

YOYO

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

2^#

發表於 2011-2-6 13:49 | 只看該作者

有何語法可以判斷出資料範圍的列高與行高
使SUM函數可以在那個資料格做運算
yanto913 發表於 2011-2-5 22:26

'顯示目前頁面的使用列數
MsgBox ActiveSheet.Range("A1").CurrentRegion.Rows.Count
'顯示目前頁面的使用欄數
MsgBox ActiveSheet.Range("A1").CurrentRegion.Columns.Count

建議:
如果直接搜尋"總和",再往右移動一格作計算,也可以達到您的需求.

中學生 Rank: 2

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

3^#

發表於 2011-2-6 15:24 | 只看該作者

本帖最後由 yanto913 於 2011-2-6 16:16 編輯

謝謝你！很受用，這樣就可以知道資料範圍是多少進而作總和運算
不過剛剛試一下還是用不出來，可否以Sheet1為例作解答呢？
y = ActiveSheet.Range("A1").CurrentRegion.Rows.Count
卡在ActiveCell.cells(5,4) = "SUM(range(cells(2,4):cells(y,4)))"弄不出來

YOYO

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 137
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-6-7

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-2-7 00:30 | 只看該作者

回復 3# yanto913

y = Range("A1").CurrentRegion.Columns.Count - 1
Cells(Rows.Count, 1).End(xlUp).Offset(1, y) = "=SUM(R2C:R[-1]C)"

學海無涯_不恥下問

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

5^#

發表於 2011-2-7 14:17 | 只看該作者

回復 1# yanto913

Sub Ex()
Dim Sh As Worksheet
For Each Sh In Sheets(Array("SHEET1", "SHEET2"))
With Sh.Range("A1").CurrentRegion
.Cells(.Count).Offset(1, -1) = "總和"
.Cells(.Count).Offset(1) = Application.Sum(.Columns(.Columns.Count))
End With
Next
End Sub

複製代碼

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

6^#

發表於 2011-2-8 19:59 | 只看該作者

非常好用的程式碼
下載收集
謝謝

100 字節以內
不支持自定義 Discuz! 代碼

中學生 Rank: 2

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

7^#

發表於 2011-2-10 20:36 | 只看該作者

謝謝幫忙！讓我從原本什麼都不會的菜鳥變的看的懂一些入門的語法，再次感謝

YOYO

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 6
點名: 0
作業系統: WIN7
軟體版本: office2007
閱讀權限: 10
性別: 男
來自: 新竹
註冊時間: 2011-12-22
最後登錄: 2011-12-23

8^#

發表於 2011-12-22 09:45 | 只看該作者

感謝解答正努力學習中~感謝!!

JAMES

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: XP
軟體版本: office2003
閱讀權限: 10
性別: 女
來自: taiwan
註冊時間: 2011-12-21
最後登錄: 2011-12-27

9^#

發表於 2011-12-22 12:10 | 只看該作者

謝謝，很受用11111111111111111€

tzyun

靜思自在 : 多做多得。少做多失。

返回列表下一主題上一主題