標題: 關於不連續格的加總 [打印本頁]

---

作者: mark15jill    時間: 2018-1-29 01:10     標題: 關於不連續格的加總

問題如下

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


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

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


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


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

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

複製代碼

---

作者: hcm19522    時間: 2018-1-29 13:56

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

---

作者: mark15jill    時間: 2018-1-29 18:08

回復 2# hcm19522


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)