excel如何使用VBA进行数据筛选vba中筛选怎么用

Question

如题所述

Answer 1

　　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需输入总行数，希望能帮到你。