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

Question

我有一张单，其中一列的范围从C2到C6115。在这个范围内有许多空单元格。我想在Excel2007中使用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