举例说明。
第一步:建立一张学号及姓名对照表。如图:
第二步:在F2输入公式:=IFERROR(VLOOKUP(E:E,A:B,2,0),""),然后将该公式复制黏贴到F3:F30
第三步:在E2输入A003,E3输入A007,结果如图:
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
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
或添加个按钮。
Sheet1的基础数据在本例中做什么用途?
选择Sheet2的偶数列,然后输入以下公式,按Ctrl+Enter组合键结束
=IF(A1="","","今年"&RANDBETWEEN(5,8)&"岁了")