excel创建表格并且智能筛选表格中的所有数据

最新推荐文章于 2024-03-18 09:35:32 发布

K可。乐L

最新推荐文章于 2024-03-18 09:35:32 发布

阅读量745

点赞数 1

文章标签： html wpf 前端

本文链接：https://blog.csdn.net/W2279567793/article/details/121662067

版权

如何使用智能表格

打开excel表格工具
1. 打开电脑自带的excel表格工具，，表格长这样，如果电脑上找不到的话就在office软件中，，点击打开office，找到excel表格打开即可。
2. 如果电脑上有WPS那么打开的时候需要右键点击excel表格，打开方式为右键点击表格，选择打开方式为excel表格。

2.进入表格页面

1.当出现安全警告的时候选择启用内容

2.点击文件，excel表格的左上角，选择更多选项

3.进入自定义功能区，选中开发工具，然后点击确定

3.开始使用工具

首先录入信息--建议录入多条信息之后再调用程序

调用程序的地方

宏是运行的入口，点击宏

选中，选择执行即可等待一段时间，就会有数据的导出，导出之后保存即可（记得检查一下）。

当然，能够运行的前提是你需要在宏里面写上相关的代码，那么你会写代码了，其实上面的都是瞎掰扯。

关于代码---如何筛选一个表格中你想要的数据到其他的表格中

如何写代码就参考--VBA代码的书写

Sub CopyBetweenSheets()

    Sheet2.Range("2:" & Rows.Count).Clear  //运行程序之前删除非主表格的除第一行元素外的所有元素
    Sheet3.Range("2:" & Rows.Count).Clear
    Sheet4.Range("2:" & Rows.Count).Clear
    Sheet5.Range("2:" & Rows.Count).Clear
    Sheet6.Range("2:" & Rows.Count).Clear

    Dim source As Range //创建变量
    Dim target As Range //创建变量

    
    Set source = Sheet1.Range("A1:V60000")  //筛选的区间 也可以动态区间  如上面的 ("2:" & Rows.Count)
     
    For Row = 3 To source.Rows.Count  //从第三行开始
        Debug.Print source.Cells(Row, 13).Value  //
        If source.Cells(Row, 11).Value = "是" Then //判断条件 如果11行的值为是
        Sheet1.Activate  //切换到sheet1表格
        source.Rows(Row).Copy  //对当前的行进行复制
        Sheet4.Activate  //切换表格  
        Set target = Sheet4.UsedRange  //切换到sheet4的行 row 
        Sheet4.Rows(target.Rows.Count + 1).Select  //选择粘贴的范围
        Sheet4.Rows(target.Rows.Count + 1).Insert shift:=xlDown  //进行粘贴
        ElseIf source.Cells(Row, 13).Value = "是" Then
        Sheet1.Activate
        source.Rows(Row).Copy
        Sheet2.Activate
        Set target = Sheet2.UsedRange
        Sheet2.Rows(target.Rows.Count + 1).Select
        Sheet2.Rows(target.Rows.Count + 1).Insert shift:=xlDown
        ElseIf source.Cells(Row, 13).Value = "否" Then
        Sheet1.Activate
        source.Rows(Row).Copy
        Sheet3.Activate
        Set target = Sheet3.UsedRange
        Sheet3.Rows(target.Rows.Count + 1).Select
        Sheet3.Rows(target.Rows.Count + 1).Insert shift:=xlDown
        End If
        
        
        If source.Cells(Row, 12).Value = "是" Then
        Sheet1.Activate
        source.Rows(Row).Copy
        Sheet6.Activate
        Set target = Sheet6.UsedRange
        Sheet6.Rows(target.Rows.Count + 1).Select
        Sheet6.Rows(target.Rows.Count + 1).Insert shift:=xlDown
        ElseIf source.Cells(Row, 8).Value = "是" Then
        Sheet1.Activate
        source.Rows(Row).Copy
        Sheet5.Activate
        Set target = Sheet5.UsedRange
        Sheet5.Rows(target.Rows.Count + 1).Select
        Sheet5.Rows(target.Rows.Count + 1).Insert shift:=xlDown
        End If
        
        Next
        
End Sub

其中下面的代码和上面的大差不差，注意 VBA 代码 IF ElseIf 是判断语句，并且每个判断语句后面都有End if 结束当前的语句。

以上就是我学习分享的内容，菜鸟一头，希望能帮助到有缘人。