用VBA自动填写数字属于哪种颜色

laoau138

用VBA自动填写数字属于哪种颜色

grf1973

大年夜还搞？

1. Sub tt()
   
2.     arr = Range("r2:y7")
   
3.     Dim brr(1 To 99)
   
4.     For i = 1 To UBound(arr)
   
5.         If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1)
   
6.         For j = 2 To UBound(arr, 2)
   
7.             If arr(i, j) > 0 Then brr(arr(i, j)) = arr(i, 1)
   
8.         Next
   
9.     Next
   
10.    
    
11.     arr = Range("c2:i23")
    
12.     For i = 1 To UBound(arr)
    
13.         For j = 1 To UBound(arr, 2)
    
14.             If arr(i, j) > 0 Then arr(i, j) = brr(arr(i, j))
    
15.         Next
    
16.     Next
    
17.     Range("j2:p23") = arr
    
18. End Sub
    

复制代码

laoau138

grf1973 发表于 2017-1-28 10:56
大年夜还搞？

其实搞这个也没有得益，只不过因为太笨，

lmze2000

1. Sub Tj()
   
2.     Dim Arr, Rng As Range
   
3.     Set Rng = [s2:y7]
   
4.     Arr = [a1].CurrentRegion
   
5.     For i = 2 To UBound(Arr)
   
6.         For j = 3 To 9
   
7.             Cells(i, j + 7) = Cells(Rng.Find(Arr(i, j), , , xlWhole).Row, 18)
   
8.         Next
   
9.     Next
   
10.     MsgBox "统计完成", vbOKOnly, "Finger"
    
11. End Sub
    

复制代码

laoau138

lmze2000 发表于 2017-1-28 11:53

这个答案可以

today0427

为节日期间坚守在论坛一线兢兢业业不辞辛苦出题和放弃吃喝玩乐和抢红包增加经济收入大好时机认认真真答疑解惑的老师们结结实实地点个赞！！

laoau138

today0427 发表于 2017-1-28 13:29
为节日期间坚守在论坛一线兢兢业业不辞辛苦出题和放弃吃喝玩乐和抢红包增加经济收入大好时机认认真真答疑解 ...

用VBA数组把这个改写一下 这个计算单
http://www.excelpx.com/thread-427406-1-1.html

laoau138

lmze2000 发表于 2017-1-28 11:53

把HI列公式改写VBA数组   主要判断同一行平行复合属性


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

laoau138

grf1973 发表于 2017-1-28 10:56
大年夜还搞？

用VBA数组把这个改写一下 这个计算单
http://www.excelpx.com/thread-427406-1-1.html