セルにデータを入力するVBA Macro

A1セルに文字を入力

Sub InputToCell()
  Range("A1").Value = "Hello, world!"  
End Sub

A1セルに文字列「Hello, world!」を入力します。

A1～C3に同じ文章を入力

Sub InputToCells() 
Range("A1:C3").Value = "Hello, world!" 
End Sub

A1～C3セルに文字列「Hello, world!」を入力します。

メッセージボックスに入力した内容をA1セルに反映

Sub InputToCellFromMessageBox()
    Dim inputText As String
    
    inputText = InputBox("Please enter a message:")
    Range("A1").Value = inputText
End Sub

メッセージボックスを表示し、そこに入力された文字列をA1セルに入力します。

入力した内容をまずA1に表示、次に入力した内容をA2、その次はA3と順番に入力

Sub InputToCellsInOrder()
    Dim inputText As String
    Dim i As Integer
    
    For i = 1 To 3
        inputText = InputBox("Please enter a message:")
        Range("A" & i).Value = inputText
    Next i
End Sub

このコードは、3回入力された文字列をA1～A3セルに順番に入力します。