请论坛高人看看选取不连续的行与他列比较

oob111

a列有不连续的行
c列有不连续的行
不用uion选取a列不为空的倒数5行和c整列比较
相同时c列那个单元格删除，下单元格上移，只比教一遍。
相同都不要，所以两个11都删除，而a烈的两个14都要选，因为他们是倒数五个14，14，13，11，12里的，这倒数五个不删是用来对比的，A列不动不删，说过了要用两三个for加 if进行循环的笨法才好

oob111

只用些if简单语句写个vba吧

无聊的疯子

回复 oob111 的帖子

不知道楼主是怎么比较法,B列没有数据,C列才有,

有的删除,那A列是不是就只有13,14,了?有两个14,要不要做处理呢??

oob111

只选取a列倒数五个非空单元格， 和c列的整列比较，之从下向上做一次比较。
c列两个11，做相同处理

无聊的疯子

回复 oob111 的帖子

保留一个还是一个14都不要?

oob111

相同都不要，所以两个11都删除，而a烈的两个14都要选，因为他们是倒数五个里的，这倒数五个不删是用来对比的

oob111

c列11，12都删留15，17，a列不动的

无聊的疯子

回复 oob111 的帖子

用下面的代码,看看是不是你想要的结果?没有清除空白单元格

1. Sub c()
   
2.     hx = Sheet1.Range("a65536").End(xlUp).Row
   
3.     For x = 1 To hx
   
4.         If Cells(x, 1) <> "" And Application.Count(Range(Cells(x, 1), Cells(hx, 1))) = 5 Then Exit For
   
5.     Next
   
6.     Set Ran = Sheet1.Range(Cells(x, 1), Cells(hx, 1))
   
7.     hx = Sheet1.Range("C65536").End(xlUp).Row
   
8.     For h = hx To 1 Step -1
   
9.         If VBA.IsNumeric(Application.Match(Cells(h, 3), Ran, 0)) And Cells(h, 3) <> "" Then Cells(h, 3).Delete Shift:=xlUp
   
10.     Next
    
11. End Sub

复制代码

oob111

If VBA.IsNumeric(Application.Match(Cells(h, 3), Ran, 0)) And Cells(h, 3) <> "" Then Cells(h, 3).Delete Shift:=xlUp

不理想能改成简单些的cells=cells吗

无聊的疯子

回复 oob111 的帖子

可以,但是你的要求并非是每个对应的行

那么改成cells=cells的话,将要写出和C列内容一样多的cells出来

也就是说,你A列有5行,C列有5个,那要完对对应的话,要写5*5 个cells出来,这样数据少的话还行,数据多了就慢以

当然,也有更好的方法!