VBA Excel 过滤数据并复制到另一个工作表 - 新手警报

VBA Excel 过滤数据并复制到另一个工作表 - 新手警报

vba
Sub FilterData()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim rngSource As Range
    Dim rngDestination As Range
    Dim cell As Range
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Worksheets("源工作表")
    Set wsDestination = ThisWorkbook.Worksheets("目标工作表")
    
    ' 设置源数据范围
    Set rngSource = wsSource.Range("A1:C10")
    
    ' 清空目标工作表
    wsDestination.Cells.Clear
    
    ' 设置目标数据起始位置
    Set rngDestination = wsDestination.Range("A1")
    
    ' 遍历源数据范围
    For Each cell In rngSource
        ' 判断条件，这里以成绩大于80为例
        If cell.Offset(0, 2).Value > 80 Then
            ' 复制符合条件的数据到目标工作表
            rngDestination.Value = cell.EntireRow.Value
            ' 移动目标数据范围到下一行
            Set rngDestination = rngDestination.Offset(1, 0)
        End If
    Next cell
End Sub