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

如何使用智能表格

  1. 打开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 结束当前的语句。

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值