VBATips

複数のセルに数式を一括で入れる方法【Formula】【ExcelVBA】

複数のセルに数式を一括で入れたい

複数のセルに数式を入れる際、参照先を固定しない場合にどうやったらいいか忘れることも多く、備忘録で残します。

複数のセルに数式を一括で入れるサンプルコード

Public Sub sample()
    
    '■参照先を固定しない（縦に入れる）
    Range("B1:B3").Formula = "=A1"
    
    Debug.Print Range("B1").Formula     '=A1
    Debug.Print Range("B2").Formula     '=A2
    Debug.Print Range("B3").Formula     '=A3

    '■参照先を固定しない（横に入れる）
    Range("C1:D1").Formula = "=A1"
    Debug.Print Range("C1").Formula     '=A1
    Debug.Print Range("D1").Formula     '=B1

    '■参照先を固定する
    Range("E1:E3").Formula = "=A&1"
    
    Debug.Print Range("E1").Formula     '=A$1
    Debug.Print Range("E2").Formula     '=A$2
    Debug.Print Range("E3").Formula     '=A$3
End Sub

注意点

  • 特にありません。

関連記事

コメント

タイトルとURLをコピーしました