匹配单元格并将其复制到摘要工作表/ VBA

Sub CopyMatchingCellsToSummary()
    Dim wsSource As Worksheet
    Dim wsSummary As Worksheet
    Dim rngSource As Range
    Dim rngCell As Range
    Dim rngSummary As Range
    Dim criteria As String
    
    ' 设置源工作表和摘要工作表
    Set wsSource = ThisWorkbook.Worksheets("源工作表名称")
    Set wsSummary = ThisWorkbook.Worksheets("摘要工作表名称")
    
    ' 设置源数据范围
    Set rngSource = wsSource.Range("A1:A10") ' 假设源数据在A1:A10范围内
    
    ' 设置摘要数据的起始位置
    Set rngSummary = wsSummary.Range("A1")
    
    ' 设置匹配条件
    criteria = "条件值"
    
    ' 遍历源数据范围
    For Each rngCell In rngSource
        ' 判断单元格的值是否满足条件
        If rngCell.Value = criteria Then
            ' 复制满足条件的单元格到摘要工作表
            rngCell.Copy rngSummary
            ' 将摘要数据范围向下移动一行
            Set rngSummary = rngSummary.Offset(1)
        End If
    Next rngCell
End Sub