「Excel VBA」Do Loop While文のサンプル

2021年3月16日

書式
DO 処理コード
Loop While 条件式
使用例

Sub funcA()
    Dim n As Integer
    n = 20
    Dim res As Integer
    
    ' Do　処理コード Loop While条件
    Do
        Debug.Print n
        n = n + 2
        res = res + n
    Loop While n < 25
 
  Range("A1") = res
End Sub

結果
20
22
24
72