删除满足条件的行 vba

Sub 去重()
On Error Resume Next
For i = [b65536].End(3).Row To 1 Step -1
If Cells(i, 2) = Cells(i - 1, 2) Then
    Rows(i - 1 & ":" & i - 1).Delete Shift:=xlUp
End If
Next
End Sub


Sub a()
Dim i&, n&, r&, arr()
r = Cells(Rows.Count, 1).End(xlUp).Row
ReDim arr(1 To r, 1 To 1)
n = 1
For i = 1 To r
If i = 1 Then arr(1, 1) = Cells(1, 1)
If Cells(i, 1) > Cells(i + 1, 1) And Cells(i + 1, 1) > "" Then
n = n + 1
arr(n, 1) = Cells(i + 1, 1)
End If
Next
Columns(2).ClearContents
Range("b1").Resize(r) = arr
End Sub

Sub cscs()
Dim i%
For i = Range("a" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = Cells(i + 1, 1) Then Rows(i).Delete
Next
End Sub
Public Sub DeleteAdjacentDuplicateDateRows()
For i=1000 To 1 Step -1
If cells(i+1,1)=Cells(i,1) Then
Rows(i).Delete
End If
Next i
End Sub

不必使用VBA的,在B1里面输入下面的公式:

=IF(A1=A2,"删除","保留")

下拉到底,然后筛选B列为【删除】的行进行删除即可,示例:

  • 喜欢阅读
  • 欲宠娇妻:总裁多情事

    欲宠娇妻:总裁多情事

    偶然相逢,她被迫生下孩子逃之夭夭……当她再次出现在他面前,她是一个公司小职员,而他掌握她的生死。他好心收留,以为是机遇,没想到却是一个早已布好的陷阱,只等她来。一切真相大白,看着面前再熟悉不过的男人,她冷声讽刺,“这就是你要的结果?”他没有看她,淡然的说:“是。”“好,我认输,从此咱们没关系。”“女人,你说的不算。”

  • 我的金牌女友

    我的金牌女友

    被女友抛弃的穷屌丝,无意中得罪了服装公司的野蛮女上司,被迫成为美女上司的代理男友,却不曾想处处被女上司利用,成了野蛮女上司情场生活上最好使的挡箭牌!然而,凭借着过人的才能与机遇,穷屌丝不知不觉地走上了逆袭之路!不仅成了女上司的正式男友,还成了淑女名媛们疯抢的金牌屌丝,且看穷屌丝如何步步演绎一代商界传奇……

  • 重生娱乐圈:霍少,强势宠!

    重生娱乐圈:霍少,强势宠!

    重生?许辞月大概没有想到这种事情会发生在自己身上。被被朋友设计陷害,为了不被侮辱,她宁可选择自杀,却意外的重生到另一个名叫许辞月的姑娘身体中。两个许辞月竟然还是在同一间酒店,同样被身边的人陷害。恨意的重叠,让许辞月开始了漫长的复仇之路。十八岁的学生许辞月?还是演员许辞月?

  • 美女的近身管家

    美女的近身管家

    工作勤快且贫穷的陈云峰在一次送外卖的时候撞到了自己饭店的美女老板沈诗梦,原本想工作没有了。谁知沈诗梦为了报复他故意留下了他,并且给他双倍的工资。随着老板和员工的交往,他们发现彼此之间正互相赏识着,两颗心也逐渐的靠拢来。

  • 背剑少年

    背剑少年

    思涯生于世上,似乎是为了复仇而活着。然而对头强大到无法超越的程度,即便如此,他仍然坚持信念。为能接近对头,他隐忍加入了虹光剑派,凭借自己惊人的天赋,逐渐成为年轻一代翘楚。然而随着真相的慢慢揭开,迎接他的却又是一个两难的选择。他与她幼年相识,成为一师之徒。成长的路上,他们互为激励,共历艰难险阻,渐渐相互倾心。然则命运蹉跎,两人不得不拔剑相望,缘分擦肩而过。他心有不甘,她也有不舍。然而是什么事情崩发出了他们心中的激情,终于抛开世俗之念相依相偎呢?

  • 全才天骄

    全才天骄

    被称为吃软饭的上门女婿楚封,迫不得已,沉寂两年疗伤,受尽外人和丈母娘白眼,家宴上冰冷绝艳的娇妻为保全自己,自扇耳光,两年的封禁解除,当夏梦雪握住我的手时,从此,我楚封就算舍弃一切,也要护你周全,你守护夏家,我守护你;银针破煞,医术救苍生,武道守国门,商业运天下。

  • 女神的绝品冷卫

    女神的绝品冷卫

    一个久经沙场的特种兵,因为一场特殊的任务离开了部队失去了最好的兄弟,因为一件事情,奇怪的遇上了大小姐凌雪儿,成为贴身保镖,要什么有什么,美女金钱爱情名利大丰收,可是在这些的背后掩藏着的到底是怎么样的不堪呢?为什么不可以和爱的人长长久久,从一个战队武器变成身经百战的特种兵王,当爱情和阴谋交合,谁会真的笑到最后呢?

  • 专宠霸爱:总裁宝贝初长成

    专宠霸爱:总裁宝贝初长成

    爱到极致,就变成了执着。我不是你养在笼中的金丝雀。我爱你,但我需要自由的呼吸。

  • 猜你喜欢
    热门推荐
  • 华硕rog玩家国度主题
  • 澳门威尼斯人色情8522
  • 江苏交通广播网微信号
  • 博客园alex python
  • 李宗瑞 贝贝是谁
  • 联想笔记本磁盘分区
  • 北京社平工资 2017
  • 关于火影忍者的游戏
  • www. jalab. com
  • uk6码鞋是多大
  • 中压蒸汽的保温厚度
  • hm home 上海在哪里
  • 拍婚纱照不会笑怎么办
  • prada女款双肩背包价格
  • 三国陈琳的讨贼檄文
  • 10×buffer
  • 婴儿手工小棉袄裁剪图
  • 赛睿qck heavy 不滑了
  • 小学生300字续写作文
  • 佳能288清零软件方法
  • All Right Reserved 果粒网