查找写入单元格的值，然后将旁边的单元格复制到未定义区域的不同工作表中

Sub CopyDataToDifferentSheets()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim searchRange As Range
    Dim cell As Range
    Dim searchValue As String
    Dim copyRange As Range
    
    ' 设置源工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    
    ' 设置目标工作表
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置要搜索的范围
    Set searchRange = sourceSheet.Range("A1:A100") ' 修改为实际的范围
    
    ' 设置要搜索的值
    searchValue = "要搜索的值"
    
    ' 遍历搜索范围
    For Each cell In searchRange
        ' 如果找到匹配的值
        If cell.Value = searchValue Then
            ' 复制旁边的单元格到目标工作表
            Set copyRange = cell.Offset(0, 1) ' 修改为实际的偏移量
            copyRange.Copy targetSheet.Cells(targetSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) ' 修改为实际的目标单元格
        End If
    Next cell
End Sub