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

Question

我想从多选列表框中获取选定的项目并将这些项目放在下面的列中。我已经找到了如何获取所选项目，但不知道如何将它们放入 sheet.

这是一个代码：

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

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

Get items from Listbox and put it into columns

excel

vba

listbox