对于日常工作的人来说，很多数据需要整理到EXCEL，那么对于有主从关系的数据大部分人会写到一个表里。

这里教下大家如果使用EXCEL来存储主从关系的数据。

例如：

A表字段：员工姓名、员工年龄、员工学历。。。

B表字段：员工姓名、月份、工资金额。。。

类似这样的主从表，如何实现点击A表姓名，跳转到B表，并筛选出当前员工的工资数据。

 

实现以上效果，需要写VBA，在A表的SelectionChange事件里写如下代码即可。

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'返回A列非空数据的行数，如果预先知道数据没那么多，65536可以写小点，这样速度会快

n = Range("A65536").End(xlUp).Row

'选中单元格的行号和列号

r = Target.Row

c = Target.Column

If r > 1 And r <= n And c = 1 Then

 

   Sheets("B表").Rows("1:65536").EntireRow.Hidden = False

   n2 = Sheets("B表).Range("A65536").End(xlUp).Row

   temp = Cells(r, 1)

   For i = 2 To n2

     If Sheets("B表").Cells(i, 1) <> temp Then

        Sheets("B表").Rows(i).EntireRow.Hidden = True

     End If

   Next

   Sheets("B表").Activate

End If

 

End Sub

 

如不懂的可以联系我，微信号：andy_sue7