用于查找特定范围内的项目并复制到其他工作表的VBA代码

Sub CopyDataToAnotherSheet()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    Dim searchValue As String
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1:A10") ' 设置源范围的起始和结束单元格
    Set targetRange = targetSheet.Range("A1") ' 设置目标范围的起始单元格
    
    ' 设置要查找的值
    searchValue = "要查找的值"
    
    ' 遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 如果单元格的值等于要查找的值，则复制到目标范围
        If cell.Value = searchValue Then
            cell.EntireRow.Copy targetRange
            Set targetRange = targetRange.Offset(1) ' 将目标范围向下移动一行
        End If
    Next cell
End Sub