作者：乔山办公网日期：
返回目录：excel表格制作
这时候就不用筛选功能了，直接vba里边3重循环对3列数据进行搜索，然后用hlookup功能offset到j列把数值累加到一个变量里，最后判断该标什么颜色表什么颜色
Dim i, j, k As Integer
k = 1 'k赋初值
i = InputBox("please input the item num:") '给出总行数zd信息版
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需输入总行数，希望能帮到你。
你用宏记录录制你的筛选操作即可。
一般采用倒序的方式zd：例回如，将D列中为“否答”的整行删除：
Sub test()
For i = Cells(Rows.Count, 4).End(xltoup).Row To 1
If Range("D" & i) = "否" Then
Range("D" & i).EntireRow.Delete
End If
Next
End Sub