セルを選択してデータをコピー

Question

選択した行を複数列の複数選択リストボックスから自分のシートにコピーするコードが見つかりました。最初に選択した行をコピーする場所をセルに設定するにはどうすればよいですか？

Excelの列は変更できますが、行は変更できません。それは、常に「行をループ」の責任変数はLbcopyで、（たとえばA1またはB1のための）最初のあなたのコードで

Dim Litem As Long, LbRows As Long, LbCols As Long 
Dim bu As Boolean 
Dim Lbloop As Long, Lbcopy As Long 
Dim m As Variant 

LbRows = ListBox2.ListCount - 1 
LbCols = ListBox2.ColumnCount - 1 

For Litem = 0 To LbRows 
    If ListBox2.Selected(Litem) = True Then 
     bu = True 
     Exit For 
    End If 
Next 

If bu = True Then 
    With ActiveSheet.Range(sCell).End(xlUp)   'sCell is the selected Cell 

     For Litem = 0 To LbRows 
      If ListBox2.Selected(Litem) = True Then 'Row selected 
       'Increment variable for row transfer range 
       Lbcopy = Lbcopy + 1 
       For Lbloop = 0 To LbCols 
        'Transfer selected row to relevant row of transfer range 
        .Cells(Lbcopy, Lbloop + 1) = ListBox2.List(Litem, Lbloop) 

       Next Lbloop 
      End If 
     Next 
     For m = 0 To LbCols 
      With ActiveSheet.Range(sCell).End(xlUp) 
      End With 
     Next 
    End With 
Else 
    MsgBox "Nichts ausgewählt", vbCritical 
End If 

Answer 1

で起動します。あなたは正しく、コードの先頭で変数を宣言しているが、あなたは変数を初めて使用するときは、ここにある：この時点で

'Increment variable for row transfer range 
Lbcopy = Lbcopy + 1 

、あなたが割り当てられていないため、変数の値が0ですそれに対するいかなる価値もあります。
これは、最初にForループに入るとき、あなたはおおよそLbcopy = 0 + 1と言っています。

Lbcopy = 9  ' <--- will start copying from row 10 
For Litem = 0 To LbRows 
    If ListBox2.Selected(Litem) = True Then 'Row selected 
     'Increment variable for row transfer range 
     Lbcopy = Lbcopy + 1 ' <-- will turn the value of first iteration to 10 
     For Lbloop = 0 To LbCols 
      'Transfer selected row to relevant row of transfer range 
      .Cells(Lbcopy, Lbloop + 1) = ListBox2.List(Litem, Lbloop) 

     Next Lbloop 
    End If 
Next