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

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