查看: 1663|回复: 10
如何用宏在按钮上实现不同两列相同数据的行删除
阅读权限20
在线时间 小时
& & & & & & & &
本帖最后由 babymaxmb 于
22:53 编辑
原始数据是这个
QQ截图05.jpg (63.59 KB, 下载次数: 0)
22:47 上传
1.点击按钮后筛选年龄为20和24岁的和原始数据的年龄列进行比较后，删除原始数据表中的年龄为20和24岁的整行，保留其他行（sheet2中A列数据可以随时增加（或减少）变化与原始数据的B列进行对比后删除原始数据对应的整列），依次排序（如图2）
QQ截图42.jpg (66.81 KB, 下载次数: 0)
22:47 上传
QQ截图05.jpg (56.81 KB, 下载次数: 0)
22:47 上传
2.或者，对原始数据筛选，点击删除按钮符合K列年龄和L列收入项的进行删除，保留其他项，并复制当前表中
QQ截图28.jpg (107.88 KB, 下载次数: 0)
22:47 上传
我找了很久都没找到宏代码，也改过一些代码还是不行，请高手帮忙。要用宏来实现，谢谢
阅读权限20
在线时间 小时
之前帮人做过一个连动删除的东西，选择第一个表里某一行，点击按钮后会删除该行，连动删除之后两个表中内容相同的行，并将删除的记录保存到其他表里。
代码如下，供参考。并且你说的东西太多了，建议一个一个说
Public Sub a()
& & Dim i%, irow%, irow1%, rd%, rd1%, rd2%, tr%, s$
& & Worksheets(&基本信息&).Activate
& & irow = Worksheets(&基本信息&).Range(&a65536&).End(xlUp).Row
& & For i = 3 To irow
& && &&&Range(&z& & i).Value = Range(&a& & i) & Range(&b& & i) & Range(&c& & i) & Range(&d& & i)
& & Next
& &
& & irow = Worksheets(&已删除的基本信息&).Range(&a65536&).End(xlUp).Row + 1
& & tr = Selection.Row
& & s = Range(&z& & tr).Value
& & Rows(tr).Copy Worksheets(&已删除的基本信息&).Cells(irow, 1)
& & Rows(tr).Delete
& &
& & Worksheets(&等级记录1&).Activate
& & irow1 = Worksheets(&等级记录1&).Range(&a65536&).End(xlUp).Row
& & For i = 3 To irow1
& && &&&Range(&z& & i).Value = Range(&a& & i) & Range(&b& & i) & Range(&c& & i) & Range(&d& & i)
& & Next
& &
& & irow = Worksheets(&已删除的等级记录1&).Range(&a65536&).End(xlUp).Row + 1
& & For i = irow1 To 3 Step -1
& && &&&If Range(&z& & i).Value = s Then
& && && && &Rows(i).Copy Worksheets(&已删除的等级记录1&).Cells(irow, 1)
& && && && &Rows(i).Delete
& && && && &irow = irow + 1
& && &&&End If
& & Next
& &
& & Worksheets(&等级记录2&).Activate
& & irow1 = Worksheets(&等级记录2&).Range(&a65536&).End(xlUp).Row
& & For i = 3 To irow1
& && &&&Range(&z& & i).Value = Range(&a& & i) & Range(&b& & i) & Range(&c& & i) & Range(&d& & i)
& & Next
& &
& & irow = Worksheets(&已删除的等级记录2&).Range(&a65536&).End(xlUp).Row + 1
& & For i = irow1 To 3 Step -1
& && &&&If Range(&z& & i).Value = s Then
& && && && &Rows(i).Copy Worksheets(&已删除的等级记录2&).Cells(irow, 1)
& && && && &Rows(i).Delete
& && && && &irow = irow + 1
& && &&&End If
& & Next
& &
& & Dim sht As Worksheet
& & For Each sht In Worksheets
& && &&&sht.Columns(26).Delete
& & Next
& &
& & Worksheets(&基本信息&).Activate
End Sub
复制代码
阅读权限20
在线时间 小时
附件在& Excel基础应用 &版块的，哎，今天传多了，不能再传了，也在& Excel基础应用 &版块发了一篇这个，我想应该属于VBA程序开发的，就发到这边了。。。
阅读权限20
在线时间 小时
请参考附件
22:59 上传
点击文件名下载附件
51.53 KB, 下载次数: 43
阅读权限20
在线时间 小时
likeslh 发表于
请参考附件
是这样的，老师，我是想同一表格中，在sheet1中有几列分别为A,B,C,D,E，在sheet2中只有A列，当sheet1的B列中任意一个值等于sheet2中A列中的值就删除sheet1中B列值所对应的整行，sheet2的A列里面的值是我自己手动填写，这个点击按钮实现。我也看了你给的附件，我是个新手，改来改去，还是没有达到想要的效果，希望能给个代码，我上传附件
(15.4 KB, 下载次数: 20)
19:17 上传
点击文件名下载附件
，附件中写明了想要的效果，谢谢啦
阅读权限20
在线时间 小时
likeslh 发表于
请参考附件
我的思路，但不知道是否正确，也知道如何写代码，呵呵，先是sheet2中的A列（第二格）的值与sheet1B列的所有值对比，对比结果相同后就删除sheet1B列对应的整列，然后sheet2中的A列（第三格）的值.....依次对比完sheet2A列中所有值，只要有值的都要对比一遍，然后删除sheet1B列对应的整列
阅读权限20
在线时间 小时
是不是要运用函数的嵌套，新手不是很明白啊
阅读权限20
在线时间 小时
likeslh 发表于
请参考附件
Public Sub del()
& & Dim name, nam
& & j = Range(&A65536&).End(xlUp).Row
& & k = Range(&A65536&).End(xlUp).Row
& & For h = 2 To k
&&For i = 2 To j
& & If Range(&原始数据!B& & i).Value && 0 Then
& &&&name = Range(&A& & h).Value
& &&&nam = Range(&原始数据!B& & i).Value
& & If name = nam Then
& & Sheet1.Rows(i).Detele
& & End If
& & End If
自己瞎搞了个，感觉还是不行，真想尽了办法了
阅读权限20
在线时间 小时
Public Sub de()
& & Dim arrd, arr, i%, j%, rng As Range, m%, r%
& & arrd = Worksheets(&年龄等于23岁且收入等于3000删除&).Range(&a1&).CurrentRegion& &'目标
& & arr = Worksheets(&原始数据&).Range(&a1&).CurrentRegion&&'要删除的区域
& & For i = 2 To UBound(arrd)& &'目标循环
& && &&&For j = 2 To UBound(arr)& & '要删除的区域循环
& && && && &If arr(j, 1) = arrd(i, 1) And arr(j, 3) = arrd(i, 2) Then& &'如果对应内容相同则放到rng中
& && && && && & m = m + 1
& && && && && & If m = 1 Then
& && && && && && &&&Set rng = Worksheets(&原始数据&).Cells(j, 1)
& && && && && & Else
& && && && && && &&&Set rng = Union(rng, Worksheets(&原始数据&).Cells(j, 1))
& && && && && & End If
& && && && &End If
& && &&&Next
& & Next
& & If m & 0 Then
& && &&&rng.EntireRow.Delete& & '删除rng
& & End If
End Sub
复制代码
阅读权限20
在线时间 小时
附件传不上，你把删除姓名和收入的那个表里，要删除的内容放到A1列那边去，然后运行，可以删除刘哥3000的，相当于两个条件，其他的应该都差不多
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师各位高手，我的工作需要每天都得删除电脑D盘里面的一些图片，请问我用Excel的宏怎么删除。10分悬_百度知道excel中有N列，每列都有许多重复数据，现在要把这些数据删除用07的“删除重复项”，录了一个宏，如下：_百度知道这次我们的牛闪达人发飙了，要进行宏功能讲解，想学高大上的小伙伴们有福利了。不过还是建议大家一定要亲手试试。实践出来的才是自己的。以下为教程：6月份的时候班长曾经问过一个问题，假如一个工作簿里有99个工作表隐藏了，怎么批量快速使所有工作表都显示出来？ 这个问题最简单的似乎就是VBA 宏了，，原帖：今天THINK+就来给大家来个手把手教程，如何调用EXCEL宏来一键批量取消工作表的隐藏 ？1、调出EXCEL中的【开发工具】选项卡 。 文件——选项——自定义功能区——在开发工具前打勾确认。2、录制一个空白宏并保存在个人宏工作簿。 开发工具——点击录制宏——保存在个人宏工作簿！这一步非常重要，别的宏名、快捷键可以先不用管 。2.1 ，点击停止录制：3. 调出VBA的开发环境。单击 Visual Basic (或者快捷键 Alt + F11 ) ——找到VBAProject(PERSONAL.XLSB)——双击模块1 ——右边就是刚刚录制的空白宏的代码 。4. 将以下“ 取消工作表隐藏的代码”粘贴到右边的空白区 。该代码由吧友“人人都是我师”提供，感谢 ！我做了简单注释Sub 取消工作表隐藏()Dim sh As Worksheet ' 定义一个工作表类型的变量For Each sh In Worksheets ' For Next 循环If sh.Visible && -1 Then 'If 条件语句，如果工作表的可见属性为不可见（不等于 -1 ）sh.Visible = -1 '那么将该表的可见属性改为可见 （= -1 ）End If '结束If 语句Next End Sub粘贴代码——保存——关闭窗口。5. 调用代码来实现批量取消工作表隐藏。假设现在有多张工作表隐藏。5.2 执行宏代码。 开发工具——点击宏——点击执行 。6. 成功 ! 隐藏的工作表一键批量取消隐藏 。这里如果不是批量取消工作表的隐藏的代码，如果是别的能够执行的代码同理一样能执行 。好了，今天就到这吧 。等下个月续集的时候再把“如何更方便的使用宏” 讲讲吧 。关注我们的达人贴吧，参与下方的技巧评论吧！在牛闪闪的日子(Officestart1979)　
　文章为作者独立观点，不代表微头条立场
的最新文章
Office达人教你玩转邮件合并工资条！文档的差异不用人工核对，让Word帮你搞定！Excel版本进化多么多版，没什么汇总数据的功能？因为不用汇总数据也能进行计算！多人合作写书写文案，这招可以帮到你！Office达人教会你玩转分层图表制作！Office达人教你如何正确计算每个月的工作日？PPT也能玩负片设计！牛闪闪的Office达人教会你如何批量去除所有工作表的筛设定！PPT的飞行轨迹和航运估计画起来！Office达人教你玩转留白设计！特殊匹配，需要你有更强大的经验！牛闪公开课又开张了，各种Office直播视频教程都可以学习！还有技巧学习网站！还有问题解答互动，还等什么？Office达人教会玩转七彩纹理填充设计。有时候Word和Excel协同工作，效率也很高！个税到底应该怎么用Excel。Office达人告诉你！Office达人教你玩转日期的另外一种思路。玩转函数的高阶参数使用！Office达人抛开迷雾，告诉你弄好PPT的四大关键！总结Excel中统计√的用法！赶紧来看看！祝愿中国女排今天冠军。职场老大们领抵扣劵都在学Office！你也来试试！如果单元格内有文字字母数字，如何继续快速提取并统计呢？ＰＰＴ的WIFI图，你也能会画！本案例教会你如何实现Excel的十字架条件格式定位！本案例教会你PPT画中画设计思路！本案例教会你如何进行PPT设置以提高工作效率。Excel图表制作规范！一组借鉴用于PPT的网站设计本案例将教会你一种简单的多表数据汇总到总表的Excel技巧！本案例教会你如何用PPT绘制专业图形！文字和图片，除了常规的应用外，
还可以运用一些小的方法和技巧，
对这二者进行处理！本案例教会你Excel二维表的单元格颜色定位！本例教会你快速制作工资条的方法！本案例教会你Word表格到Excel表格的快速排版，关键还不变形哈！牛闪Office达人带你玩转PPT镂空设计！本案例教会你在Excel2013中秒做组合图表！本案例教会你玩转Excel的替换功能！本案例教会你如何在Word中设置网格线！本案例教会你如何玩转Excel动态化数据结构！用PPT讲述一个职场故事！祝小伙伴们儿童节快乐！本案例教会你Excel中的颜色筛选技巧。本案例教会你Word中的文字与表格的转换操作！本例告诉你什么是Office协同工作！本案例教会您使用PPT的弧形工具绘制卫星轨迹表达！本例教会你Excel单元格拆分的另外一种方法!本例告诉你，思路决定效率！本案例将教会一个Excel的核心功能：数据的动态统计本案例带你了解PPT2016变体动画的入门知识！道长，你这马....不是一般的马呀！手动能高效完成，自动也能高效完成，你选哪一个？有些人Office技术很牛，却每天都在重复一边又一遍的所谓高效技巧。而有些人能实现“系统自动化”，这是Office办公的流行趋势，如何将自己的工作流变成Office模板，是未来的发展方向。Officestart1979在牛闪闪的日子，是一个能帮您提高办公效率的文艺范公众号。热门文章最新文章Officestart1979在牛闪闪的日子，是一个能帮您提高办公效率的文艺范公众号。