VBA化简与改错两个问题看里面代码

laoau138

VBA化简与改错两个问题看里面代码

grf1973

关于数组化简，考虑到1-33是连续数，因此直接把源数据的数累加到经此数为数组下标的数组中。
关于改错，原代码只要加一句把K列清空即可，每次累加都在原K列的基础上，不清空当然会错。

1. Sub 数组()
   
2.     Dim arr, arr1, x
   
3.     [j10].Resize(100) = ""
   
4.     arr = Sheet1.Range("b10:g39")
   
5.     arr1 = Sheet1.Range("i10:j42")         '第一个化简,少用I列这个循环，1至33这33个数字，如何改
   
6.     For Each x In arr
   
7.         arr1(x, 2) = arr1(x, 2) + 1
   
8.     Next
   
9.     [j10].Resize(UBound(arr1)) = Application.Index(arr1, , 2)
   
10. End Sub
    
11. 
    
12. Sub 单元格()
    
13.     [k10].Resize(100) = ""
    
14.     For i = 10 To 39
    
15.         For j = 2 To 7
    
16.             For k = 10 To 42
    
17.                 If Cells(i, j) = Cells(k, 9) Then       '为什么单击一次J列结果正确，什么原因第二次单击J列结果会递增，而数组不会
    
18.                     Cells(k, 11) = Cells(k, 11) + 1
    
19.                 End If
    
20.             Next
    
21.         Next
    
22.     Next
    
23. End Sub
    

复制代码

laoau138

grf1973 发表于 2016-10-4 20:15
关于数组化简，考虑到1-33是连续数，因此直接把源数据的数累加到经此数为数组下标的数组中。
关于改错，原 ...

还有这个没有被秒

http://www.excelpx.com/thread-424853-1-1.html