在vba中筛选、复制和传递不带标题的行

Sub FilterCopyAndPassRows()
    Dim dataRange As Range
    Dim filteredRange As Range
    Dim copiedRange As Range
    Dim passedData As Variant
    
    ' 1. 筛选不带标题的行
    Set dataRange = Range("A1:D10") ' 替换为实际的数据范围
    dataRange.AutoFilter Field:=1, Criteria1:="<>", VisibleDropDown:=False
    Set filteredRange = dataRange.SpecialCells(xlCellTypeVisible)
    dataRange.AutoFilter ' 取消筛选
    
    ' 2. 复制不带标题的行
    Set copiedRange = filteredRange.Offset(1).Resize(filteredRange.Rows.Count - 1)
    copiedRange.Copy
    
    ' 3. 传递不带标题的行
    passedData = copiedRange.Value
    
    ' 在这里可以使用传递的数据进行其他操作
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
End Sub