请老师对程序给予修正，谢谢！

zainan0810

操作过程说明：
在N1中，先选日（或月），在O1中，输入数据，然后按上面的按钮。

运算目的：
1、在E列（或D列）中，找到与O1相同的数，将其对应的序号及F:M行的数据，粘贴到“原始数据”中。

请老师帮指正的是：
1、当O1中的数在选定列中不存在时，“原始数据”中的结果还显示上次的结果，而正确的应该是显示空。
2、还有什么没想到的漏洞，也一并补下吧。

粘贴到另个表中.rar (105.09 KB, 下载次数: 2)

2019-1-20 16:58 上传

点击文件名下载附件

lsc900707

如果没有合乎条件的数据就显示空的话调整一下后面的语句：

1. Sub 粘贴到另个表()
   
2.     arr = [a1].CurrentRegion
   
3.     ReDim Brr(1 To UBound(arr), 1 To 9)
   
4.     If Cells(1, 14) = "月:" Then
   
5.        x = 4
   
6.        Else
   
7.        x = 5
   
8.     End If
   
9.     For i = 2 To UBound(arr)
   
10.         If arr(i, x) = [o1] Then
    
11.             m = m + 1
    
12.             Brr(m, 1) = arr(i, 1)
    
13.             For j = 2 To 9
    
14.                 Brr(m, j) = arr(i, j + 4)
    
15.             Next
    
16.         End If
    
17.     Next
    
18.     With Sheets("原始数据")
    
19.         .[a1].CurrentRegion.ClearContents
    
20.         If m Then
    
21.             .[b:i].NumberFormatLocal = "@"
    
22.             .[a1].Resize(m, 9) = Brr
    
23.         End If
    
24.     End With
    
25.     Application.GoTo Sheet3.Cells(1, 1)
    
26. End Sub

复制代码

zainan0810

lsc900707 发表于 2019-1-20 17:49
如果没有合乎条件的数据就显示空的话调整一下后面的语句：

谢谢版主的指点!您太厉害啦，服了！