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

    Dim range1 As Range

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

    Range("C3").Value = "日本語"

End Sub