計算式を右列に一括表示

 

Sub test()

    ' 計算式を右列に一括表示
    
    Dim i As Long
    
    Range("D6:D10").Formula = "=C6*B6"
    
    For i = 6 To 10
        Range("E" & i) = "'" & Range("E" & i).Offset(, -1).Formula
    Next i

 

End Sub

 

 

 

 

実行結果

 

 

 

 

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事