Excel VBA 如何編寫儲存格的列值為可變值 ?

2016-10-09 6:13 pm
Sub Do_While_Loop()

Range("N2") = 0
Range("M2") = 0
Do While Range("L2") < 100
Range("M2") = Range("M2") + 1
***** Range("N2") = SUM(L2:L"2+Range("M2")")*****
Loop

End Sub

我想做到M2每loop一次就會加1, 而n2的加總範圍也會隨之改變
有*****的是編寫有問題一行, 應該如果修正(L2:L"2+Range("M2")")這部份呢 ?

thanks

回答 (1)

2016-10-11 1:35 pm
✔ 最佳答案
Sub Do_While_Loop()
Dim i As Long
Range("N2") = 0
Range("M2") = 0
i = 2
Do While Range("L2") < 100
Range("M" & i) = Range("M" & i) + 1
Range("N" & i) = Application.Sum(Range("L" & i & ":L" & i + Range("M" & i)))
i = i + 1
Loop
End Sub


收錄日期: 2021-05-03 13:51:32
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20161009101315AAzsm13

檢視 Wayback Machine 備份