EXCEL 自动根据规则筛选生成新的表格?

发布网友 发布时间：2022-04-28 21:41

我来回答

共3个回答

热心网友 时间：2022-06-20 21:35

需要编写程序，结果产生在新的sheet里
在另1个Sheet，复制vba ,假设图片的sheet名为 表1 ，试试

Sub 无铅喷锡()
Range("A2:T5000") = ""
Dim i
x = Sheets("表1").Range("A65536").End(xlUp).Row
For i = 2 To x
If Sheets("表1").Cells(i, "a") = "无铅喷锡" And Sheets("表1").Cells(i, "T") = "Red" Then
Y = Range("A65536").End(xlUp).Row
Sheets("表1").Rows(i).Copy Cells(Y + 1, "A")
End If
Next
有铅喷锡
其他
MsgBox "数据处理完毕!"
End Sub
Sub 有铅喷锡()
Dim i
x = Sheets("表1").Range("A65536").End(xlUp).Row
For i = 2 To x
If Sheets("表1").Cells(i, "a") = "有铅喷锡" And Sheets("表1").Cells(i, "T") = "Red" Then
Y = Range("A65536").End(xlUp).Row
Sheets("表1").Rows(i).Copy Cells(Y + 1, "A")
End If
Next
End Sub
Sub 其他()
Dim i
x = Sheets("表1").Range("A65536").End(xlUp).Row
For i = 2 To x
If Sheets("表1").Cells(i, "a") <> "有铅喷锡" And Sheets("表1").Cells(i, "A") <> "无铅喷锡" Then
Y = Range("A65536").End(xlUp).Row
Sheets("表1").Rows(i).Copy Cells(Y + 1, "A")
End If
Next
End Sub追问厉害了 这个是我想要的 不懂编程的我 只需要无脑的复制就可以了吗？ 把里面的“表1”替换就可以吧

追答对，修改代码的 表1，为你实际的 sheet名

热心网友 时间：2022-06-20 21:36

1、在开始菜单中套用表格格式。
2、插入-切片器。
3、随便你怎么样组合，都会形成你需要的了。
4、如果你要长期形成固定的新筛选表格。那，用数据透视表吧。

热心网友 时间：2022-06-20 21:36

天天都要处理的话，建议写代码来自动化处理，自动生成结果