為什麼這篇VBA 雙迴圈鄉民發文收入到精華區：因為在VBA 雙迴圈這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者james733s (史奎德)看板Office標題[問題] VBA雙迴圈累加問題時間Fri Ju...
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:excel2013 VBA
版本:excel2013
K2 = sum(B2,K2)
單一個用VBA的話是
For i = 2 to 11
工作表8.cells(2,12)=.sum(工作表1.cells(2,i))
Next
問題為
如何用VBA雙迴圈搭cells .sum
把k欄sum用ㄧ個按鈕加起來
麻煩各位大大解惑
如圖：
http://i.imgur.com/nX2hoFs.jpg
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 101.12.162.254
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1496946879.A.94C.html
→ waiter337: 不大懂你的問題 06/09 05:13
→ waiter337: 首先我會建議先別跑那麼多 06/09 05:14
→ waiter337: 然後我將錯就錯來試試 06/09 05:14
→ waiter337: 建議先跑3行就好 06/09 05:14
→ waiter337: 你用錄製巨集在改 06/09 05:15
→ waiter337: For m = 2 To 4 06/09 05:35
→ waiter337: Sheets("工作表1").Cells(m, 12) = _ 06/09 05:35
→ waiter337: Application.Sum(Range(工作表1.Cells(m, 2) _ 06/09 05:37
→ waiter337: 工作表1.Cells(m, 11))) 06/09 05:37
→ waiter337: Next m 06/09 05:37
→ waiter337: 雙迴圈是這樣 06/09 05:48
→ waiter337: Sub Sumss() 06/09 05:48
→ waiter337: For m = 2 To 4 06/09 05:48
→ waiter337: For n = 2 To 11 06/09 05:48
→ waiter337: a = a + 工作表1.Cells(m, n) 06/09 05:49
→ waiter337: Next n 06/09 05:49
→ waiter337: 工作表1.Cells(m, 12) = a 06/09 05:49
→ waiter337: a=0 06/09 05:49
→ waiter337: next m 06/09 05:49
→ waiter337: end sub 06/09 05:49
→ james733s: 就是我有個界面可能長這樣 06/09 13:46
→ james733s: 按鈕ㄧ按 06/09 13:46
→ james733s: 可以計算出L欄 06/09 13:46
→ james733s: L欄是B+到k欄的總和 06/09 13:46
→ james733s: 只能用 06/09 13:46
→ james733s: For 迴圈 .cells range .sum 可能這四個就做出來這樣 06/09 13:46
→ james733s: 。 還是感謝大大回復^^ 06/09 13:46