也可以用vba实现
假设将sheet1中A列数据复制到sheet2中A列
Sub 不含隐藏行复制()
Dim i%, j%: i = 1: j = 1
Do Until Cells(i, 1) = ""
If Sheets(1).Rows(i).Height = 0 Then
i = i + 1
Else
Sheets(2).Range("a" & j) = Sheets(1).Range("a" & i).Value
i = i + 1: j = j + 1
End If
Loop
End Sub
温馨提示:答案为网友推荐,仅供参考