复制有效区域

hzg312

      黄色区域（B3:Q17）是指定区域，如何在指定区域内选择有数字（黄色区域内每行的任意一列有数字，该行数据就算有数字）的行数据进行复制。宏运行到复制有数字的行数字就可以。


       另外，如果对数据进行筛选，如何选择筛选后的区域进行复制，如选择“后数3”列，筛选大于10的行，对此部分区域进行复制，宏编制到复制此区域就可以。高手帮忙指导一下啊！先谢谢了！

xiangbaoan

Option Explicit
Sub test() '第1问
Dim ar, b As Boolean, i&, j&, k&
ar = Sheet1.Range("a1").CurrentRegion
k = 2
For i = 1 To UBound(ar)
    b = False
    For j = 1 To UBound(ar, 2)
        If Val(ar(i, j)) = 0 Then
            b = True
            Exit For
        End If
    Next
    If b = False Then
        k = k + 1
        For j = 1 To UBound(ar, 2)
            ar(k, j) = ar(i, j)
        Next
    End If
Next
Sheets("结果").Range("a1").Resize(k, UBound(ar, 2)) = ar
End Sub