如何删除面板数据中缺失过多的样本

Aaron16

对每个样本数据中TAssets这一列数据中20年数据中缺失达到17，即删除只有小于等于3年数据的样本。并不是只删除缺失年份数据，而是删除该样本的全部数据。求好心大神给予本菜鸟指点！！！！

grf1973

1. Sub tt()
   
2.     Dim DelRng As Range
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     Set d1 = CreateObject("scripting.dictionary")
   
5.     arr = [a1].CurrentRegion
   
6.     For i = 2 To UBound(arr)
   
7.         x = arr(i, 1)
   
8.         If Not d.exists(x) Then
   
9.             Set d(x) = Rows(i)
   
10.         Else
    
11.             Set d(x) = Union(d(x), Rows(i))
    
12.         End If
    
13.         If Len(arr(i, 13)) > 0 Then d1(x) = d1(x) + 1
    
14.     Next
    
15.     For Each x In d1.keys
    
16.         If d1(x) < 3 Then
    
17.             If DelRng Is Nothing Then Set DelRng = d(x) Else Set DelRng = Union(DelRng, d(x))
    
18.         End If
    
19.     Next
    
20.     If Not DelRng Is Nothing Then DelRng.Delete
    
21. End Sub

复制代码

grf1973

删除前381行，删除后321行。