[已解决]求个vba

hjuy78

        a               b               c                  d                  

5
0	5		1
	5	0

                       
  求个vba, b1 到d5 哪格是黄色就把哪格的数字放在A列                    
                        
                        
                        
                        
                        
                        
                        

最佳答案

月排行榜 / 总排行榜

qh8600

2015-7-10 16:23

工作簿3.rar (14.55 KB, 下载次数: 4)

2015-7-10 16:23 上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

qh8600

工作簿3.rar (14.55 KB, 下载次数: 4)

2015-7-10 16:23 上传

点击文件名下载附件
楼主试试

incrediblesky

qh8600 发表于 2015-7-10 16:23
楼主试试

1. Sub demo()
   
2.     Dim rng As Range, ar(1 To 15, 1 To 1), n
   
3.     For Each rng In Range("b1:d5")
   
4.         If rng.Interior.ColorIndex = 6 Then
   
5.             n = n + 1
   
6.             ar(n, 1) = rng.Value
   
7.         End If
   
8.     Next
   
9.     Range("a1").Resize(n, 1) = ar
   
10. End Sub

复制代码

ar(1 To 15, 1 To 1)这个虽然是二维数组，但也可看成一维数组，我改成ar(1 To 15)以下代码，为什么就不行了呢

1. Sub demo()
   
2.     Dim rng As Range, ar(1 To 15), n      
   
3.     For Each rng In Range("b1:d5")
   
4.         If rng.Interior.ColorIndex = 6 Then
   
5.             n = n + 1
   
6.             ar(n) = rng.Value
   
7.         End If
   
8.     Next
   
9.     Range("a1").Resize(n, 1) = ar
   
10. End Sub

复制代码

qh8600

incrediblesky 发表于 2015-7-10 17:11
ar(1 To 15, 1 To 1)这个虽然是二维数组，但也可看成一维数组，我改成ar(1 To 15)以下代码，为 ...

一维数组写入单元格要转置，不想转置直接定义成2维数组