如何将一个工作表中的一列复制到另一个工作表中的另一列，同时跳过空白单元格？

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