Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 222|回复: 4

自动筛选资料

[复制链接]
发表于 2020-11-26 16:32 | 显示全部楼层 |阅读模式
本帖最后由 lkk0063 于 2020-11-28 16:12 编辑

当按下筛选资料后, K2 & L2 栏位会自动带出数值(图一),
并自动将数值复制到 Sheet1 的 B2 & C2 栏位内(图二)   (注:Sheet1 的 B2 & C2 栏位有资料需累计下去)
图一

A1.jpg
图二
A2.jpg

test.zip

30.51 KB, 下载次数: 5

发表于 2020-11-28 13:40 | 显示全部楼层
test.rar (29.15 KB, 下载次数: 4)
回复

使用道具 举报

 楼主| 发表于 2020-11-28 15:23 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2020-11-28 16:16 | 显示全部楼层

zjdh 版主你好,
若想新增图二, 若有资料则不复制资料, 请问如何修改? 谢谢

  1. if Sheets("BB").Cells(n + 1, "B") > 1 then
  2. MsgBox "资料重覆!!"
  3. Exit Sub
复制代码


回复

使用道具 举报

发表于 2020-11-29 17:52 | 显示全部楼层
'....
       If Sheets("Sheet1").Cells(n + 1, "B") <> "" Then
            MsgBox "数据重复!"
            Exit Sub
        Else:
            .Range("K2:L2").Copy Sheets("Sheet1").Cells(n + 1, "B")
        End If
    End With
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-1-23 09:21 , Processed in 0.109200 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表