如何將一張表格中的一列複製到另一張表格中的另一列，同時跳過空白單元格？

Question

我有一張從C2到C6115的列。在那個範圍內有很多空單元。我想在Excel 2007中使用VB將填充的單元格複製到單獨的表單中。任何人都可以給我一個可以幫助我執行該操作的通用代碼嗎？

Answer 1

Sub copy() 
Dim i As Long 
Dim cell As Range 
i = 1 
For Each cell In Sheets(1).Range("c2:c6115") 
    If Not IsEmpty(cell) Then 
     Sheets(2).Range("c" & i).Value = cell.Value 
     i = i + 1 
    End If 
Next cell 
End Sub