excel如何实现在任意单元格中输入内容后自动在其右方一个单元格中显示输入匹配信息？

发布网友发布时间：2023-03-15 01:56

我来回答

共4个回答

热心网友时间：2023-10-25 00:24

举例说明。

第一步：建立一张学号及姓名对照表。如图：

第二步：在F2输入公式：=IFERROR(VLOOKUP(E:E,A:B,2,0),""),然后将该公式复制黏贴到F3：F30

第三步：在E2输入A003，E3输入A007，结果如图：

热心网友时间：2023-10-25 00:25

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim d As String, s As String
d = Target.Address
s = Application.WorksheetFunction.VLookup(Target.Value, Sheet1.Range("a:b"), 2, 0)
If s <> "" Then
Range(d).Offset(0, 1).ClearComments
Range(d).Offset(0, 1).AddComment
Range(d).Offset(0, 1).Comment.Visible = False
Range(d).Offset(0, 1).Comment.Text Text:=s
End If
If Target.Value = "" Then
Range(d).Offset(0, 1).ClearComments
End If
End Sub

热心网友时间：2023-10-25 00:25

Sub test()
On Error Resume Next
For I = 1 To 10 '表示行数
For K = 1 To 3 '表示列数
Cells(I, K + 1) = Application.WorksheetFunction.VLookup(Cells(I, K), Sheets(1).Range("A:B"), 2, 0)
Next
Next
End Sub

输入数据后，按ALT+F8
或添加个按钮。追问谢谢了，虽然没成功，再次谢过了，不过楼下的
“zuhi“兄弟已经解决了，您也参考一下吧。

追答谢谢，VBA我很少写，主要是写函数，他的代码，可以自动删除对应的数据。

热心网友时间：2023-10-25 00:26

Sheet1的基础数据在本例中做什么用途？
选择Sheet2的偶数列，然后输入以下公式，按Ctrl+Enter组合键结束
=IF(A1="","","今年"&RANDBETWEEN(5,8)&"岁了")