在EXCEL vba中，在sheet6的B列中搜索textbox1中输入的内容，返回对应在A列中的内容在textbox2中

可以使用VBA代码来实现这个需求。以下是一个示例代码：

Private Sub SearchButton_Click()
    Dim searchValue As String
    Dim searchRange As Range
    Dim foundCell As Range
    
    '获取搜索关键字
    searchValue = TextBox1.Value
    
    '定义搜索范围
    Set searchRange = Sheets("Sheet6").Range("B1:B100")
    
    '在搜索范围中查找关键字
    Set foundCell = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    '如果找到了匹配的单元格，则将对应的A列单元格的值赋值给textbox2
    If Not foundCell Is Nothing Then
        TextBox2.Value = foundCell.Offset(0, -1).Value
    Else
        MsgBox "未找到匹配的记录！"
    End If
End Sub

请将上述代码复制粘贴到Excel的VBA编辑器中，并将"SearchButton"、"TextBox1"和"TextBox2"替换成你实际使用的控件名。在使用时，用户可以在"TextBox1"中输入要搜索的关键字，单击"SearchButton"按钮后，程序会在Sheet6的B列中查找匹配的单元格，并将对应的A列单元格的值显示在"TextBox2"中。如果未找到匹配的记录，则会弹出一个提示框。