返回列表 上一主題 發帖

關於不連續格的加總

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

高中生Rank: 3Rank: 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) 的話，那該如何變動？


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


另外分享
判斷使用中最大行、列值，並加以計算單列值
  1.     Dim ux, uy As Integer
  2.     ux = 工作表1.UsedRange.Columns.Count '橫向
  3.     uy = 工作表1.UsedRange.Rows.Count    '直向
  4.     qx = ux: qy = uy
  5. For qy = 2 To uy
  6.     工作表1.Cells(qy, ux) = ""
  7.     工作表1.Cells(qy, ux) = Application.WorksheetFunction.Sum(Range(Cells(qy, 3), Cells(qy, ux)))
  8. Next
複製代碼
收藏 分享

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

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

  少看=只看不做也枉然

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

高中生Rank: 3Rank: 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  不用一格一格去拉
    想問的是  統整總和...

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

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

  少看=只看不做也枉然

TOP

hcm19522

帖子
1804 
主題
188 
精華
0 
積分
1997 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
100 
性別
男 
註冊時間
2015-9-11 
最後登錄
2026-10-11 

熱烈參與勳章
2#
發表於 2018-1-29 13:56 | 只看該作者
http://blog.xuite.net/hcm19522/twblog/561994210
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

        靜思自在 : 受人點水之恩，須當湧泉以報。
返回列表 上一主題