『複数選択された行の値を取得してセルに代入する』（マサオ）

複数選択された行の値を取得してセルに代入するコード

Private Sub CommandButton1_Click()
Dim リスト As String
Dim i As Integer
With ListBox1
  For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
        リスト = リスト & .List(i) & vbCrLf
      End If
  Next i
End With
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = リスト
上記では改行で複数データがA2しかはいらない
上記のコードを書き換えてList(i)の1が選択されたらA1　3が選択されたらA3に5が選択されたらA5に入力したいのです教えたください。

End Sub



＜ 使用 Excel：Excel2019、使用 OS：Windows10 ＞
----
 ＞ List(i)の1が選択されたらA1　3が選択されたらA3に

 すると、こうですか。
 
 Private Sub CommandButton1_Click()
     Dim リスト() As String
     Dim i As Integer
     
     With ListBox1
         ReDim リスト(1 To .ListCount, 1 To 1)
         
         For i = 0 To .ListCount - 1
             If .Selected(i) = True Then
                 リスト(i + 1, 1) = .List(i)
             End If
         Next i
         
         Range("A1").Resize(.ListCount) = リスト
     End With
 End Sub
 
（半平太） 2020/09/11(金) 19:46
----
ありがとうございました。すいませんが半平太様もう一つ教えて頂けないでしょうか？リストボックスで選択List(i)の1が選択されたらA1　に〇を　3が選択されたらA3に　〇　5が選択されたらA5に　〇入力したいのです教えたください。選択されたら〇を入力するにはどう書けばいいのでしょうか？
（マサオ） 2020/09/11(金) 20:27
----
 ＞リスト(i + 1, 1) = .List(i)
　　　　　　　　　　　↓
   リスト(i + 1, 1) = "○"
（半平太） 2020/09/11(金) 21:01
----
半平太様さんありがとうございました。
（マサオ） 2020/09/11(金) 23:31