从列表框获取项目并将其放入列中

Question

我想从多选列表框中获取选定的项目，然后将这些项目放在下面的列中。 我已经找到了如何获得所选项目的方法，但还没有找到将它们放入工作表的方法。

继承人代码：

Private Sub CommandButton2_Click()

      Dim Msg As String
      Dim i As Integer
      Dim reihe As Integer
      Dim spalte As Variant
      reihe = 30
      spalte = "A"

      For i = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(i) Then
              Msg = Msg & ListBox1.List(i) & vbNewLine
          End If
      Next i

      MsgBox Msg


End Sub

Answer 1

假设我们要将这些值从第13行开始放入B列中。在MsgBox之后 ，包括：

ary = Split(Msg, vbCrLf)
J = 13
For Each a In ary
    Cells(J, "B").Value = a
    J = J + 1
Next a

编辑＃1：

要从同一点开始但要遍历，请使用：

ary = Split(Msg, vbCrLf)
J = 13
K = 2
For Each a In ary
    Cells(J, K).Value = a
    K = K + 1
Next a