Attribute VB_Name = "test5"
Sub テスト()
    Dim str1 As String
    Dim str2 As String
    Dim num1 As Integer
    Dim num2 As Integer
    
    str1 = "こんにちは"
    str2 = "お元気ですか"
    num1 = 10
    num2 = 34

    Range("A1").Value = str1 & str2
    Range("A2").Value = str1 & num1
    Range("A3").Value = num2 & str1
    Range("A4").Value = num1 & num2

End Sub