いｂｋｋｋ - 経済統計練習帳

Sub test()
 
Cells(1, 1).Value = "EXCEL VBA"
For i = 1 To 5
    Cells(i, 1).Value = "EXCEL"
Next
 
buf = Range("A1").Value
 
q = Cells(1, 1).Value
 
Cells(7, 7).Value = buf + "ccccc"
Cells(8, 8).Value = q + "kkk"
 
 
End Sub