用于查找特定值并在列的后续单元格中复制值并粘贴到新工作表中的vba代码

Sub CopyDataToNewSheet()
    Dim searchValue As String
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long
    
    ' 设置要查找的值
    searchValue = "特定值"
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
    targetSheet.Name = "目标工作表名称"
    
    ' 获取源工作表的最后一行
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row
    
    ' 遍历源工作表的每一行
    For i = 1 To lastRow
        ' 检查每个单元格的值是否与搜索值匹配
        If sourceSheet.Cells(i, 1).Value = searchValue Then
            ' 复制匹配的行到目标工作表
            For j = 1 To sourceSheet.Columns.Count
                targetSheet.Cells(targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row + 1, j).Value = sourceSheet.Cells(i, j).Value
            Next j
        End If
    Next i
End Sub