Как скопировать один столбец на одном листе в другой столбец на другом листе, пропуская пустые ячейки?

Question

У меня есть один лист с колонкой, которая колеблется от C2 до C6115. В этом диапазоне много пустых ячеек. Я хочу скопировать заполненные ячейки только в отдельный лист, используя VB в Excel 2007. Кто-нибудь может дать мне общий код, который может помочь мне выполнить это?

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