用VBA写一个根据输入的值，在表3复制这个值的所有数据到表1

以下是一个使用VBA的代码示例，可以根据输入的值，将表3中所有具有该值的数据复制到表1中：

Sub CopyData()
    Dim searchValue As String
    Dim copyRange As Range
    Dim pasteRange As Range
    
    ' 获取输入的值
    searchValue = InputBox("请输入要查找的值：")
    
    ' 在表3中查找数据
    Set copyRange = Worksheets("表3").Range("A1:C100").Find(searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到数据，则复制到表1中
    If Not copyRange Is Nothing Then
        Set pasteRange = Worksheets("表1").Range("A1")
        copyRange.EntireRow.Copy Destination:=pasteRange
        MsgBox "数据已成功复制到表1中！"
    Else
        MsgBox "没有找到相关数据。"
    End If
End Sub

在这个代码中，首先通过 `InputBox` 获取用户输入的值，然后使用 `Find` 方法在表3中查找这个值。如果找到了数据，就将这些数据的整行复制到表1中。如果没有找到相关数据，则弹出提示框告知用户。