Attribute VB_Name = "testcellrange2"
Sub テスト()

    Dim range1 As Range

    Set range1 = Range("A1:C3")
    range1.Value = 10

    Range("D5", "E6").Value = "日本語"

End Sub