[已解决]谢谢放浪形骸老师 反向提取数据

lhj323323

0	0	1
1	2	3
3	4	5
4		7
5

老师：
如何根据上表，提取各列中没有被输入的数字，每列数字区间是0-9
如上例，在A列提取出2、6、7、8、9
在B列提取1、3、5、6、7、8、9
在C列提取0、2、4、6、8、9
并将这些提取的数据导入到W、X、Y列中

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-5-17 21:21

1. Sub FindData()
   
2. Dim iR As Integer
   
3. Dim iRow As Integer
   
4. Dim iLen As Integer
   
5. Dim iColumn As Integer
   
6. Dim iCount(0 To 9) As Byte
   
7. For iColumn = 2 To 4
   
8.     For iRe = 0 To 9
   
9.         iCount(iRe) = 0
   
10.     Next
    
11.     iLen = Cells(65536, iColumn).End(xlUp).Row
    
12.     iR = 16
    
13.     For iRow = 4 To iLen
    
14.         iCount(Cells(iRow, iColumn)) = 1
    
15.     Next
    
16.     For iRow = 0 To 9
    
17.         If iCount(iRow) = 0 Then
    
18.             Cells(iR, iColumn) = iRow
    
19.             iR = iR + 1
    
20.         End If
    
21.     Next
    
22. Next
    
23. End Sub

复制代码

跳转到最佳答案楼层

徐淑颖

这个是小问题，上附件了很快就解决了！{:101:}

飞天小猪

徐淑颖 发表于 2011-5-17 17:01
这个是小问题，上附件了很快就解决了！

哈哈，，，你太水了，灌水一级棒啊~~小颖同学

lhj323323

回复 徐淑颖 的帖子

已将附件上传到一楼，请将结果导入到紫色区域即可。谢谢。

徐淑颖

稍等下，我看看！{:011:}

徐淑颖

回复 lhj323323 的帖子

一下子问题都看不懂了，不知道想你想做什么了！呵呵

徐淑颖

回复 lhj323323 的帖子

看看这个是不是你想要的，不知道你要做什么呢！{:011:}

lhj323323

回复 徐淑颖 的帖子

根据黄色区域内显示的数值，将其反向数据导入到紫色区域中

导入的标准是以0-9十个数字，减去每列已显示出来的数据，剩下的数字导入到紫色区域的对应的列中。

哦，我忘记了，请用VB来做，因为这个需求是一个程序中的一个小环节，而紫色区域是供多个程序使用的结果表区域，常常被清空备用。

徐淑颖

在W列输入数组公式     =SMALL(IF(ISERROR(MATCH(ROW($1:$10)-1,A:A,0)),ROW($1:$10)-1),ROW())            得到没有在A列的数字

徐淑颖

回复 lhj323323 的帖子

{:101:}这个我只能用函数来帮你解答，问题是挺简单的，不过VB我刚刚接触，估计写出来还是有点难度的！