excel vba非空区域内容复制

假如复制到sheet2的A1:J17，代码如下：

If Application.CountA(Range("A39:J55")) >0 Then

Range("A39:J55").Copy Sheets(Sheet2).Range("A1")

End If

复制到SHEET2中的什么地方，估计是SHEET2表A列末尾吧，代码如下：

Dim r,x

x = Sheets("sheet2").Cells(Rows.Count,1).End(xlUp).Row + 1

For r in Sheets("sheet1").Range("A1:A10")

    If r<>"" Then

        Sheets("sheet2").Cells(x, 1) = r

        x=x+1

    End If

Next r

'相关代码如下，粘贴到sheet1的VBA里面，A列非空，则整行复制到SHEET2中。

sub aa

k=cells(row.count,1).end(xlup).row

for each rng in range("a2:a" & k)

if rng<>"" then 

rng.entirerow.copy sheet2.range("a" & sheet2.cells(row.count,1).end(xlup).row+1)

end if

next

end sub

---