求助高人指点关于用vlookup函数调取不为空的值，感谢感谢！

brevery

表1是汇总表，表2是各科统计表，想用vlookup函数查找每天各班各课程缺勤人数。日期比较简单，但如何实现各科缺勤人数调取，且空值不取，并按新顺序在表1对应的位置紧密排列。

例如：通过输入序号“1”，2018.8.10这天一班计算机、工程制图、马克思主义哲学这3门有缺勤；二班经济学、商务管理、商务英语、国际金融这4门有缺勤。则结果在表1中显示。

      同理，在输入序号“2”后，则显示2018.8.11这天的各班各科缺勤人数。


      求助高人指点！感谢

iwangyi

Sub cc()
Set c = Sheets("2").Columns(1).Find(Cells(2, 2), , , 1)
If Not c Is Nothing Then
Cells(6, 2) = c.Offset(, 3)
Cells(6, 4) = c.Offset(, 4)
Cells(7, 2) = c.Offset(, 6)
Cells(12, 2) = c.Offset(, 8)
Cells(12, 4) = c.Offset(, 10)
Cells(13, 2) = c.Offset(, 12)
Cells(12, 4) = c.Offset(, 13)
End If
End Sub

iwangyi

附件***************

iwangyi

还是用角发事件较合理
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Set c = Sheets("2").Columns(1).Find(Target, , , 1)
If Not c Is Nothing Then
Cells(6, 2) = c.Offset(, 3)
Cells(6, 4) = c.Offset(, 4)
Cells(7, 2) = c.Offset(, 6)
Cells(12, 2) = c.Offset(, 8)
Cells(12, 4) = c.Offset(, 10)
Cells(13, 2) = c.Offset(, 12)
Cells(12, 4) = c.Offset(, 13)
End If
End If
End Sub

xiangbaoan

B6单元格一个公式，其余的复制：
=OFFSET('2'!$B$3,$B$2,MATCH(A6,'2'!$C$3:$N$3,))&""

iwangyi

用解发事件，只要在B2单元格内输入序号，考勤自动更新

brevery

感谢高手帮助，我的想法是表1内考勤情况原本是空的，通过输入序号，让表1显示存在缺勤的科和相应人数，未缺勤的科跳过不显示，在表1内显示的科目是挨着的。还望指教！

brevery

iwangyi 发表于 2018-8-10 10:58
用解发事件，只要在B2单元格内输入序号，考勤自动更新

感谢高手帮助，我的想法是表1内考勤情况原本是空的，通过输入序号，让表1显示存在缺勤的科和相应人数，未缺勤的科跳过不显示，在表1内显示的科目是挨着的。还望指教！

iwangyi

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Set c = Sheets("2").Columns(1).Find(Target, , , 1)
If Not c Is Nothing Then
Cells(6, 2) = c.Offset(, 3)
Cells(6, 4) = c.Offset(, 4)
Cells(7, 2) = c.Offset(, 6)
Cells(12, 2) = c.Offset(, 8)
Cells(12, 4) = c.Offset(, 10)
Cells(13, 2) = c.Offset(, 12)
Cells(12, 4) = c.Offset(, 13)
楼主在此处将更新项填全即可

End If
End If
End Sub

莫名v微笑

见附件，我稍微改了一下你的表格。