[已解决]如何用VBA，删除满足条件的区域，谢谢。

新一

如何用VBA，删除满足条件的区域，谢谢。如附件，I列为条件，在A列中查找与I列相同的内容，删除内容所在的区域，得出E，F列的结果。

最佳答案

月排行榜 / 总排行榜

qh8600

2014-10-20 19:01

坯件编码.rar (10.72 KB, 下载次数: 13)

2014-10-20 19:01 上传

点击文件名下载附件
......

跳转到最佳答案楼层

uceadf

在C列输入=COUNTIF(J:J,A:A)
去除值为1的就OK了

qh8600

1. Sub demo()
   
2.     Dim arr, brr, re(), i, j, m, n
   
3.     arr = Range("a2:b" & Cells(Rows.Count, 1).End(3).Row).Value
   
4.     brr = Range("i2:i" & Cells(Rows.Count, 9).End(3).Row).Value
   
5.     ReDim re(1 To UBound(arr), 1 To 2)
   
6.     For i = 1 To UBound(arr)
   
7.         n = 0
   
8.         For j = 1 To UBound(brr)
   
9.             If arr(i, 1) = brr(j, 1) Then n = n + 1
   
10.         Next
    
11.         If n < 1 Then
    
12.             m = m + 1
    
13.             re(m, 1) = arr(i, 1)
    
14.             re(m, 2) = arr(i, 2)
    
15.         End If
    
16.     Next
    
17.     Range("e2:e65536").ClearContents
    
18.     Range("E2").Resize(m, 2) = re
    
19. End Sub

复制代码

qh8600

坯件编码.rar (10.72 KB, 下载次数: 13)

2014-10-20 19:01 上传

点击文件名下载附件
......