在EXCEL VBA中 在TextBox2中显示TextBox1中的内容在Sheet2表中所在行A列的数据，且当textbox1内容变更是，textbox2也随之变化

你可以使用如下代码实现：

Private Sub TextBox1_Change()
Dim searchValue As String
Dim searchRange As Range
searchValue = TextBox1.Value
Set searchRange = Sheet2.Range("A:A").Find(searchValue, , xlValues, xlWhole)
If Not searchRange Is Nothing Then
TextBox2.Value = searchRange.Offset(0, 1).Value
End If
End Sub

这段代码会在文本框1的内容变更时触发，在表格2的第一列中查找文本框1中的内容，并在文本框2中显示对应行A列的数据。当文本框1中的内容变更时，文本框2也会相应地更新。