如何用excel vba 做到在A1输入代码 B1就出对应名称，跟软件相似。

如题所述

用单元格事件完成
首先你要有一个代码和名称对应的表格，如在sheet1的A列为代码，B列为名称
要在sheet2的第一行为标题，第二行开始输入
A列输入代码，B列自动出对应的名称
sheet2的代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr, r&, x&
If Target.Row > 1 And Target.Count = 1 And Target.Column = 1 Then
With Sheets("sheet1")
r = .Range("A65536").End(xlUp).Row
arr = .Range("A1:B" & r)
End With
For x = 1 To UBound(arr)
If arr(x, 1) = Target.Value Then
Cells(Target.Row, 2) = arr(x, 2)
Exit For
End If
Next x
End If
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/8q2s88qm8.html