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