excel操作之粘贴时跳过隐藏行

Sub 粘贴时跳过隐藏行()
startRow = 2
endRow = 1603
startCol = 4
endCol = 5

srcStartCol = 1


Dim Rng As Range
Dim i As Integer

For x = startCol To endCol
i = 0
Set Rng = Range(Cells(startRow, x), Cells(endRow, x)).SpecialCells(xlCellTypeVisible)
For Each cell In Rng
Worksheets("Sheet2").Cells(i + 1, srcStartCol).Copy
ActiveSheet.Paste Destination:=cell
Application.CutCopyMode = False
i = i + 1

Next
srcStartCol = srcStartCol + 1
Next


End Sub