麻辣家族討論版版 » Excel程式區 » 關於不連續格的加總

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

關於不連續格的加總

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-1-29 01:10 | 只看該作者

關於不連續格的加總

問題如下

1、列數 A3~A5為空白列的話，如何加總 C2~J5 並把結果放置K5？

2、列數 A8~A11為空白列的話，如何加總 C7~J11並把結果放置K11？

3、假設今天C2~J5 為不特定空白列(例如變成 C6~J14) 的話，那該如何變動？

如圖...

試了半天... 整個混亂>_<
太久沒用.. 都忘光光了(羞愧

另外分享
判斷使用中最大行、列值，並加以計算單列值

Dim ux, uy As Integer
ux = 工作表1.UsedRange.Columns.Count '橫向
uy = 工作表1.UsedRange.Rows.Count '直向
qx = ux: qy = uy
For qy = 2 To uy
工作表1.Cells(qy, ux) = ""
工作表1.Cells(qy, ux) = Application.WorksheetFunction.Sum(Range(Cells(qy, 3), Cells(qy, ux)))
Next

複製代碼

樓主熱帖

收藏

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

大學生 Rank: 4

帖子: 1368
主題: 4
精華: 0
積分: 1378
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-6-26

熱烈參與勳章

2^#

發表於 2018-1-29 13:56 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/561994210

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2018-1-29 18:08 | 只看該作者

回復 2# hcm19522

謝謝~ 但方式跟答案不是我想要的...
所呈現的方式結果...跟我所分享的程式碼運行結果一樣的...
只是感覺我的比較簡單XD 不用一格一格去拉
想問的是統整總和...

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。

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