160-200之间输一个数据,表二的某一栏自动删除，vba代码vba 不等于 怎么写写？

来源：蜘蛛抓取(WebSpider) 时间：2016-11-14 04:27 标签： excel中vba代码怎么写
今天在某Excel交流群有个童鞋提问：各位老师，我有一个总表类似这样的表，我现在想要在总表输入数据的时候，自动分类到分表中去。有什么好的办法没有？很多人给方案，那我么我的方案是：数据透视表+列表当时有人反驳：数据透视表不是只能汇总么？现在我来阐述一下我的操作步骤：Step 01：选择数据源任意单元格，Ctrl+T，点击确定，这样列表区域就设置好了。Step 02：选择区域任意单元格，插入---数据透视表----现有工作表---选择位置—确定Step 03： 将数据透视表修改为自己需要的格式（注意：将分类依据的字段放到报表筛选页，以案例为例，将产品名称放到筛选字段）Step 04 ：修改透视表布局----报表布局---表格形式显示以及重复所有项目标签（2010以上版本）Setp 05：将数据透视表按照产品名称拆分---分析----选项---显示报表筛选页—确定Step 06：完成，删除总表的数据透视表这个时候修改数据源总表还是不会修改分表的，需要我们选中数据源之后按下快捷键Ctrl+Alt+F5，或者直接点击【刷新】这样就完成了，但是那位同学又说了，还需要点刷新？可不可以录入完一个就自动填写过去？借助VBA即可。Step&01：右键数据源工作表标签---查看代码Step 02：将如下代码复制到代码窗口Private Sub Worksheet_Change(ByVal Target As Range)&&&ActiveWorkbook.RefreshAllEnd Sub这样，当我们增加数据源的时候，分表将会自动更新。原理解释：利用【列表】的自动扩展区域的特性作为数据透视表的动态数据源，将数据透视表拆分之后，实际上每个表里仍然是数据透视表，而且数据源一致，这样以达到修改数据源自动匹配相应的分表的目的，最后利用VBA的Change事件，当单元格内容发生变化的时候，刷新工作簿。作者：随风ExcelHome讲师团成员金秋10月，精彩纷呈点击【阅读原文】查看更多精彩内容ExcelHome(iexcelhome)　
　文章为作者独立观点，不代表大不六文章网立场
的最新文章
提取最后一个星号后的数字，就这样简单！排序是工作中最常用的功能，今天和大家分享一些排序的冷门应用，有多冷？就是在南方过年没暖气的那种冷！借助Word实现分栏打印玩转手机办公：邮箱管理，你会了吗？办公室交流技巧，你也看看旋风图教程玩转手机办公：如何优雅的使用云存储？选取单元格区域，唯快不破短平快的日期转换技巧，你也试试Word哥，已经做好的表格怎么加标题？玩转手机办公：随时随地查看Office文档萌萌哒的COUNT五姐妹带合并单元格的数据，你怎么查询？玩转手机办公：视频会议，开启网络云会议时代精确替换，也许你还不知道。川普：想知道我是怎么胜出的吗？视频教程：使用函数进行账龄分析怎样才算精通Excel？自定义函数 ，你也试试吧！根据某些已知的关键字，在数据表中进行高效查询，这招儿真快！LOOKUP函数的经典用法，这回全了！这么多漂亮专业的配色，做PPT、做图表的时候一定记得借鉴一下哦。名片管理与备份、永不丢失的通讯录、合并重复的联系人、记住客户邮箱、记住客户生日、记住客户的照片和公司门头及记住客户的地址，实现快速导航7个招式，让你轻轻松松把人脉信息记得滴水不漏。内容简介：主讲SUMIFS实现多条件汇总，结合独特的【刘邦、项羽】方式解读数组运算，让函数发挥更耀眼的光芒。高颜值筛选神器，80%的人还没用过职场人士必会的25个日期计算公式，你也看看手机办公10招就够——第二招20个函数学习秘籍，这才是你最需要的来来来，快把这位私人秘书领回家——胡剑函数正式课程第1课基础内容，【名称框是眼睛、是代表】首次形象展示，10分钟即可决定报胡剑函数课。11月8组合柱形图，你也来试试玩转手机办公，别忘了你的小助手最佳拍档：INDEX和MATCH当身份证号在单元格中调皮捣蛋不能正常显示时，肿么办？？？玩转手机办公：无论天南地北，朋友冷暖先知不规则数据求和，相信你也遇到过——用自定义格式实现快速录入，超简单玩转手机办公：不带纸笔，也能高效记录信息给数据表安上红绿灯精彩，即将开启——快心遂意-快捷键终极版“Excel中都会用到颜色来标记，都在这。”一、给指定的内容设置颜色示例：给下表中所有的“猫哥”设置字体为红话说一图胜千言，在展示数据变化时，图表的视觉效果是远远超过苍白的数字的。
咱们今天就说说如何用盈亏图进行差异分析。快速插入多个空行，你是哪种青年？二维表转换为一维表，这个技巧大家不会陌生吧。今天再来一个新花样！这些都是技术大牛，你认识几位？图文作者：@Simon_阿文Excel 2016图表技巧Excel 2016图表技巧财务必看：快速转换收支表iexcelhome新浪官方微博：@ExcelHome； 腾讯官方微博：@excel_home。全球知名的微软技术社区联盟成员。热门文章最新文章iexcelhome新浪官方微博：@ExcelHome； 腾讯官方微博：@excel_home。全球知名的微软技术社区联盟成员。查看: 2489|回复: 5
多次整行删除自动筛选的结果的代码怎么写
阅读权限20
在线时间 小时
& & & & & & & &
多次整行删除自动筛选的结果的代码怎么写
在用EXCEL处理一些数据时,需要进行多次筛选,将筛选出来的结果整行删除,接着进行下一参数的筛选,删除.....我录制了一个宏,但由于每次筛选的数据不同,导致筛选的结果不能用,请教一下这代码怎么写? 急, 谢谢了!
VMM-VMM2& & & & EWAC-EWAC& & & && &&&OW-OW
&10 or &1& & & && && && & &0.3 or &0.05& & & && &&&&10
先筛选VMM-VMM2，再到EWAC-EWAC，后OW-OW,将DATA表中符合以上条件的数据整行删除，VBA代码怎么写？谢谢！
[ 本帖最后由 Ch_Liang 于
12:07 编辑 ]
12:07 上传
点击文件名下载附件
238.38 KB, 下载次数: 21
阅读权限70
在线时间 小时
也不一定非要筛选后再删除啊，可以做循环后按条件删除，然后再按下一个条件，是吧...
阅读权限70
在线时间 小时
建议上传附件，一般的整体删除的代码是：
dim rng as range
if 条件 then
& && && &if rng is nothing then
& && && && && && && &&&set rng=rows(I)
& && && &else
& && && && && && && && & set rng=union(rng,rows(i))
& && && &end if
rng.delete
阅读权限20
在线时间 小时
可以试试这个
Sub delfilter()
With Sheets(2) '&&改成你要处理的表序号，比如要在表三里处理，就将括号里数字改成3
If .FilterMode Then& &&&'如果表二是筛选模式则处理，否则不处理
& && &.AutoFilter.Range.SpecialCells(xlCellTypeVisible).EntireRow.Delete '整行删除
& && &Else: Exit Sub
Rows(1).AutoFilter& &'筛选模式
[ 本帖最后由 ok0551 于
17:39 编辑 ]
阅读权限50
在线时间 小时
还是上传示例文件吧！具体问题具体解决！
没有示例文件，无法写代码，无法测试。
阅读权限10
在线时间 小时
回复 4楼 ok0551 的帖子
很好用的方法，先谢谢了！但是把筛选行也删除了。
有没有办法保留筛选行？
:loveliness:
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 excel中vba代码怎么写 的文章

 

随机推荐