VBA查找文本并将下50个单元格复制到其他工作表

Sub CopyCellsToWorksheet()
    Dim searchText As String
    Dim searchRange As Range
    Dim copyRange As Range
    Dim destinationWorksheet As Worksheet
    Dim i As Integer
    
    ' 设置要查找的文本
    searchText = "要查找的文本"
    
    ' 设置要查找的范围
    Set searchRange = Worksheets("Sheet1").Range("A1:A100")
    
    ' 在范围内查找文本
    Set copyRange = searchRange.Find(searchText)
    
    ' 如果找到了文本，则将下50个单元格复制到其他工作表
    If Not copyRange Is Nothing Then
        Set destinationWorksheet = Worksheets("Sheet2")
        
        ' 复制下50个单元格
        For i = 0 To 49
            copyRange.Offset(i, 0).Copy destinationWorksheet.Cells(i + 1, 1)
        Next i
        
        MsgBox "复制完成！"
    Else
        MsgBox "未找到要查找的文本。"
    End If
End Sub