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

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