將列表框中的7列數據導出到工作表中的數據到選定的單元格中

我從列表框中將7列的數據轉換爲工作表格到選定的單元格中（A20：G29）。數據傳輸到下一個可用的細胞，而不是到A20：G29將列表框中的7列數據導出到工作表中的數據到選定的單元格中

這裏是我的代碼：

Private Sub cmdAdd_Click() 
    Dim addme As Range 
    Dim x As Integer 

    Set addme = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 
    For x = 0 To Me.lstSelector.ListCount - 1 
     If Me.lstSelector.Selected(x) Then 
      addme = Me.lstSelector.List(x) 
      addme.Offset(0, 1) = Me.lstSelector.List(x, 1) 
      addme.Offset(0, 2) = Me.lstSelector.List(x, 2) 
      addme.Offset(0, 3) = Me.lstSelector.List(x, 3) 
      addme.Offset(0, 4) = Me.lstSelector.List(x, 4) 
      addme.Offset(0, 5) = Me.lstSelector.List(x, 5) 
      addme.Offset(0, 6) = Me.lstSelector.List(x, 6) 
      Set addme = addme.Offset(1, 0) 
     End If 
    Next x 

    For x = 0 To Me.lstSelector.ListCount - 1 
    If Me.lstSelector.Selected(x) Then Me.lstSelector.Selected(x) = False 
    Next x 

End Sub 

Private Sub cmdclose_Click() 
Unload Me 
End Sub 

Private Sub lstSelector_Click() 

End Sub

我需要建議

來源

2014-10-29 user3724458

是。你爲什麼這麼認爲？ – 2014-10-29 20:15:18

非常感謝大衛。在行動中，你是炸彈！你讓我今天一整天都感覺很好。它工作100％。 – user3724458 2014-10-29 20:45:35

乾杯。如果我的答案已解決問題，請考慮[將其標記爲'接受']（http://stackoverflow.com/help/someone-answers）。 :) – 2014-10-29 20:54:42

該行建立了其中數據的起始範圍/細胞會輸出：

Set addme = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

這是一個相對簡單但常用的方法來查找範圍內的最後一個單元格。所以，這是有道理的，你的過程將總是「轉移到下一個可用的細胞」，而不是在其他特定的細胞範圍內。

試試這個：

Set addme = Sheet2.Range("A20")

來源

2014-10-29 20:17:49

將列表框中的7列數據導出到工作表中的數據到選定的單元格中

回答

相關問題