如何複製所有非空單元格並將它們粘貼到不同工作表中的下一個可用單元格中

Question

我想複製表單1「Delivery Docket」中的值。我想要複製的單元格將來自A18：A160，所有非空單元格。

下一步是將非空單元格的值粘貼到Sheet2「Shipping寄存器」上，該寄存器將從單元格A2開始，如果單元格不爲空，則向下。我之前曾問一個朋友爲我做這件事，我隱約記得他加了一個循環和+1功能，因爲每次單元有一個值，宏必須移動到下一個單元。

Answer 1

試試這個：

Private Sub copyNon_EmptyCells() 
    Dim ws1 As Worksheet, ws2 As Worksheet 
    Dim vals() As String, valCount As Integer 
    Dim lastRow As Integer, r As Integer 

    Set ws1 = Sheets(1) 
    Set ws2 = Sheets(2) 

    ' set last row variable 
    lastRow = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row 

    For r = 18 To lastRow 
     If (Not ws1.Cells(r, 1) = vbNullString) Then 
      ReDim Preserve vals(valCount) 
      vals(valCount) = ws1.Cells(r, 1) 
      valCount = valCount + 1 
     End If 
    Next r 

    For r = 0 To valCount - 1 
     ws2.Cells(r + 2, 2) = vals(r) 
    Next r 

End Sub