Question

excel 如何使用VBA进行数据筛选

excel 中如何将一个表1中的部分数据筛选复制到表2中，并且表1中数据更改，表2也更改。数据量比较大，需使用VBA.
表1
员工编号 员工姓名 工作卡号 身份证 部门
00012 张1 10213 ‘123456789123456 1
00020 张2 11128 ‘123456123123456 1
00021 张3 12043 ‘123456789123456 2
01981 张4 12958 ‘123456123123456 3
01986 张5 13873 ‘123456789123456 2
01989 张6 14788 ‘123456123123456 2
10124 张7 15703 ‘123456789123456 1
10121 张8 16618 ‘123456123123456 3
10123 张9 17533 ‘123456789123456 2
25713 张10 18448 ‘123456123123456 2
25714 张11 19363 ‘123456789123456 3
如何将部门为1的记录筛选到表2中，并且表1中更改数据，表2也相应更改？谢谢了

Answer 1

Dim i, j, k As Integer
k = 1 'k赋初值
i = InputBox("please input the item num:") '给出总行数信息
For j = 1 To i '循环判断
If Sheets("sheet1").Cells(j, 5).Text = 1 Then '如果第5列的值等于1
Sheets("sheet1").Select
Range(Cells(j, 1), Cells(j, 5)).Select '选中表1中前五列数据
Selection.Copy '复制
Sheets("Sheet2").Select '选中表2
Range(Cells(k, 1), Cells(k, 5)).Select '选中表2的前5列
ActiveSheet.Paste Link:=True '粘贴链接
k = k + 1 '表2行号增加
End If
Next
Application.CutCopyMode = False '退出复制粘贴模式 这句和下面的语句为辅助语句可删
Cells(1, 1).Select需输入总行数，希望能帮到你。

Answer 2

我也学习到了！
这是宏吧
谢谢楼上！